Absorption and quasinormal modes of classical fields propagating on 3D and 4D de Sitter spacetime by Lopez-Ortega.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    385331,      10010]
NotebookOptionsPosition[    360706,       9644]
NotebookOutlinePosition[    361197,       9662]
CellTagsIndexPosition[    361154,       9659]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for: 
Absorption and quasinormal modes of classical fields propagating on 3D and 4D \
de Sitter spacetime by Lopez-Ortega\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821113028835348*^9, 3.82111308541782*^9}, {
  3.82221717184973*^9, 3.822217182304297*^9}, {3.855573548494783*^9, 
  3.855573571118785*^9}},
 TextAlignment->Center,ExpressionUUID->"5d9efb17-c835-44de-9a60-63578a68d304"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
February 12, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, 
   3.8554963948316936`*^9, {3.855504241007119*^9, 3.855504245254983*^9}, 
   3.8555049671827374`*^9, {3.855505955128133*^9, 3.855505961623564*^9}, {
   3.855532612945916*^9, 3.855532622453443*^9}, {3.8555735621418753`*^9, 
   3.8555735711188917`*^9}},
 TextAlignment->Center,ExpressionUUID->"a164a15f-430a-4188-a166-6e7b572e6acf"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"NOTE", ":", " ", 
     RowBox[{
     "there", " ", "is", " ", "a", " ", "big", " ", "clash", " ", "between", 
      " ", "l"}]}], ",", " ", 
    RowBox[{"\[ScriptL]", " ", "and", " ", "L"}]}], " ", "*)"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.822222259796286*^9, 3.8222222746659107`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"87b20b0d-1565-4543-8696-595bf0f7549c"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"1bbd5a45-cb7d-40d8-a2c6-\
3ac09327ae7a"],

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[96]:=",ExpressionUUID->"e78956a1-d971-430a-b6e4-f2b5fff7ad93"],

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.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824644896879627*^9, 3.824646374047151*^9, 3.824647481799861*^9, 
   3.824807973110347*^9, 3.8248083404553423`*^9, 3.824809928548235*^9, 
   3.824815880975711*^9, 3.824827727169653*^9, 3.824828710755515*^9, 
   3.824830829998102*^9, 3.855532748398128*^9, 3.855573659726611*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"66050f61-e89e-46e5-84a0-f571ed300f63"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink To Original Paper ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821113199859816*^9, 3.8211132205695353`*^9}, 
   3.824883518351282*^9, 
   3.843083251606776*^9},ExpressionUUID->"17aa8ee0-0bc9-4f7c-a611-\
cd161177c1d2"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Absorption and quasinormal modes of classical fields propagating on 3D \
and 4D de Sitter spacetime by Lopez-Ortega\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/0605022\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821113158203402*^9, 3.82111320533178*^9}, {
   3.8222171990974092`*^9, 3.822217209416909*^9}, 3.824883518351438*^9, {
   3.843083243976161*^9, 3.8430832457749443`*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"973b7a32-1b90-42b8-b014-66a4b34902ee"],

Cell[BoxData[
 TemplateBox[{
  "\"Absorption and quasinormal modes of classical fields propagating on 3D \
and 4D de Sitter spacetime by Lopez-Ortega\"", 
   "https://arxiv.org/abs/gr-qc/0605022"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.822217484244378*^9, 3.822218448674305*^9, 
  3.822219030362886*^9, 3.822221969659134*^9, 3.822222111908491*^9, 
  3.8248835183515587`*^9, 3.843083246509547*^9, 3.855573659742695*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"c805cc13-b8db-468d-b814-7d47f1a8a2e1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821113258242021*^9, 3.821113266142658*^9}, {
   3.821113315705428*^9, 3.8211133221056633`*^9}, 
   3.822222518942008*^9},ExpressionUUID->"c81d1ab7-3120-4ba1-8031-\
a682bae8c9fd"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], "\[IndentingNewLine]"}], "\n", 
 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.821113257042676*^9, 3.822222518942148*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"3c6fd44a-d013-4915-a41a-2fce27821ad5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822217484424707*^9, 3.822218448885754*^9, 
  3.8222190305255823`*^9, 3.822221969794632*^9, 3.8222221120683823`*^9, 
  3.8222225189422398`*^9, 3.8555736600368147`*^9},
 CellLabel->
  "During evaluation of \
In[98]:=",ExpressionUUID->"0c60541e-7a42-4917-a159-b7944eaa59d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"390 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "390 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822217484424707*^9, 3.822218448885754*^9, 
  3.8222190305255823`*^9, 3.822221969794632*^9, 3.8222221120683823`*^9, 
  3.8222225189422398`*^9, 3.855573660041634*^9},
 CellLabel->
  "During evaluation of \
In[98]:=",ExpressionUUID->"bff80550-4629-4e9d-b37f-827e7b810c42"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", ",", "\<\"Notation`\"\>", 
   ",", "\<\"Parallel`Developer`\"\>", ",", "\<\"Parallel`Debug`Perfmon`\"\>",
    ",", "\<\"Parallel`Debug`\"\>", ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822217484433978*^9, 3.822218448891025*^9, 
  3.822219030536702*^9, 3.822221969805079*^9, 3.8222221120756283`*^9, 
  3.8222225189424143`*^9, 3.855573660045117*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"ea9523dc-0643-4099-986b-287afe033d5d"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8211132570427933`*^9, 3.822222518942587*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"04eeea85-3447-4c68-913c-17ddc57d8199"],

Cell[BoxData[
 RowBox[{"<<", "SpinWeightedSpheroidalHarmonics`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8222199427397614`*^9, 3.822219945552535*^9}, 
   3.822222518942747*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"2e455748-13bb-4e0b-b746-ca6d1664e730"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821113288225877*^9, 3.821113303009811*^9}, {
   3.8430832628705273`*^9, 3.8430832660302153`*^9}, 
   3.8555736098388147`*^9},ExpressionUUID->"2f339a2c-7c72-4f52-b9df-\
d90074eacbce"],

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", 10001.},
 CellChangeTimes->{3.8211132844296703`*^9, 3.8555736098391037`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"02720b56-1b78-4120-9a57-a4ea720f4862"],

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", 10001.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9, 3.8555736098392687`*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"d55ebfaf-f031-47fc-87d3-c9f41bd4ef2b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824883529677148*^9, 
  3.824883547180188*^9}},ExpressionUUID->"d59ebf02-bb3f-45ad-8c28-\
e922c0ef3105"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"P", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox["dt", "2"]}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Q", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox["dr", "2"]}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822217435619631*^9, 3.822217475186654*^9}, 
   3.8248835377271442`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"e7e98c42-9082-448c-9017-d7f4f00581cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox[
    RowBox[{"P", "[", "r", "]"}], "2"]}], "-", 
  RowBox[{
   SuperscriptBox["dr", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Q", "[", "r", "]"}], "2"]}], "-", 
  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.822217476581715*^9, 3.822217484519614*^9}, 
   3.82221844896145*^9, 3.822219030611103*^9, 3.82222196990139*^9, 
   3.8222221121826677`*^9, 3.824883537727282*^9, 3.8555736601167107`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"b9742d55-eae0-4ab2-beb9-ad4fb481a65b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822217479332493*^9, 3.822217516227862*^9}, {
   3.8222178432926817`*^9, 3.822217861244512*^9}, 3.82488353772738*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"a9aed748-8aac-4c90-8b5a-10b6695974af"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox[
       RowBox[{"P", "[", "r", "]"}], "2"], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Q", "[", "r", "]"}], "2"]}], "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.822217484528129*^9, 3.822217507838159*^9}, 
   3.822217861971766*^9, 3.822218448974999*^9, 3.822219030622979*^9, 
   3.822221969912966*^9, 3.822222112213388*^9, 3.8248835377275047`*^9, 
   3.855573660154747*^9},
 CellLabel->
  "Out[12]//MatrixForm=",ExpressionUUID->"543b3fe3-eaf2-407f-ae7b-\
4787815284c6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Inverse", "[", "metric1", "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822218512459505*^9, 3.8222185338342733`*^9}, 
   3.824883537727599*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"332dde90-55ff-4f67-823a-85845780b724"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"P", "[", "r", "]"}], "2"]], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"Q", "[", "r", "]"}], "2"]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["r", "2"]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822218515970983*^9, 3.822218534130806*^9}, 
   3.822219030649383*^9, 3.822221969943985*^9, 3.822222112225709*^9, 
   3.8248835377277203`*^9, 3.8555736601717987`*^9},
 CellLabel->
  "Out[15]//MatrixForm=",ExpressionUUID->"bb2d0bac-4ff2-4ceb-8be8-\
72906ef26a82"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", "  ", ".", " ", "inverse1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822218543122773*^9, 3.822218551410347*^9}, 
   3.824883537727805*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"06b0adf5-86c8-411b-9691-cb8eeff52aa8"],

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.8222185517043953`*^9, 3.8222190306612253`*^9, 
  3.822221970836261*^9, 3.8222221122573547`*^9, 3.8248835377278967`*^9, 
  3.855573660210672*^9},
 CellLabel->
  "Out[16]//MatrixForm=",ExpressionUUID->"a47f2587-67a3-4a98-a572-\
e3bca9bead0f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", "  ", ".", " ", "metric1"}], "  ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.822218562856346*^9, 3.822218566506109*^9}, 
   3.8248835377279778`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"75c6d9bf-205e-466d-9705-a09c51790d6a"],

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.8222185670702267`*^9, 3.822219030688862*^9, 
  3.822221971001337*^9, 3.822222112274675*^9, 3.824883537728065*^9, 
  3.855573660227956*^9},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"b82f6c18-c08d-464c-9133-\
c366e53f2da3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824883550440281*^9, 
  3.824883574683936*^9}},ExpressionUUID->"ca179d1c-d9d7-44e3-a339-\
b1bc13d692c7"],

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", 10005.},
 CellChangeTimes->{3.821113360719551*^9, 3.824883563479388*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"5beaec75-9d54-4830-8dcd-f2335c9ef2ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "2.77", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<SdS\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(SdS\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8211134046198893`*^9, {3.822218099469363*^9, 3.822218145845652*^9}, 
   3.8248835634794903`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"e374ab6b-90dc-4842-9c88-9b487cb0681f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.890048`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218129990136*^9, 3.822218451971243*^9, 
  3.822219035500361*^9, 3.8222219768731833`*^9, 3.8222221178004303`*^9, 
  3.824883563479617*^9, 3.855573663142776*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"056b688d-d61b-436a-bf45-34fd612e1a24"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, 
   3.824883563479754*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"e565b226-c600-425b-94c9-321d80c93f5a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "SdS"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222181781437674`*^9, 3.822218452085594*^9, 
  3.8222190356421824`*^9, 3.822221976959717*^9, 3.822222117975012*^9, 
  3.824883563479856*^9, 3.855573663218114*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"e9223bae-904a-40d2-a275-706b61da3450"],

Cell[BoxData["\<\"SdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222181781437674`*^9, 3.822218452085594*^9, 
  3.8222190356421824`*^9, 3.822221976959717*^9, 3.822222117975012*^9, 
  3.824883563479856*^9, 3.85557366322628*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"43780eab-30c3-4559-84d5-4836bde22470"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       SuperscriptBox[
        RowBox[{"P", "(", "r", ")"}], "2"], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"Q", "(", "r", ")"}], "2"]}], "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", 10005.},
 CellChangeTimes->{3.8222181781437674`*^9, 3.822218452085594*^9, 
  3.8222190356421824`*^9, 3.822221976959717*^9, 3.822222117975012*^9, 
  3.824883563479856*^9, 3.855573663230843*^9},
 CellLabel->
  "Out[23]//TraditionalForm=",ExpressionUUID->"bd847290-cbe9-443c-acc1-\
00be32fe5858"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.822218199809286*^9}, 
   3.824883563480105*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"fb4b254a-aae0-49d1-9f20-9d8f4793c486"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218201025003*^9, 3.822218452101245*^9, 
  3.822219035679904*^9, 3.822221976979331*^9, 3.8222221191561317`*^9, 
  3.8248835634801893`*^9, 3.855573663302462*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"bf455d32-8336-460e-9fcd-9e3f099e7f1d"],

Cell[BoxData["\<\"ChristoffelSymbolSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218201025003*^9, 3.822218452101245*^9, 
  3.822219035679904*^9, 3.822221976979331*^9, 3.8222221191561317`*^9, 
  3.8248835634801893`*^9, 3.855573663309918*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"63930999-82ed-4014-bcb7-9c03e63227aa"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"P", "(", "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[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"P", "(", "r", ")"}]]},
           {"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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"Q", "(", "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"},
           {
            RowBox[{"-", 
             FractionBox["r", 
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "2"]]}]},
           {"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[{"r", " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "2"]]}]}
          },
          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", 10005.},
 CellChangeTimes->{3.822218201025003*^9, 3.822218452101245*^9, 
  3.822219035679904*^9, 3.822221976979331*^9, 3.8222221191561317`*^9, 
  3.8248835634801893`*^9, 3.855573663316367*^9},
 CellLabel->
  "Out[26]//TraditionalForm=",ExpressionUUID->"da29077f-7e83-41bd-a7ce-\
9e13b0800032"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.822218210424377*^9}, 
   3.8248835634804296`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"8182524d-2670-4128-89c9-c2c3e2caf1d8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218211086732*^9, 3.822218452156104*^9, 
  3.822219035768498*^9, 3.8222219770358257`*^9, 3.8222221194165573`*^9, 
  3.8248835634805117`*^9, 3.855573663332815*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"db68fe04-d017-4311-9be5-ccb593e4aa37"],

Cell[BoxData["\<\"RiemannTensorSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218211086732*^9, 3.822218452156104*^9, 
  3.822219035768498*^9, 3.8222219770358257`*^9, 3.8222221194165573`*^9, 
  3.8248835634805117`*^9, 3.855573663338314*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"760aa764-7e92-49ce-ad4d-cfd9a0d1893b"],

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[{
            RowBox[{"P", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"Q", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], 
               RowBox[{"Q", "(", "r", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             RowBox[{"P", "(", "r", ")"}]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"Q", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], 
               RowBox[{"Q", "(", "r", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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[{"r", " ", 
              RowBox[{"P", "(", "r", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]], "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[{"r", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"P", "(", "r", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]], "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[{
            RowBox[{"-", 
             RowBox[{"P", "(", "r", ")"}]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"Q", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], 
               RowBox[{"Q", "(", "r", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"P", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"Q", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], 
               RowBox[{"Q", "(", "r", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"Q", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             RowBox[{"Q", "(", "r", ")"}]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"Q", "(", "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", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"Q", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             RowBox[{"Q", "(", "r", ")"}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"Q", "(", "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", 
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{"P", "(", "r", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}], "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", 
           FractionBox[
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"Q", "(", "r", ")"}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"Q", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             RowBox[{"Q", "(", "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", "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[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Q", "(", "r", ")"}], "2"], "-", "1"}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Q", "(", "r", ")"}], "2"], "-", "1"}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]], "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[{"r", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"P", "(", "r", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}], "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", 
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"Q", "(", "r", ")"}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"Q", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             RowBox[{"Q", "(", "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", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Q", "(", "r", ")"}], "2"], "-", "1"}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"Q", "(", "r", ")"}], "2"]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Q", "(", "r", ")"}], "2"], "-", "1"}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]]}], "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", 10005.},
 CellChangeTimes->{3.822218211086732*^9, 3.822218452156104*^9, 
  3.822219035768498*^9, 3.8222219770358257`*^9, 3.8222221194165573`*^9, 
  3.8248835634805117`*^9, 3.855573663441209*^9},
 CellLabel->
  "Out[29]//TraditionalForm=",ExpressionUUID->"5955ffe4-dd4d-4b33-bd6d-\
ba872452436d"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.822218216194104*^9, 3.822218220169259*^9}, 3.824883563480762*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"408863b0-479a-436e-b917-a283ab9061a3"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218220823605*^9, 3.822218452259861*^9, 
  3.822219035959923*^9, 3.8222219771527243`*^9, 3.8222221195564203`*^9, 
  3.82488356348085*^9, 3.8555736634617567`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"ab5c23c1-ac72-4a32-b089-de1c94189be3"],

Cell[BoxData["\<\"RicciTensorSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218220823605*^9, 3.822218452259861*^9, 
  3.822219035959923*^9, 3.8222219771527243`*^9, 3.8222221195564203`*^9, 
  3.82488356348085*^9, 3.855573663467392*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"255a0c0f-822b-47af-915e-738eaa35d018"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"r", " ", 
           RowBox[{"Q", "(", "r", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}]}], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"P", "(", "r", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", " ", 
         RowBox[{"P", "(", "r", ")"}], " ", 
         RowBox[{"Q", "(", "r", ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           FractionBox[
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"P", "(", "r", ")"}]], "+", "1"}], 
          SuperscriptBox[
           RowBox[{"Q", "(", "r", ")"}], "2"]]}], "+", 
        FractionBox[
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]], "+", "1"}], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"P", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
              RowBox[{"Q", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"Q", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"r", " ", 
            RowBox[{"Q", "(", "r", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]}
     },
     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", 10005.},
 CellChangeTimes->{3.822218220823605*^9, 3.822218452259861*^9, 
  3.822219035959923*^9, 3.8222219771527243`*^9, 3.8222221195564203`*^9, 
  3.82488356348085*^9, 3.855573663504981*^9},
 CellLabel->
  "Out[32]//TraditionalForm=",ExpressionUUID->"3d2b7c5c-01e0-4bfd-9c6b-\
1aa2266c8085"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.8222182272985077`*^9, 3.822218231521441*^9}, 3.824883563481089*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"4a6735e9-6384-4e35-bf30-2db45ab3a719"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218231982243*^9, 3.8222184523109093`*^9, 
  3.8222190360610323`*^9, 3.822221977214343*^9, 3.8222221196126328`*^9, 
  3.824883563481183*^9, 3.85557366351982*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"4b9452ba-7ed0-449e-9bc4-f1822ecf57e8"],

Cell[BoxData["\<\"RicciScalarSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218231982243*^9, 3.8222184523109093`*^9, 
  3.8222190360610323`*^9, 3.822221977214343*^9, 3.8222221196126328`*^9, 
  3.824883563481183*^9, 3.855573663527115*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"efb61834-a348-4e11-9571-87d8fe18ff31"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Q", "(", "r", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"Q", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"P", "(", "r", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
          RowBox[{"Q", "(", "r", ")"}], "-", 
          RowBox[{"2", " ", "r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"Q", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"P", "(", "r", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"Q", "(", "r", ")"}], "3"]}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218231982243*^9, 3.8222184523109093`*^9, 
  3.8222190360610323`*^9, 3.822221977214343*^9, 3.8222221196126328`*^9, 
  3.824883563481183*^9, 3.8555736635619173`*^9},
 CellLabel->
  "Out[35]//TraditionalForm=",ExpressionUUID->"cce4830a-f2a7-45bd-b182-\
addc97c70022"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.822218237778322*^9, 3.822218241545574*^9}, 3.824883563481411*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"cf507bf0-13a3-4545-9fa9-77d4c13a35ac"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218242237618*^9, 3.822218452357191*^9, 
  3.822219036128989*^9, 3.822221977269704*^9, 3.822222119655768*^9, 
  3.824883563481505*^9, 3.855573663578334*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"6fbe7c9f-6dc9-4a7f-a5f6-a1f050daca08"],

Cell[BoxData["\<\"KretschmannScalarSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218242237618*^9, 3.822218452357191*^9, 
  3.822219036128989*^9, 3.822221977269704*^9, 3.822222119655768*^9, 
  3.824883563481505*^9, 3.855573663584097*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"0253861e-530f-40b8-9354-856a65eac355"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"P", "(", "r", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"Q", "(", "r", ")"}], "6"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "4"]}], "+", 
          SuperscriptBox[
           RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "4"], " ", 
        RowBox[{"Q", "(", "r", ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"P", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"P", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"Q", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["r", "4"], " ", 
     SuperscriptBox[
      RowBox[{"P", "(", "r", ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"Q", "(", "r", ")"}], "6"]}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218242237618*^9, 3.822218452357191*^9, 
  3.822219036128989*^9, 3.822221977269704*^9, 3.822222119655768*^9, 
  3.824883563481505*^9, 3.8555736636178837`*^9},
 CellLabel->
  "Out[38]//TraditionalForm=",ExpressionUUID->"56db07d2-0a9e-46bc-9dfd-\
19b59b895c68"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.8222182481387*^9, 3.8222182514007187`*^9}, 3.8248835634817743`*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"9d14404f-4eea-4bd3-a42d-dd47c27e9f7d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222182521173277`*^9, 3.8222184524061947`*^9, 
  3.822219037200184*^9, 3.822221977324131*^9, 3.822222119703484*^9, 
  3.824883563481895*^9, 3.855573663634502*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"7cb9f8b6-cbe9-4d90-b068-b467b91d74e1"],

Cell[BoxData["\<\"EinsteinTensorSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222182521173277`*^9, 3.8222184524061947`*^9, 
  3.822219037200184*^9, 3.822221977324131*^9, 3.822222119703484*^9, 
  3.824883563481895*^9, 3.8555736636408987`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"b3c49f12-1667-4e13-b632-500ab58abe93"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"P", "(", "r", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
           RowBox[{"Q", "(", "r", ")"}], "+", 
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"P", "(", "r", ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "2"]}]}], "+", 
         RowBox[{"P", "(", "r", ")"}], "+", 
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"P", "(", "r", ")"}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"r", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]}
     },
     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", 10005.},
 CellChangeTimes->{3.8222182521173277`*^9, 3.8222184524061947`*^9, 
  3.822219037200184*^9, 3.822221977324131*^9, 3.822222119703484*^9, 
  3.824883563481895*^9, 3.855573663678402*^9},
 CellLabel->
  "Out[41]//TraditionalForm=",ExpressionUUID->"7963f739-c39d-45c7-be6d-\
22ae53b29a8c"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.822218256377748*^9, 3.8222182622731752`*^9}, 3.8248835634821463`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"c1ba6100-7d5a-4da0-8219-63eed85e4120"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222182633646717`*^9, 3.822218452480773*^9, 
  3.822219037416091*^9, 3.8222219773892384`*^9, 3.8222221197535877`*^9, 
  3.824883563482234*^9, 3.855573663724597*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"b0d0ae16-79aa-44a1-bade-4e4e5f66b58c"],

Cell[BoxData["\<\"WeylTensorSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8222182633646717`*^9, 3.822218452480773*^9, 
  3.822219037416091*^9, 3.8222219773892384`*^9, 3.8222221197535877`*^9, 
  3.824883563482234*^9, 3.8555736637306337`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"d0fd700e-47bc-435a-bf86-8bf76cd5f6d4"],

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[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "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[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "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", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "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[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "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", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                RowBox[{"Q", "(", "r", ")"}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                RowBox[{"Q", "(", "r", ")"}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "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", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "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", 
           FractionBox[
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "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", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                RowBox[{"Q", "(", "r", ")"}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                RowBox[{"Q", "(", "r", ")"}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"Q", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "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", "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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "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[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]], "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", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "r", ")"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"Q", "(", "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", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
                  RowBox[{"Q", "(", "r", ")"}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"P", "(", "r", ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"3", " ", 
             RowBox[{"P", "(", "r", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "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", 10005.},
 CellChangeTimes->{3.8222182633646717`*^9, 3.822218452480773*^9, 
  3.822219037416091*^9, 3.8222219773892384`*^9, 3.8222221197535877`*^9, 
  3.824883563482234*^9, 3.855573664155198*^9},
 CellLabel->
  "Out[44]//TraditionalForm=",ExpressionUUID->"5400af91-b2c4-4d4e-9c20-\
232967e7c0fc"],

Cell[BoxData[{
 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", 10005.},
 CellChangeTimes->{{3.822218166294272*^9, 3.8222181775334463`*^9}, {
   3.822218268490795*^9, 3.822218272784504*^9}, 3.824883563482519*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"01bca2bd-222c-428b-a28e-071d0561fcaf"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218273509822*^9, 3.822218452912127*^9, 
  3.822219037905774*^9, 3.822221977997004*^9, 3.822222120206356*^9, 
  3.824883563482677*^9, 3.855573664254859*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"f80295c3-421f-4ce1-84f8-2d2c8c99bdab"],

Cell[BoxData["\<\"CottonTensorSdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.822218273509822*^9, 3.822218452912127*^9, 
  3.822219037905774*^9, 3.822221977997004*^9, 3.822222120206356*^9, 
  3.824883563482677*^9, 3.8555736642612*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"aa4c62af-6d0e-4285-a813-13830592bf70"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"P", "(", "r", ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "4"], "+", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"P", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"r", " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "3"], " ", 
              SuperscriptBox[
               RowBox[{"Q", "(", "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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{"Q", "(", "r", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"P", "(", "r", ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "4"], "+", 
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"P", "(", "r", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"r", " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
                ")"}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox["r", "3"], " ", 
               SuperscriptBox[
                RowBox[{"Q", "(", "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"},
           {"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"},
           {"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[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               RowBox[{"Q", "(", "r", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Q", "(", "r", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"P", "(", "r", ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "4"], "-", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"P", "(", "r", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  RowBox[{"Q", "(", "r", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
                ")"}]}]}], 
             RowBox[{"3", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"P", "(", "r", ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "4"]}]]},
           {"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[{
               SuperscriptBox["r", "2"], " ", 
               RowBox[{"Q", "(", "r", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Q", "(", "r", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"P", "(", "r", ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{"Q", "(", "r", ")"}], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "4"], "+", 
                 SuperscriptBox[
                  RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"P", "(", "r", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"r", " ", 
                   RowBox[{"Q", "(", "r", ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
             RowBox[{"3", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"P", "(", "r", ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Q", "(", "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[{
           {"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"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"P", "(", "r", ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "4"], "-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"P", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
                  ")"}]}]}], ")"}]}], 
             RowBox[{"3", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"P", "(", "r", ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "4"]}]]}
          },
          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[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"Q", "(", "r", ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"P", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"P", "(", "r", ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "4"], "+", 
                   SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"P", "(", "r", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"r", " ", 
                    RowBox[{"Q", "(", "r", ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"Q", "(", "r", ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"P", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"3", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"P", "(", "r", ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"Q", "(", "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]", ")"}]}
     },
     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", 10005.},
 CellChangeTimes->{3.822218273509822*^9, 3.822218452912127*^9, 
  3.822219037905774*^9, 3.822221977997004*^9, 3.822222120206356*^9, 
  3.824883563482677*^9, 3.8555736645536213`*^9},
 CellLabel->
  "Out[47]//TraditionalForm=",ExpressionUUID->"57968f88-faa2-40e3-a980-\
cf6444edef89"]
}, Closed]],

Cell[CellGroupData[{

Cell["Vacuum Field Equations ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855574007251669*^9, 
  3.8555740262782516`*^9}},ExpressionUUID->"bcd9473f-d500-4e44-9e57-\
c0bc86086678"],

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", 10000.},
 CellChangeTimes->{3.855574016067573*^9},
 CellLabel->
  "In[131]:=",ExpressionUUID->"7a993670-ca55-4427-8f6e-54b7f0f993d5"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{"r", " ", 
           RowBox[{"Q", "(", "r", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}]}], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"P", "(", "r", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", " ", 
         RowBox[{"P", "(", "r", ")"}], " ", 
         RowBox[{"Q", "(", "r", ")"}]}]]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           FractionBox[
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], 
            RowBox[{"P", "(", "r", ")"}]], "+", "1"}], 
          SuperscriptBox[
           RowBox[{"Q", "(", "r", ")"}], "2"]]}], "+", 
        FractionBox[
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]], "+", "1"}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"P", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
              RowBox[{"Q", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"Q", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"r", " ", 
            RowBox[{"Q", "(", "r", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]}
     },
     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", 10000.},
 CellChangeTimes->{3.855573675484695*^9, 3.8555740160677643`*^9},
 CellLabel->
  "Out[133]//TraditionalForm=",ExpressionUUID->"145f06bd-3457-415a-a8ba-\
fec66ba1c6fa"],

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", 10000.},
 CellChangeTimes->{3.855574016067981*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"f9e62e6b-8d50-46d8-87a7-bee914b73c14"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"P", "(", "r", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "3"], "-", 
           RowBox[{"Q", "(", "r", ")"}], "+", 
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"P", "(", "r", ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Q", "(", "r", ")"}], "2"]}]}], "+", 
         RowBox[{"P", "(", "r", ")"}], "+", 
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"P", "(", "r", ")"}]}]]},
      {
       FractionBox[
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]},
      {
       FractionBox[
        RowBox[{"r", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", "r", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"P", "(", "r", ")"}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"P", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"P", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Q", "(", "r", ")"}], "3"]}]]}
     },
     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", 10000.},
 CellChangeTimes->{3.855573675535969*^9, 3.855574016068825*^9},
 CellLabel->
  "Out[136]//TraditionalForm=",ExpressionUUID->"3b67cd83-484b-4c64-85e4-\
817bb322f778"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dpdr", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dpdr", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"nonzeroEinstein", "[", 
           RowBox[{"[", "2", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
         " ", 
         RowBox[{
          SuperscriptBox["P", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], " ", "]"}], " ", 
       "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dpdr", "//", " ", "pdConv", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573774447357*^9, 3.855573778470481*^9}, {
   3.855573863711185*^9, 3.855573876602949*^9}, 3.8555740160690107`*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"7248795e-127d-4ca6-8c0e-fecd4d1d7626"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"P", "(", "r", ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"P", "(", "r", ")"}], " ", 
      SuperscriptBox[
       RowBox[{"Q", "(", "r", ")"}], "2"]}], 
     RowBox[{"2", " ", "r"}]], "-", 
    FractionBox[
     RowBox[{"P", "(", "r", ")"}], 
     RowBox[{"2", " ", "r"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.855573779323093*^9, 3.855573878712769*^9, 
  3.855574016069188*^9},
 CellLabel->
  "Out[154]//TraditionalForm=",ExpressionUUID->"28ef4512-6f4b-4b06-ae87-\
e36e590b9c19"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dqdr", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dqdr", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"nonzeroEinstein", "[", 
           RowBox[{"[", "1", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
         " ", 
         RowBox[{
          SuperscriptBox["Q", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], " ", "]"}], " ", 
       "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dqdr", "//", " ", "pdConv", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573729022871*^9, 3.855573760030401*^9}, {
   3.855573841919207*^9, 3.85557385702291*^9}, 3.8555740160694227`*^9},
 CellLabel->
  "In[149]:=",ExpressionUUID->"3825fefc-60b0-4c59-8613-5bd31a759cb7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"Q", "(", "r", ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{"Q", "(", "r", ")"}], 
     RowBox[{"2", " ", "r"}]], "-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"Q", "(", "r", ")"}], "3"], 
     RowBox[{"2", " ", "r"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573729840817*^9, 3.8555737604392843`*^9}, 
   3.85557385781566*^9, 3.855574016070622*^9},
 CellLabel->
  "Out[151]//TraditionalForm=",ExpressionUUID->"698d652e-5314-49b7-bdca-\
6af664f13bf5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2pdr2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2pdr2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "4", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        " ", 
        RowBox[{
         SuperscriptBox["P", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], " ", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2pdr2", "  ", "//", " ", "Expand", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.85557380566989*^9, 3.855573839221805*^9}, {
   3.855573898734932*^9, 3.8555739148863583`*^9}, 3.855574016071006*^9},
 CellLabel->
  "In[155]:=",ExpressionUUID->"462b345b-4dc5-4054-81ca-7b7e14d3e51c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["P", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["P", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}], "r"]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"P", "[", "r", "]"}], " ", 
     RowBox[{
      SuperscriptBox["Q", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}]}], 
    RowBox[{"r", " ", 
     RowBox[{"Q", "[", "r", "]"}]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["P", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}], " ", 
     RowBox[{
      SuperscriptBox["Q", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}]}], 
    RowBox[{"Q", "[", "r", "]"}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573807351812*^9, 3.855573839567211*^9}, 
   3.855573915334612*^9, 3.8555740160718412`*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"c741a5c0-5976-4eda-a5d2-76d6574b67ad"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "vacuumFieldEquation", "]"}], "\[IndentingNewLine]", 
 RowBox[{"vacuumFieldEquation", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"d2pdr2", "   ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{"dpdr", "  ", "/.", " ", 
       RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}]}], "  ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{"dqdr", "  ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}]}], "  ", "//", " ", 
   "Expand", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573921494647*^9, 3.855574016072092*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"f8fef2d6-cf07-4c32-9d4d-816157d45e07"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["P", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "r", "]"}], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", 
     RowBox[{"P", "[", "r", "]"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"P", "[", "r", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"Q", "[", "r", "]"}], "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"P", "[", "r", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"Q", "[", "r", "]"}], "4"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855573937562326*^9, 3.855574016072858*^9}},
 CellLabel->
  "Out[169]=",ExpressionUUID->"cca2f4dc-47ca-4cba-9f1d-28de59b2996c"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"eq8", ",", "l"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"There", "'"}], "s", " ", "the", " ", "l", " ", "here"}], ",", 
    " ", 
    RowBox[{
     RowBox[{"null", " ", "vector", " ", "l", " ", "and", " ", "\[ScriptL]"}],
      " ", "-", " ", 
     RowBox[{"they", " ", "all", " ", "clash"}], " ", "-", " ", 
     RowBox[{"Change", " ", "this", " ", "to", " ", "L"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"P", "[", "r", "]"}], "2"], " ", "\[Equal]", " ", 
    RowBox[{"1", " ", "-", " ", 
     FractionBox[
      SuperscriptBox["r", "2"], 
      SuperscriptBox["L", "2"]]}], "\[Equal]", " ", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"Q", "[", "r", "]"}], "2"]]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", "[", 
  RowBox[{"[", 
   RowBox[{"1", ";;", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", "[", 
  RowBox[{"[", 
   RowBox[{"2", ";;", "3"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.82221725794806*^9, 3.822217320139221*^9}, {
  3.822218768779385*^9, 3.822218769585672*^9}, {3.8222220545184813`*^9, 
  3.822222083628148*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"155abf15-7b47-445f-986b-c94e5951382c"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"P", "[", "r", "]"}], "2"], "\[Equal]", 
  RowBox[{"1", "-", 
   FractionBox[
    SuperscriptBox["r", "2"], 
    SuperscriptBox["L", "2"]]}]}]], "Output",
 CellChangeTimes->{{3.822217308178268*^9, 3.822217320410079*^9}, 
   3.822217484559764*^9, 3.822218453250596*^9, 3.822218769998259*^9, 
   3.822219038232789*^9, 3.822221978445072*^9, 3.822222120605728*^9, 
   3.8555736645840263`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"9d11ea7d-1ed1-4ca7-b1f1-5a5e387af4e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "-", 
   FractionBox[
    SuperscriptBox["r", "2"], 
    SuperscriptBox["L", "2"]]}], "\[Equal]", 
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"Q", "[", "r", "]"}], "2"]]}]], "Output",
 CellChangeTimes->{{3.822217308178268*^9, 3.822217320410079*^9}, 
   3.822217484559764*^9, 3.822218453250596*^9, 3.822218769998259*^9, 
   3.822219038232789*^9, 3.822221978445072*^9, 3.822222120605728*^9, 
   3.855573664588255*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"08995130-6a6c-4f30-817a-7c6d4f816b4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "pqSimplify", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pqSimplify", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"eq8", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", " ", 
          RowBox[{"eq8", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], " ", ",", " ", 
         RowBox[{"P", "[", "r", "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"eq8", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", " ", 
          RowBox[{"eq8", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], " ", ",", " ", 
         RowBox[{"Q", "[", "r", "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pqSimplify", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.82221863708179*^9, 3.822218697249826*^9}, {
  3.8222188745008383`*^9, 3.822218904066835*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"64fa789b-426c-4fd6-83d4-6a372489bb7a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"P", "[", "r", "]"}], "\[Rule]", 
       FractionBox["1", 
        RowBox[{"Q", "[", "r", "]"}]]}]},
     {
      RowBox[{
       RowBox[{"Q", "[", "r", "]"}], "\[Rule]", 
       FractionBox["1", 
        RowBox[{"P", "[", "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",
 CellChangeTimes->{{3.822218639590417*^9, 3.822218697774908*^9}, 
   3.82221890437958*^9, 3.822219038272719*^9, 3.822221978489215*^9, 
   3.82222212063796*^9, 3.855573664622081*^9},
 CellLabel->
  "Out[54]//TableForm=",ExpressionUUID->"51f77adf-27a9-450a-b90c-\
abd0b7a516ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq8a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", "  ", 
        RowBox[{
         RowBox[{"eq8", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "2"}], "]"}], "]"}], " ", ",", " ", 
         RowBox[{"P", "[", "r", "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", "  ", 
        RowBox[{
         RowBox[{"eq8", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;", "3"}], "]"}], "]"}], " ", ",", " ", 
         RowBox[{"Q", "[", "r", "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq8a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8222173322094507`*^9, 3.822217347227219*^9}, {
  3.822217543233371*^9, 3.8222175790554733`*^9}, {3.822217874669827*^9, 
  3.822217886612899*^9}, {3.822218709227293*^9, 3.8222188392000513`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"cf21d91b-c624-4239-89cc-dfa1ae8c54c1"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"P", "[", "r", "]"}], "\[Rule]", 
       FractionBox[
        SqrtBox[
         RowBox[{
          SuperscriptBox["L", "2"], "-", 
          SuperscriptBox["r", "2"]}]], "L"]}]},
     {
      RowBox[{
       RowBox[{"Q", "[", "r", "]"}], "\[Rule]", 
       FractionBox["L", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["L", "2"], "-", 
          SuperscriptBox["r", "2"]}]]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8222187457240973`*^9, 3.8222188394863377`*^9}, 
   3.822219038307982*^9, 3.822221978530105*^9, 3.8222221206689453`*^9, 
   3.855573664659684*^9},
 CellLabel->
  "Out[57]//TableForm=",ExpressionUUID->"59780c89-c8d2-489b-91c7-\
d052e52064b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "pqReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pqReplace", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{"eq8a", " ", ",", "  ", "\[IndentingNewLine]", 
     RowBox[{"D", "[", " ", 
      RowBox[{"eq8a", " ", ",", " ", "r"}], " ", "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", " ", 
        RowBox[{"eq8a", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"r", " ", ",", "2"}], "}"}]}], "]"}], " ", "//", " ", 
       "Expand"}], " ", "//", " ", "Simplify"}]}], " ", "\[IndentingNewLine]",
     "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"pqReplace", "  ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.822217906461269*^9, 3.822217980719617*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"2264db0c-ea54-45cb-842f-d4e10d1db97a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"P", "[", "r", "]"}], "\[Rule]", 
       FractionBox[
        SqrtBox[
         RowBox[{
          SuperscriptBox["L", "2"], "-", 
          SuperscriptBox["r", "2"]}]], "L"]}], 
      RowBox[{
       RowBox[{"Q", "[", "r", "]"}], "\[Rule]", 
       FractionBox["L", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["L", "2"], "-", 
          SuperscriptBox["r", "2"]}]]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["P", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox["r", 
         RowBox[{"L", " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["L", "2"], "-", 
            SuperscriptBox["r", "2"]}]]}]]}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["Q", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{"L", " ", "r"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["L", "2"], "-", 
           SuperscriptBox["r", "2"]}], ")"}], 
         RowBox[{"3", "/", "2"}]]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["P", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox["L", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["L", "2"], "-", 
            SuperscriptBox["r", "2"]}], ")"}], 
          RowBox[{"3", "/", "2"}]]]}]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["Q", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{"L", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["L", "2"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["L", "2"], "-", 
           SuperscriptBox["r", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.822217912642703*^9, 3.8222179811834717`*^9}, 
   3.82221845332069*^9, 3.822219038393566*^9, 3.822221978575203*^9, 
   3.822222120700533*^9, 3.855573664700552*^9},
 CellLabel->
  "Out[60]//MatrixForm=",ExpressionUUID->"0dd33c9b-b220-4763-8aeb-\
773a413b899a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}], " ", "/.", " ", "pqReplace"}], "  ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8222175974450283`*^9, 3.822217604505934*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"88b2fea4-6a55-4b70-855f-f0242b4a7c49"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["L", "2"], "-", 
             SuperscriptBox["r", "2"]}], 
            SuperscriptBox["L", "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"},
          {
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox["L", "2"], 
             RowBox[{
              SuperscriptBox["L", "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[{
          {"0"},
          {"0"},
          {
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}]},
          {"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["r", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
         },
         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[{
          {
           SuperscriptBox[
            RowBox[{"P", "[", "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"},
          {
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"Q", "[", "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[{
          {"0"},
          {"0"},
          {
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}]},
          {"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["r", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
         },
         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[{
          {
           SuperscriptBox[
            RowBox[{"P", "[", "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"},
          {
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"Q", "[", "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[{
          {"0"},
          {"0"},
          {
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}]},
          {"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["r", "2"]}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
         },
         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$]]]], "Output",
 CellChangeTimes->{3.822217605876698*^9, 3.8222184533369207`*^9, 
  3.822219038415303*^9, 3.8222219785912523`*^9, 3.822222120712846*^9, 
  3.85557366471775*^9},
 CellLabel->
  "Out[61]//MatrixForm=",ExpressionUUID->"802884cb-fe36-4d49-9a87-\
04cb3a064f12"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "leave", " ", "these", " ", "in", " ", "terms", " ", "of", " ", 
    
    RowBox[{"P", "[", "r", "]"}]}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.8222180143503857`*^9, 3.822218031387747*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"c742709f-59f7-4734-820e-8cab50d162d5"],

Cell[CellGroupData[{

Cell["Construction of Null Tetrad", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8248835907514753`*^9, 
  3.824883625963524*^9}},ExpressionUUID->"01ef6049-2018-43a4-bac1-\
6929581867ee"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Clear", "[", "\[ScriptL]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"\[ScriptL]", " ", "=", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", 
       SqrtBox["2"]], ")"}], 
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"P", "[", "r", "]"}]], ",", 
       RowBox[{"P", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], 
     " "}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821113429260067*^9, {3.822217694669878*^9, 3.822217718253414*^9}, 
   3.8222183252914553`*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"eff2b3b3-6da8-40e0-a1db-f349b6f1bdad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", 
     RowBox[{"P", "[", "r", "]"}]}]], ",", 
   FractionBox[
    RowBox[{"P", "[", "r", "]"}], 
    SqrtBox["2"]], ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8211134292601967`*^9, 3.8222177190257883`*^9, 
  3.8222183278669853`*^9, 3.822218453376277*^9, 3.82221903845578*^9, 
  3.822221978636538*^9, 3.822222120750165*^9, 3.855573664766222*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"d316aa0d-9383-4bcf-9064-15bd344c241e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["1", 
     SqrtBox["2"]], ")"}], 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"P", "[", "r", "]"}]], ",", 
     RowBox[{"-", 
      RowBox[{"P", "[", "r", "]"}]}], ",", "0", ",", "0"}], "}"}], 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8211134292603073`*^9, {3.822217731502088*^9, 3.8222177360772753`*^9}, 
   3.8222183322843246`*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"61ac6ebb-0c2d-4abc-80ff-31b017ea9f9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", 
     RowBox[{"P", "[", "r", "]"}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"P", "[", "r", "]"}], 
     SqrtBox["2"]]}], ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.821113429260345*^9, 3.822217736588625*^9, 
  3.8222183326539507`*^9, 3.82221845340829*^9, 3.822219038485944*^9, 
  3.822221978668693*^9, 3.82222212078089*^9, 3.855573664805934*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"b4afb479-fc42-4aee-a2ba-4286cc460b6f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", "r"}]], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", " ", ",", 
     RowBox[{"\[ImaginaryI]", "  ", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}]}], " ", "}"}], 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821113429260425*^9, {3.822217748253237*^9, 3.822217783092772*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"8a46ff1d-fdb6-43d6-8bbc-1f622a79a4b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", "r"}]], ",", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"Csc", "[", "\[Theta]", "]"}]}], 
    RowBox[{
     SqrtBox["2"], " ", "r"}]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8211134292604637`*^9, 3.822217766429406*^9, 
  3.822218453421969*^9, 3.8222190385026007`*^9, 3.8222219786841516`*^9, 
  3.822222120795438*^9, 3.855573664823225*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"2756bafc-6849-43f4-a17f-821ca4ec7b64"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", "r"}]], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", " ", ",", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], "  ", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}]}], " ", "}"}], 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821113429260536*^9, {3.822217776463792*^9, 3.8222177929727383`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"e0959386-3496-448e-890c-52439092aaaa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox["1", 
    RowBox[{
     SqrtBox["2"], " ", "r"}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}], 
     RowBox[{
      SqrtBox["2"], " ", "r"}]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.821113429260563*^9, 3.822218453463399*^9, 
  3.822219038533884*^9, 3.8222219787192793`*^9, 3.822222120827574*^9, 
  3.855573664861224*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"a7252c2a-bcee-4199-92cd-94625aa771b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "needed", " ", 
    "are", " ", "up", " ", "or", " ", "down", "  ", "and", " ", "for", " ", 
    "this", " ", "tetrad", " ", "they", " ", "are", " ", "UP"}], "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"ToTensor", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
      ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}]}], " ", "\[IndentingNewLine]", 
   RowBox[{"m", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<m\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}]}], " ", "\[IndentingNewLine]", 
   RowBox[{"mbar", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<mbar\>\""}], " ", 
       "}"}], " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]bar", " ", 
      ",", " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}], " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8211134292606277`*^9, {3.822217795125576*^9, 3.822217809255273*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"b3cf6254-9cca-4608-b269-4bc57fc7efa3"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822218453476775*^9, 3.822219038554541*^9, 
  3.82222197873916*^9, 3.822222120848527*^9, 3.8248836130427322`*^9, 
  3.8555736648852243`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"5fa23e68-3bdb-4344-a420-026833a503c6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822218453476775*^9, 3.822219038554541*^9, 
  3.82222197873916*^9, 3.822222120848527*^9, 3.8248836130427322`*^9, 
  3.855573664890552*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"3595d3c7-2609-4c4c-b788-0747eb300d34"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822218453476775*^9, 3.822219038554541*^9, 
  3.82222197873916*^9, 3.822222120848527*^9, 3.8248836130427322`*^9, 
  3.8555736648940783`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"1dd07732-83ee-438a-a5e7-65f4db8ae394"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.822218453476775*^9, 3.822219038554541*^9, 
  3.82222197873916*^9, 3.822222120848527*^9, 3.8248836130427322`*^9, 
  3.855573664898575*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"ff9e7583-2ce0-4ac8-90ee-f94aff377c05"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"ContractIndices", "[", 
        RowBox[{
         RowBox[{"l", "[", 
          RowBox[{"-", "\[Mu]"}], "]"}], 
         RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
      " ", "0"}], "   ", "/.", " ", 
     RowBox[{"pqSimplify", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], "   ", "//",
    " ", "Simplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"ContractIndices", "[", 
        RowBox[{
         RowBox[{"n", "[", 
          RowBox[{"-", "\[Mu]"}], "]"}], 
         RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", 
      " ", "0"}], "  ", "/.", " ", 
     RowBox[{"pqSimplify", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"m", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"ContractIndices", "[", 
        RowBox[{
         RowBox[{"l", "[", 
          RowBox[{"-", "\[Mu]"}], "]"}], 
         RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
      " ", "1"}], " ", "/.", " ", 
     RowBox[{"pqSimplify", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "//", " ", "Expand"}], " ", "//", " ",
    "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"ContractIndices", "[", 
        RowBox[{
         RowBox[{"l", "[", "\[Mu]", "]"}], 
         RowBox[{"n", "[", 
          RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ",
       "1"}], "   ", "/.", " ", 
     RowBox[{"pqSimplify", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "//", " ", "Expand"}], " ", "//", " ",
    "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", 
     RowBox[{"-", "1"}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", "\[Mu]", "]"}], 
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     
     RowBox[{"-", "1"}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessDownIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessDownIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
    "  ", "/.", " ", 
    RowBox[{"pqSimplify", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "MatrixForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", "metric1", "]"}], " ", "\[Equal]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", " ", 
         RowBox[{
         "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
         "]"}]}], " ", "]"}], "  ", "/.", " ", 
      RowBox[{"pqSimplify", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "//", " ", "Expand"}], " ", "//", 
    " ", "FullSimplify"}], "  ", "//", " ", "MatrixForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessUpIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessUpIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"l", "[", "\[Mu]", "]"}], 
      RowBox[{"n", "[", "\[Nu]", "]"}]}], "+", 
     RowBox[{
      RowBox[{"n", "[", "\[Mu]", "]"}], 
      RowBox[{"l", "[", "\[Nu]", "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Mu]", "]"}], 
      RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Nu]", "]"}], 
      RowBox[{"mbar", "[", "\[Mu]", "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
     "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], "  ", "//", 
   " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "inverse1", "]"}], " ", "\[Equal]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", " ", 
        RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}],
         "]"}]}], " ", "]"}], "   ", "/.", " ", 
     RowBox[{"pqSimplify", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "//", " ", "Expand"}], " ", "//", " ",
    "FullSimplify"}], "  ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821113429260829*^9, {3.822218502260922*^9, 3.8222185066586103`*^9}, {
   3.8222189510590057`*^9, 3.822218976348275*^9}, {3.8222190127852488`*^9, 
   3.822219014516205*^9}, {3.822219187617023*^9, 3.822219267774632*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"afd9b096-e165-4832-8a96-eee0e4ae4bb9"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573664954011*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"588f9f11-0495-4682-ae3b-c52e6701be07"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573664961239*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"11d4ffee-8523-42cd-8c5b-a47977e88db9"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.8555736649656887`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"995a2758-119d-45b1-9429-5729fa530b79"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573664969838*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"0ab8dbee-466b-4cc0-87f2-f9ceb020115f"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573664980432*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"9d3ef9f6-9af3-4d43-b8aa-b8e4fd2bf0a4"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665014099*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"d2955bc4-f65b-4ad9-b3e1-a32791381277"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665019065*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"3ba2a95b-f127-4f9e-b4ed-0e66625c7851"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.8555736650244827`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"582085a4-e803-4e69-8598-e10dbaef300e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"Q", "[", "r", "]"}], "2"]], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Q", "[", "r", "]"}], "2"]}], "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", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665061598*^9},
 CellLabel->
  "Out[85]//MatrixForm=",ExpressionUUID->"9c7e2907-481b-4cf7-b456-\
df2403a5d5d6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"}
     },
     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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665067181*^9},
 CellLabel->
  "Out[86]//MatrixForm=",ExpressionUUID->"2453ca32-b719-4787-9ddd-\
804f2ab53e90"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"P", "[", "r", "]"}], "2"]], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"P", "[", "r", "]"}], "2"]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["r", "2"]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665108942*^9},
 CellLabel->
  "Out[89]//MatrixForm=",ExpressionUUID->"541a0068-9160-441c-8e60-\
fd3a62c358dc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {"True"}
     },
     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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.822219038604739*^9, {3.822219191899331*^9, 3.8222192685440683`*^9}, 
   3.822221978807917*^9, 3.8222221208997583`*^9, 3.824883613043174*^9, 
   3.855573665114478*^9},
 CellLabel->
  "Out[90]//MatrixForm=",ExpressionUUID->"3dd787d7-b01a-4b87-88db-\
12c1ad9e3e77"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation of Newman Penrose Quantities", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8248836295803432`*^9, 
  3.8248836647642307`*^9}},ExpressionUUID->"fe141adc-6bf8-4a5f-bfd7-\
963bcc252c61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "spinCoefficientReplace", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "check", " ", "where", " ", "these", " ", "definitions", " ", "came", " ", 
    "from"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Rho]", " ", "\[Rule]", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ",
           "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], " ", ")"}]}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Mu]", "\[Rule]", " ", 
      RowBox[{"(*", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", " ", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
               RowBox[{"-", "\[Nu]"}]}], " ", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"m", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
           "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
         "FullSimplify"}], " ", ")"}]}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CurlyEpsilon]", " ", "\[Rule]", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", " ", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", 
                   RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
                  RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", 
              " ", "FullSimplify"}], "  ", ")"}], "  ", "-", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", " ", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", " ", 
                   RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                  RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
              "FullSimplify"}], ")"}]}], " ", ")"}]}], " ", "//", " ", 
         "Expand"}], "  ", "//", " ", "FullSimplify"}], " ", ")"}]}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Gamma]", " ", "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "something", " ", "weird", " ", "here", " ", "correct", " ", 
          "definition", " ", "off", " ", "by", " ", "minus", " ", "sign"}], 
         " ", "*)"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            FractionBox["1", "2"], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", " ", 
                   RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"n", "[", "\[Mu]", "]"}], 
                  RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", 
                " ", "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", 
              ")"}], "-", "\[IndentingNewLine]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"MergeTensors", "[", 
                  RowBox[{
                   RowBox[{"CovariantD", "[", " ", 
                    RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                   RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                   RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                 "TensorValues"}], " ", "//", " ", "Expand"}], "  ", "//", 
               " ", "FullSimplify"}], " ", ")"}]}], ")"}]}], " ", "//", " ", 
          "Expand"}], " ", ")"}]}], " ", "//", " ", "Expand"}], " ", "//", 
      " ", "FullSimplify"}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Sigma]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
          "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], ")"}]}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], ",", 
               RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], "  ", "//", 
           " ", "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
         "FullSimplify"}], ")"}]}]}], "  ", ",", "\[IndentingNewLine]", 
     RowBox[{"\[Kappa]", "\[Rule]", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"l", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"l", "[", "\[Nu]", "]"}]}], "  ", "]"}], "  ", "//", " ", 
        "TensorValues"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"\[Nu]", "\[Rule]", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"n", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
        "TensorValues"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"l", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"n", "[", "\[Nu]", " ", "]"}]}], "]"}], "//", " ", 
        "TensorValues"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"\[Pi]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"Note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"n", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
          "TensorValues"}], "  ", "//", " ", "Expand"}], " ", ")"}]}]}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Alpha]", "\[Rule]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"l", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], " ", ")"}], "-", "\[IndentingNewLine]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"m", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], ")"}]}], ")"}]}], " ", ")"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", " ", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"Spin", " ", "coefficient", " ", "\[Beta]"}], " ", "*)"}], " ",
       "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", " ", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"l", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"n", "[", "\[Mu]", "]"}], 
              RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], ")"}], "-", " ", "\[IndentingNewLine]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"m", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], " ", ")"}]}], ")"}]}], ")"}]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"spinCoefficientReplace", "  ", "/.", " ", 
       RowBox[{"pqSimplify", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "  ", "/.", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"pqSimplify", "[", 
         RowBox[{"[", "2", "]"}], "]"}], " ", ",", "r"}], "]"}]}], " ", "//", 
     " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
   "TableForm"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8211134689384613`*^9, {3.822219543090407*^9, 3.8222195662489023`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"fd0f8bf4-6683-4fda-8ce3-b152376ee805"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"P", "(", "r", ")"}], 
          RowBox[{
           SqrtBox["2"], " ", "r"}]]}]}]},
      {
       RowBox[{"\[Mu]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"P", "(", "r", ")"}], 
          RowBox[{
           SqrtBox["2"], " ", "r"}]]}]}]},
      {
       RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"P", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]]}]},
      {
       RowBox[{"\[Gamma]", "\[Rule]", 
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"P", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]]}]},
      {
       RowBox[{"\[Sigma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Lambda]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Kappa]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Nu]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Tau]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Pi]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Alpha]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"cot", "(", "\[Theta]", ")"}], 
          RowBox[{"2", " ", 
           SqrtBox["2"], " ", "r"}]]}]}]},
      {
       RowBox[{"\[Beta]", "\[Rule]", 
        FractionBox[
         RowBox[{"cot", "(", "\[Theta]", ")"}], 
         RowBox[{"2", " ", 
          SqrtBox["2"], " ", "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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.822219303919765*^9, 3.822219568191495*^9, 
  3.822221980673923*^9, 3.822222122781516*^9, 3.8248836512714033`*^9, 
  3.855573667008039*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"9fbda741-7c93-4915-8aac-\
1287ab595daf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Can", " ", "do", " ", "more", " ", "algebra", " ", "later", " ", "for", 
    " ", "\[Epsilon]", " ", "and", " ", "\[Gamma]"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82221963083503*^9, 3.822219645368018*^9}, 
   3.824883651271542*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"89f09afe-8f56-4573-bae0-abfe1bb06c35"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pqSimplify", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"pqSimplify", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", ",", "r"}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822219517530814*^9, 3.822219534153137*^9}, 
   3.8248836512716303`*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"94359068-e67d-4224-87fc-cf3d490aa443"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Q", "[", "r", "]"}], "\[Rule]", 
  FractionBox["1", 
   RowBox[{"P", "[", "r", "]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82221950979041*^9, 3.8222195346251297`*^9}, 
   3.822221980768403*^9, 3.82222212288595*^9, 3.824883651271731*^9, 
   3.855573667092044*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"23571a82-1b76-42c7-839d-94e75282d79b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Q", "\[Prime]",
    MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["P", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}], 
    SuperscriptBox[
     RowBox[{"P", "[", "r", "]"}], "2"]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82221950979041*^9, 3.8222195346251297`*^9}, 
   3.822221980768403*^9, 3.82222212288595*^9, 3.824883651271731*^9, 
   3.855573667097939*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"62ee598d-cdde-42d5-a04c-9a506dec66c3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ricciScalarsReplace", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{"be", " ", "careful", " ", "about", " ", 
          RowBox[{"oh", "'"}], "s", " ", "not", " ", "zeros"}], " ", "*)"}], 
        " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], "  ", ",", " ", 
     "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"m", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "4"], ")"}], "*", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"(", " ", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"l", "[", "\[Mu]", "]"}], 
               RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}], "+", 
           " ", 
           RowBox[{"(", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"m", "[", "\[Mu]", "]"}], 
               RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}]}], 
          ")"}]}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
      "FullSimplify"}], ",", " ", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalLambda]", "\[Rule]", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", "24"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], "//", " ", "Expand"}], 
      " ", "//", " ", "FullSimplify"}]}], "\[IndentingNewLine]", "}"}]}], " ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ricciScalarsReplace", "   ", "/.", " ", 
       RowBox[{"pqSimplify", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "  ", "/.", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"pqSimplify", "[", 
         RowBox[{"[", "2", "]"}], "]"}], " ", ",", "r"}], "]"}]}], " ", "//", 
     " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
   "TableForm"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8211134689387197`*^9, {3.822219656664693*^9, 3.8222196714802217`*^9}, 
   3.822222153156198*^9, 3.8222222108753*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"a233eee4-1bcd-43e7-9fbb-85cd622b912f"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"P", "(", "r", ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"P", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           SuperscriptBox[
            RowBox[{"P", "(", "r", ")"}], "2"], "+", "1"}], 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"]}]]}]}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", "0"}]},
      {
       RowBox[{"\[CapitalLambda]", "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"P", "(", "r", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"4", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"P", "(", "r", ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"P", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"P", "(", "r", ")"}], "2"], "-", "1"}], 
         RowBox[{"12", " ", 
          SuperscriptBox["r", "2"]}]]}]}
     },
     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.822219380982378*^9, 3.822219672141144*^9, 
  3.8222219812395887`*^9, 3.822222123337687*^9, 3.822222156424118*^9, 
  3.822222213420939*^9, 3.824883651271887*^9, 3.85557366761594*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"df1b7c4e-6a4d-422f-8380-\
1b9c3191beef"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ricciScalarsReplace", "   ", "/.", " ", 
        RowBox[{"pqSimplify", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "  ", "/.", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"pqSimplify", "[", 
          RowBox[{"[", "2", "]"}], "]"}], " ", ",", "r"}], "]"}]}], " ", "/.",
       " ", 
      RowBox[{"Table", "[", " ", 
       RowBox[{
        RowBox[{"pqReplace", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "TableForm"}], 
  " ", "//", " ", "pdConv", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"ours", " ", "is", " ", "negative"}], " ", "-", " ", 
    RowBox[{"not", " ", "sure", " ", "why"}]}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822221823330885*^9, 3.8222218806823378`*^9}, 
   3.8248836512719793`*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"da8dda27-dec4-4396-a33e-c2ec6da6bbb1"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", "0"}]},
      {
       RowBox[{"\[CapitalLambda]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["L", "2"]}]]}]}]}
     },
     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.82222183553214*^9, 3.822221858844459*^9}, 
   3.822221981271523*^9, 3.822222123375004*^9, 3.824883651272043*^9, 
   3.855573667658876*^9},
 CellLabel->
  "Out[100]//TraditionalForm=",ExpressionUUID->"19de3628-7be4-41d3-9735-\
253b4f5c2d19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "weylScalarsReplace", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"n", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     "\t", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"l", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n",
      "\t", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"mbar", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", "  ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8211134689388247`*^9, 3.8222197432359447`*^9, 3.822221772008101*^9, 
   3.822221806428616*^9, {3.822221895131092*^9, 3.822221924443348*^9}, {
   3.855574061490101*^9, 
   3.855574083065723*^9}},ExpressionUUID->"6a19957b-52e1-4c28-8589-\
f578591c51db"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"P", "(", "r", ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Q", "(", "r", ")"}], "2"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"Q", "(", "r", ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"P", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Q", "(", "r", ")"}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"Q", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"P", "(", "r", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox[
                 RowBox[{"Q", "(", "r", ")"}], "3"]}], "+", 
               RowBox[{"Q", "(", "r", ")"}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"Q", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
         RowBox[{"12", " ", 
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"P", "(", "r", ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Q", "(", "r", ")"}], "3"]}]]}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", "0"}]}
     },
     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.822219405839274*^9, 3.8222197491776457`*^9, 3.822221780663725*^9, {
   3.822221914388897*^9, 3.822221927086781*^9}, 3.822221986162156*^9, 
   3.82222212849789*^9, 3.824883651272108*^9, 3.855573672803443*^9},
 CellLabel->
  "Out[103]//TraditionalForm=",ExpressionUUID->"5bcc3fce-c705-4549-8139-\
54d916e46477"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"pqReplace", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822221660970005*^9, 3.822221716240933*^9}, 
   3.824883651272183*^9},
 CellLabel->
  "In[104]:=",ExpressionUUID->"8bd9b9f2-4e8d-4eb2-ac62-14d7d85d3614"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"P", "[", "r", "]"}], "\[Rule]", 
       FractionBox[
        SqrtBox[
         RowBox[{
          SuperscriptBox["L", "2"], "-", 
          SuperscriptBox["r", "2"]}]], "L"]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["P", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox["r", 
         RowBox[{"L", " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["L", "2"], "-", 
            SuperscriptBox["r", "2"]}]]}]]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["P", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox["L", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["L", "2"], "-", 
            SuperscriptBox["r", "2"]}], ")"}], 
          RowBox[{"3", "/", "2"}]]]}]}]}
    },
    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.822221620066317*^9, {3.822221662471756*^9, 3.822221716523796*^9}, 
   3.8222219862545137`*^9, 3.8222221285918922`*^9, 3.8248836512722692`*^9, 
   3.8555736728598413`*^9},
 CellLabel->
  "Out[104]//TableForm=",ExpressionUUID->"c54d5b7d-a64c-444b-bc47-\
36afb4d2814f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"weylScalarsReplace", "[", 
       RowBox[{"[", "3", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"pqSimplify", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "  ", "/.", " ", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"pqSimplify", "[", 
        RowBox[{"[", "2", "]"}], "]"}], " ", ",", "r"}], "]"}]}], " ", "/.", 
    " ", 
    RowBox[{"Table", "[", " ", 
     RowBox[{
      RowBox[{"pqReplace", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], " ", "//", " ", 
   "Expand"}], " ", "//", " ", "Simplify", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822221733905633*^9, 3.822221749915278*^9}, 
   3.8248836512723513`*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"e5bf1004-e807-4cf2-bd6e-ce5d2551e6c3"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", "0"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8222217502740602`*^9, 3.822221986270698*^9, 
  3.8222221286102543`*^9, 3.824883651272436*^9, 3.855573672877486*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"561b1804-bc87-46d8-bfd5-0fa917c78839"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Can", " ", "reduce", " ", "this", " ", "more", " ", "later"}], 
   " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822219766557513*^9, 3.822219771714592*^9}, 
   3.8248836512725143`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"c5d69712-7c1b-4e33-8fb8-b6eaeab1d5c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"eq46", ",", "l", ",", "m"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "figure", " ", "out", " ", "how", " ", "not", " ", "to", " ", "get", " ", 
     "a", " ", "clash", " ", "with", " ", "l"}], ",", 
    RowBox[{"m", " ", "null", " ", "vectors", " ", "and", " ", "l"}], ",", 
    RowBox[{"m", " ", "parts", " ", "of", " ", "SWSH"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq46", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]splus", "[", 
    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", 
   "\[Equal]", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", "t"}], "]"}], " ", 
    RowBox[{"Rsplus", "[", "r", "]"}], " ", 
    RowBox[{"SpinWeightedSpheroidalHarmonicS", "[", 
     RowBox[{
     "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
      "\[Phi]"}], "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.822219826886116*^9, 3.82221986115646*^9}, {
  3.822219967706352*^9, 3.822220042370476*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"3dcff646-a8df-466c-ba7d-006d8482ac83"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Chi]splus", "[", 
   RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
   RowBox[{"Rsplus", "[", "r", "]"}], " ", 
   RowBox[{"SpinWeightedSpheroidalHarmonicS", "[", 
    RowBox[{
    "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
     "\[Phi]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.822219972482724*^9, 3.8222200123849583`*^9, 
  3.822220042730809*^9, 3.822221986316841*^9, 3.822222128653893*^9, 
  3.855573672919674*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"1ee70f54-2fce-4ae5-a106-bc7928033b32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "chiCheck", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"chiCheck", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", "t"}], "]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "2"}], "}"}]}], "]"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", "r"}], "]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "2"}], "}"}]}], "]"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", "\[Theta]"}], "]"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", 
       RowBox[{"{", 
        RowBox[{"\[Theta]", ",", "2"}], "}"}]}], "]"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", "\[Phi]"}], "]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{"eq46", ",", 
       RowBox[{"{", 
        RowBox[{"\[Phi]", ",", "2"}], "}"}]}], "]"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"chiCheck", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellChangeTimes->{{3.822220025434072*^9, 3.822220149553588*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"af0bf799-9b60-4540-841d-67d4c4e46c8c"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
          RowBox[{
          "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
           "\[Phi]"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         SuperscriptBox["\[Omega]", "2"], " ", 
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]]}], 
          ")"}], " ", 
         RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
          RowBox[{
          "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
           "\[Phi]"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"Rsplus", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
          RowBox[{
          "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
           "\[Phi]"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"Rsplus", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None], " ", 
         RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
          RowBox[{
          "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
           "\[Phi]"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
            RowBox[{
            "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
             "\[Phi]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Theta]"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Theta]", "2"]}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
            RowBox[{
            "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
             "\[Phi]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Theta]", "2"]}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Phi]"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
            RowBox[{
            "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
             "\[Phi]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Phi]"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Chi]splus", "(", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Phi]", "2"]}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"Rsplus", "(", "r", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[Omega]"}]], " ", 
         
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"SpinWeightedSpheroidalHarmonicS", "(", 
            RowBox[{
            "s", ",", "l", ",", "m", ",", "\[Gamma]", ",", "\[Theta]", ",", 
             "\[Phi]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Phi]", "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",
 CellChangeTimes->{{3.8222200310269413`*^9, 3.822220100351699*^9}, 
   3.822220149824729*^9, 3.822221986367474*^9, 3.822222128712805*^9, 
   3.855573672972967*^9},
 CellLabel->
  "Out[111]//TraditionalForm=",ExpressionUUID->"f929b9ef-3b11-4719-b5df-\
dcd27cd42b8a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq105", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq105", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"y", 
      RowBox[{"(", 
       RowBox[{"1", "-", "y"}], ")"}], 
      RowBox[{"D", "[", " ", 
       RowBox[{"#", ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"c", " ", "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b", "+", "a"}], ")"}], "y"}]}], ")"}], " ", 
      RowBox[{"D", "[", 
       RowBox[{"#", ",", "y"}], "]"}]}], " ", "-", " ", 
     RowBox[{"a", " ", "b", " ", "#"}]}], " ", ")"}], " ", "&"}]}]}], "Input",\

 CellChangeTimes->{{3.822220815207344*^9, 3.8222209097007523`*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"55608fc6-9525-4349-8b71-631b8e476148"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "y"}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"{", 
       RowBox[{"y", ",", "2"}], "}"}]], "#1"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "b", "+", "a"}], ")"}], " ", "y"}]}], ")"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "y"], "#1"}]}], "-", 
   RowBox[{"a", " ", "b", " ", "#1"}]}], "&"}]], "Output",
 CellChangeTimes->{3.8222209173448153`*^9, 3.822221986404273*^9, 
  3.822222128727179*^9, 3.8555736729888763`*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"62813be3-c68d-454a-84f1-4492d919836e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq105", "[", 
  RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8222209340422363`*^9, 3.822220937498835*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"6d079b38-8414-4a31-9ba9-b857ba506ab9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "a"}], " ", "b", " ", 
   RowBox[{"\[CapitalPhi]", "[", "y", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"c", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "b"}], ")"}], " ", "y"}]}], ")"}], " ", 
   
   RowBox[{
    SuperscriptBox["\[CapitalPhi]", "\[Prime]",
     MultilineFunction->None], "[", "y", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "y"}], ")"}], " ", "y", " ", 
   RowBox[{
    SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "y", "]"}]}]}]], "Output",
 CellChangeTimes->{3.82222093774267*^9, 3.822221986417265*^9, 
  3.822222128754902*^9, 3.855573673025654*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"9049b32e-1f31-4e06-a3e3-3a89682bb92e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq106", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq106", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"a", " ", "\[Equal]", " ", 
      RowBox[{"A", " ", "+", " ", "B", " ", "+", " ", 
       FractionBox["1", "4"], "+", " ", 
       RowBox[{
        FractionBox["1", "4"], 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"8", "\[Alpha]"}]}]]}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"b", " ", "\[Equal]", " ", 
      RowBox[{"A", " ", "+", " ", "B", " ", "+", " ", 
       FractionBox["1", "4"], "-", " ", 
       RowBox[{
        FractionBox["1", "4"], 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"8", "\[Alpha]"}]}]]}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"c", " ", "\[Equal]", " ", 
      RowBox[{
       RowBox[{"2", " ", "A"}], " ", "+", " ", 
       FractionBox["1", "2"]}]}]}], " ", "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq106", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.822220970924941*^9, 3.8222210361220818`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"e1e82f6c-9dc7-4898-881c-b8167c7b597b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"a", "\[Equal]", 
       RowBox[{
        FractionBox["1", "4"], "+", "A", "+", "B", "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}]}]}]},
     {
      RowBox[{"b", "\[Equal]", 
       RowBox[{
        FractionBox["1", "4"], "+", "A", "+", "B", "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}]}]}]},
     {
      RowBox[{"c", "\[Equal]", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        RowBox[{"2", " ", "A"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.822221036435527*^9, 3.822221986451977*^9, 
  3.822222128770377*^9, 3.8555736730638227`*^9},
 CellLabel->
  "Out[117]//TableForm=",ExpressionUUID->"a5a6a0a2-e261-4603-a2e0-\
c4911cbeb02e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eq106", " ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.822221110864147*^9, 3.822221117438813*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"369760af-a591-44f0-af17-8e070a39bc3c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"a", "\[Rule]", 
       RowBox[{
        FractionBox["1", "4"], "+", "A", "+", "B", "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}]}]}]},
     {
      RowBox[{"b", "\[Rule]", 
       RowBox[{
        FractionBox["1", "4"], "+", "A", "+", "B", "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}]}]}]},
     {
      RowBox[{"c", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        RowBox[{"2", " ", "A"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.822221118188431*^9, 3.822221986467493*^9, 
  3.822222128801227*^9, 3.855573673077415*^9},
 CellLabel->
  "Out[118]//TableForm=",ExpressionUUID->"2eb57afe-bb32-4656-9358-\
82642c90c0a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq107", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq107", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", " ", "\[Equal]", " ", 
      RowBox[{
       FractionBox["1", "2"], "+", " ", 
       FractionBox["j", "2"]}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"B", " ", "\[Equal]", " ", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq107", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8222210413334618`*^9, 3.822221089959577*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"51acac71-24e4-4316-8c4d-abaf24feeb4d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"A", "\[Equal]", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["j", "2"]}]}]},
     {
      RowBox[{"B", "\[Equal]", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.822221090291706*^9, 3.82222198650038*^9, 
  3.822222128817671*^9, 3.8555736731131268`*^9},
 CellLabel->
  "Out[121]//TableForm=",ExpressionUUID->"56fdfaaa-97b7-4772-9a91-\
00d5d67111ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eq107", "  ", "/.", " ", 
   RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.822221096064374*^9, 3.822221103791069*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"eac3de06-d7c7-4f38-8f29-439892899300"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"A", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        FractionBox["j", "2"]}]}]},
     {
      RowBox[{"B", "\[Rule]", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.822221099807398*^9, 3.822221104105979*^9}, 
   3.8222219865155773`*^9, 3.822222128848235*^9, 3.855573673126861*^9},
 CellLabel->
  "Out[122]//TableForm=",ExpressionUUID->"fad69408-3736-4e0d-aa7d-\
826d50d8f8da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{"eq106", "  ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{"eq107", "  ", "/.", " ", 
       RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", 
    ")"}], " ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.822221174308784*^9, 3.822221207043908*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"cd2f7a6c-bb17-4654-af7a-d5b917ee6c8a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"a", "\[Rule]", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}]}]},
     {
      RowBox[{"b", "\[Rule]", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}]}]},
     {
      RowBox[{"c", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "2"], "+", 
           FractionBox["j", "2"]}], ")"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8222211712910557`*^9, 3.822221207363717*^9}, 
   3.822221986548518*^9, 3.8222221288644238`*^9, 3.855573673162696*^9},
 CellLabel->
  "Out[123]//TableForm=",ExpressionUUID->"b3120d3b-c7c7-4e34-8c8f-\
21126e0df098"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eq105", "[", 
    RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}], " ", "\[Equal]", " ", 
   "0"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"DSolve", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"eq105", "[", 
       RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}], " ", "\[Equal]", " ", 
      "0"}], "  ", ",", " ", 
     RowBox[{"\[CapitalPhi]", "[", "y", "]"}], " ", ",", " ", "y"}], " ", 
    "]"}], " ", "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.8222214019728127`*^9, 3.822221432330783*^9}, {
  3.822221486008836*^9, 3.822221512499723*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"505686a3-0bbd-4e77-b0be-1aa0dcf69130"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "a"}], " ", "b", " ", 
    RowBox[{"\[CapitalPhi]", "[", "y", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "a"}], "+", "b"}], ")"}], " ", "y"}]}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "y"}], ")"}], " ", "y", " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{{3.822221411914461*^9, 3.822221432885645*^9}, {
   3.822221488275776*^9, 3.8222215128058023`*^9}, 3.822221986568145*^9, 
   3.822222128909051*^9, 3.855573673179731*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"c557f6e1-85d2-4e8a-a48c-3927bce68eca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "\[Rule]", 
   RowBox[{
    RowBox[{
     TemplateBox[{"1"},
      "C"], " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], "+", "a", "+", 
        FractionBox["b", "2"], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "a"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["a", "2"]}], "-", 
           RowBox[{"2", " ", "b"}], "+", 
           SuperscriptBox["b", "2"]}]]}]}], ",", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], "+", "a", "+", 
        FractionBox["b", "2"], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "a"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["a", "2"]}], "-", 
           RowBox[{"2", " ", "b"}], "+", 
           SuperscriptBox["b", "2"]}]]}]}], ",", "c", ",", "y"}], "]"}]}], 
    "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"1", "-", "c"}]], " ", 
     SuperscriptBox["y", 
      RowBox[{"1", "-", "c"}]], " ", 
     TemplateBox[{"2"},
      "C"], " ", 
     RowBox[{"Hypergeometric2F1", "[", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], "+", "a", "+", 
        FractionBox["b", "2"], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "a"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["a", "2"]}], "-", 
           RowBox[{"2", " ", "b"}], "+", 
           SuperscriptBox["b", "2"]}]]}], "-", "c"}], ",", 
       RowBox[{
        FractionBox["1", "2"], "+", "a", "+", 
        FractionBox["b", "2"], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "a"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["a", "2"]}], "-", 
           RowBox[{"2", " ", "b"}], "+", 
           SuperscriptBox["b", "2"]}]]}], "-", "c"}], ",", 
       RowBox[{"2", "-", "c"}], ",", "y"}], "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.822221411914461*^9, 3.822221432885645*^9}, {
   3.822221488275776*^9, 3.8222215128058023`*^9}, 3.822221986568145*^9, 
   3.822222128909051*^9, 3.855573673580917*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"aa126911-5b9b-4e88-b7bf-7826efd857ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"eq105", "[", 
  RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"eq105", "[", 
     RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}], " ", "/.", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"eq106", "  ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{"eq107", "  ", "/.", " ", 
          RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ",
        ")"}], " ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", ")"}], 
  " ", "\[Equal]", " ", "0", " "}]}], "Input",
 CellChangeTimes->{{3.822221223941423*^9, 3.82222127547442*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"93eb41a1-d689-4e34-8e10-14d0ee1b0f41"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "a"}], " ", "b", " ", 
   RowBox[{"\[CapitalPhi]", "[", "y", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"c", "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "b"}], ")"}], " ", "y"}]}], ")"}], " ", 
   
   RowBox[{
    SuperscriptBox["\[CapitalPhi]", "\[Prime]",
     MultilineFunction->None], "[", "y", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "y"}], ")"}], " ", "y", " ", 
   RowBox[{
    SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "y", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.822221219719452*^9, 3.8222212762438374`*^9}, 
   3.822221986900696*^9, 3.822222129266873*^9, 3.8555736735951757`*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"16ca8bfd-786d-4461-8390-c764073c8679"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}], " ", 
      RowBox[{"\[CapitalPhi]", "[", "y", "]"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "2"], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], "+", 
         FractionBox["j", "2"]}], ")"}]}], "-", 
      RowBox[{"y", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "4"], "+", 
         FractionBox["j", "2"], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["3", "4"], "+", 
            FractionBox["j", "2"], "+", 
            RowBox[{
             FractionBox["1", "4"], " ", 
             SqrtBox[
              RowBox[{"1", "+", 
               RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}]}]}], 
     ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "y"}], ")"}], " ", "y", " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{{3.822221219719452*^9, 3.8222212762438374`*^9}, 
   3.822221986900696*^9, 3.822222129266873*^9, 3.855573673599844*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"c7e22b2c-5d4c-41ac-8752-d4c603216340"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq108a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq108a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"eq105", "[", 
      RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "]"}], " ", "/.", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"eq106", "  ", "/.", " ", 
         RowBox[{"(", " ", 
          RowBox[{"eq107", "  ", "/.", " ", 
           RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], 
        " ", ")"}], " ", "/.", " ", 
       RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", ")"}], 
   " ", "\[Equal]", " ", "0", " "}]}]}], "Input",
 CellChangeTimes->{{3.822221280943173*^9, 3.822221299526682*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"1e56cf80-b986-493e-ba17-0d0e8a2a5a86"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "-", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["3", "4"], "+", 
        FractionBox["j", "2"], "+", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
        FractionBox[
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}], " ", 
      RowBox[{"\[CapitalPhi]", "[", "y", "]"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "2"], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], "+", 
         FractionBox["j", "2"]}], ")"}]}], "-", 
      RowBox[{"y", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["3", "4"], "+", 
         FractionBox["j", "2"], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["3", "4"], "+", 
            FractionBox["j", "2"], "+", 
            RowBox[{
             FractionBox["1", "4"], " ", 
             SqrtBox[
              RowBox[{"1", "+", 
               RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], "2"]}], ")"}]}]}], 
     ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "y"}], ")"}], " ", "y", " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPhi]", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "y", "]"}]}]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.822221300846388*^9, 3.822221986938305*^9, 
  3.82222212930199*^9, 3.855573673637583*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"03323fbd-484d-41ae-8f95-a01929b23a9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DSolve", "[", " ", 
   RowBox[{"eq108a", " ", ",", " ", 
    RowBox[{"\[CapitalPhi]", "[", "y", "]"}], " ", ",", " ", "y"}], " ", 
   "]"}], " "}]], "Input",
 CellChangeTimes->{{3.8222213236371183`*^9, 3.8222213355005836`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"d4a08ded-bc92-451b-8da7-f94fb781d947"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[CapitalPhi]", "[", "y", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ImaginaryI]", 
       RowBox[{
        RowBox[{"-", "1"}], "-", 
        RowBox[{"2", " ", "j"}]}]], " ", 
      SuperscriptBox["y", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "-", 
          RowBox[{"2", " ", "j"}]}], ")"}]}]], " ", 
      TemplateBox[{"2"},
       "C"], " ", 
      RowBox[{"Hypergeometric2F1", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "8"], "-", 
         FractionBox["j", "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         FractionBox[
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "4"], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "5"}], "-", 
               RowBox[{"6", " ", "j"}], "-", 
               SqrtBox[
                RowBox[{"1", "+", 
                 RowBox[{"8", " ", "\[Alpha]"}]}]], "-", 
               RowBox[{"6", " ", "\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], 
             "2"], "+", 
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", 
               RowBox[{"3", " ", "j"}], "-", 
               SuperscriptBox["j", "2"], "+", 
               RowBox[{"2", " ", "\[Alpha]"}], "-", 
               RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "-", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "j", " ", "\[Omega]"}],
                "+", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}]}], ",", 
        RowBox[{
         FractionBox["1", "8"], "-", 
         FractionBox["j", "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         FractionBox[
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "5"}], "-", 
               RowBox[{"6", " ", "j"}], "-", 
               SqrtBox[
                RowBox[{"1", "+", 
                 RowBox[{"8", " ", "\[Alpha]"}]}]], "-", 
               RowBox[{"6", " ", "\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], 
             "2"], "+", 
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", 
               RowBox[{"3", " ", "j"}], "-", 
               SuperscriptBox["j", "2"], "+", 
               RowBox[{"2", " ", "\[Alpha]"}], "-", 
               RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "-", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "j", " ", "\[Omega]"}],
                "+", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}]}], ",", 
        RowBox[{
         FractionBox["1", "2"], "-", "j"}], ",", "y"}], "]"}]}], "+", 
     RowBox[{
      TemplateBox[{"1"},
       "C"], " ", 
      RowBox[{"Hypergeometric2F1", "[", 
       RowBox[{
        RowBox[{
         FractionBox["5", "8"], "+", 
         FractionBox[
          RowBox[{"3", " ", "j"}], "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         FractionBox[
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "4"], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "5"}], "-", 
               RowBox[{"6", " ", "j"}], "-", 
               SqrtBox[
                RowBox[{"1", "+", 
                 RowBox[{"8", " ", "\[Alpha]"}]}]], "-", 
               RowBox[{"6", " ", "\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], 
             "2"], "+", 
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", 
               RowBox[{"3", " ", "j"}], "-", 
               SuperscriptBox["j", "2"], "+", 
               RowBox[{"2", " ", "\[Alpha]"}], "-", 
               RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "-", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "j", " ", "\[Omega]"}],
                "+", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}]}], ",", 
        RowBox[{
         FractionBox["5", "8"], "+", 
         FractionBox[
          RowBox[{"3", " ", "j"}], "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Alpha]"}]}]]}], "+", 
         FractionBox[
          RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "4"], "+", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "5"}], "-", 
               RowBox[{"6", " ", "j"}], "-", 
               SqrtBox[
                RowBox[{"1", "+", 
                 RowBox[{"8", " ", "\[Alpha]"}]}]], "-", 
               RowBox[{"6", " ", "\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], 
             "2"], "+", 
            RowBox[{"16", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", 
               RowBox[{"3", " ", "j"}], "-", 
               SuperscriptBox["j", "2"], "+", 
               RowBox[{"2", " ", "\[Alpha]"}], "-", 
               RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Omega]"}], "-", 
               RowBox[{"2", " ", "\[ImaginaryI]", " ", "j", " ", "\[Omega]"}],
                "+", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}]}], ",", 
        RowBox[{
         FractionBox["3", "2"], "+", "j"}], ",", "y"}], "]"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.822221337456263*^9, 3.8222219884659233`*^9, 
  3.822222130866971*^9, 3.855573675374675*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"40e6d3e4-0b40-4385-8b42-0e3c76c3a8bc"]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1232, 673},
WindowMargins->{{12, Automatic}, {-78, Automatic}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"905939f9-cbd9-4756-bec5-841125b24dba"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 451, 9, 221, "Title",ExpressionUUID->"5d9efb17-c835-44de-9a60-63578a68d304",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[1034, 33, 1435, 24, 94, "Author",ExpressionUUID->"a164a15f-430a-4188-a166-6e7b572e6acf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[2484, 60, 443, 11, 41, "Input",ExpressionUUID->"87b20b0d-1565-4543-8696-595bf0f7549c"],
Cell[CellGroupData[{
Cell[2952, 75, 228, 4, 69, "Section",ExpressionUUID->"1bbd5a45-cb7d-40d8-a2c6-3ac09327ae7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3183, 81, 434, 9, 63, "Input",ExpressionUUID->"e78956a1-d971-430a-b6e4-f2b5fff7ad93",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3620, 92, 1434, 22, 43, "Output",ExpressionUUID->"66050f61-e89e-46e5-84a0-f571ed300f63",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5091, 119, 279, 5, 55, "Section",ExpressionUUID->"17aa8ee0-0bc9-4f7c-a611-cd161177c1d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5373, 126, 604, 10, 63, "Input",ExpressionUUID->"973b7a32-1b90-42b8-b014-66a4b34902ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5980, 138, 565, 10, 43, "Output",ExpressionUUID->"c805cc13-b8db-468d-b814-7d47f1a8a2e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6582, 153, 301, 5, 55, "Section",ExpressionUUID->"c81d1ab7-3120-4ba1-8031-a682bae8c9fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[6886, 160, 1592, 42, 210, "Input",ExpressionUUID->"3c6fd44a-d013-4915-a41a-2fce27821ad5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8481, 204, 596, 12, 24, "Print",ExpressionUUID->"0c60541e-7a42-4917-a159-b7944eaa59d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9080, 218, 613, 13, 24, "Print",ExpressionUUID->"bff80550-4629-4e9d-b37f-827e7b810c42",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9696, 233, 1116, 18, 105, "Output",ExpressionUUID->"ea9523dc-0643-4099-986b-287afe033d5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10815, 253, 268, 4, 41, "Input",ExpressionUUID->"04eeea85-3447-4c68-913c-17ddc57d8199",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11086, 259, 303, 5, 41, "Input",ExpressionUUID->"2e455748-13bb-4e0b-b746-ca6d1664e730",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[11426, 269, 312, 5, 55, "Section",ExpressionUUID->"2f339a2c-7c72-4f52-b9df-d90074eacbce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[11741, 276, 1592, 40, 126, "Input",ExpressionUUID->"02720b56-1b78-4120-9a57-a4ea720f4862",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13336, 318, 1079, 26, 84, "Input",ExpressionUUID->"d55ebfaf-f031-47fc-87d3-c9f41bd4ef2b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14452, 349, 225, 4, 55, "Section",ExpressionUUID->"d59ebf02-bb3f-45ad-8c28-e922c0ef3105",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[14680, 355, 909, 24, 86, "Input",ExpressionUUID->"e7e98c42-9082-448c-9017-d7f4f00581cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[15592, 381, 871, 23, 44, "Output",ExpressionUUID->"b9742d55-eae0-4ab2-beb9-ad4fb481a65b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[16466, 406, 703, 13, 105, "Input",ExpressionUUID->"a9aed748-8aac-4c90-8b5a-10b6695974af",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17172, 421, 1290, 37, 113, "Output",ExpressionUUID->"543b3fe3-eaf2-407f-ae7b-4787815284c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18465, 460, 529, 10, 105, "Input",ExpressionUUID->"332dde90-55ff-4f67-823a-85845780b724",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18997, 472, 1326, 39, 145, "Output",ExpressionUUID->"bb2d0bac-4ff2-4ceb-8be8-72906ef26a82",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20326, 513, 433, 10, 41, "Input",ExpressionUUID->"06b0adf5-86c8-411b-9691-cb8eeff52aa8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20762, 525, 873, 24, 101, "Output",ExpressionUUID->"a47f2587-67a3-4a98-a572-e3bca9bead0f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21638, 551, 436, 10, 41, "Input",ExpressionUUID->"75c6d9bf-205e-466d-9705-a09c51790d6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22077, 563, 867, 24, 101, "Output",ExpressionUUID->"b82f6c18-c08d-464c-9133-c366e53f2da3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[22981, 592, 231, 4, 55, "Section",ExpressionUUID->"ca179d1c-d9d7-44e3-a339-b1bc13d692c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[23215, 598, 5492, 126, 714, "Input",ExpressionUUID->"5beaec75-9d54-4830-8dcd-f2335c9ef2ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[28710, 726, 815, 18, 65, "Input",ExpressionUUID->"e374ab6b-90dc-4842-9c88-9b487cb0681f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[29528, 746, 402, 7, 41, "Output",ExpressionUUID->"056b688d-d61b-436a-bf45-34fd612e1a24",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[29933, 755, 691, 17, 84, "Input",ExpressionUUID->"e565b226-c600-425b-94c9-321d80c93f5a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[30627, 774, 443, 9, 45, "Output",ExpressionUUID->"e9223bae-904a-40d2-a275-706b61da3450",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[31073, 785, 355, 5, 41, "Output",ExpressionUUID->"43780eab-30c3-4559-84d5-4836bde22470",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[31431, 792, 1302, 37, 112, "Output",ExpressionUUID->"bd847290-cbe9-443c-acc1-00be32fe5858",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[32736, 831, 689, 17, 84, "Input",ExpressionUUID->"fb4b254a-aae0-49d1-9f20-9d8f4793c486",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[33428, 850, 480, 10, 45, "Output",ExpressionUUID->"bf455d32-8336-460e-9fcd-9e3f099e7f1d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[33911, 862, 373, 5, 41, "Output",ExpressionUUID->"63930999-82ed-4014-bcb7-9c03e63227aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[34287, 869, 11698, 350, 370, "Output",ExpressionUUID->"da29077f-7e83-41bd-a7ce-9e13b0800032",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45988, 1221, 691, 17, 84, "Input",ExpressionUUID->"8182524d-2670-4128-89c9-c2c3e2caf1d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46682, 1240, 434, 8, 45, "Output",ExpressionUUID->"db68fe04-d017-4311-9be5-ccb593e4aa37",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47119, 1250, 371, 5, 41, "Output",ExpressionUUID->"760aa764-7e92-49ce-ad4d-cfd9a0d1893b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47493, 1257, 21449, 561, 504, "Output",ExpressionUUID->"5955ffe4-dd4d-4b33-bd6d-ba872452436d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[68945, 1820, 737, 17, 84, "Input",ExpressionUUID->"408863b0-479a-436e-b917-a283ab9061a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[69685, 1839, 417, 8, 45, "Output",ExpressionUUID->"ab5c23c1-ac72-4a32-b089-de1c94189be3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[70105, 1849, 366, 5, 41, "Output",ExpressionUUID->"255a0c0f-822b-47af-915e-738eaa35d018",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[70474, 1856, 5343, 148, 218, "Output",ExpressionUUID->"3d2b7c5c-01e0-4bfd-9c6b-1aa2266c8085",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[75820, 2006, 739, 17, 84, "Input",ExpressionUUID->"4a6735e9-6384-4e35-bf30-2db45ab3a719",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[76562, 2025, 380, 7, 41, "Output",ExpressionUUID->"4b9452ba-7ed0-449e-9bc4-f1822ecf57e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[76945, 2034, 369, 5, 41, "Output",ExpressionUUID->"efb61834-a348-4e11-9571-87d8fe18ff31",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77317, 2041, 2367, 66, 87, "Output",ExpressionUUID->"cce4830a-f2a7-45bd-b182-addc97c70022",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79687, 2109, 737, 17, 84, "Input",ExpressionUUID->"cf507bf0-13a3-4545-9fa9-77d4c13a35ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80427, 2128, 375, 7, 41, "Output",ExpressionUUID->"6fbe7c9f-6dc9-4a7f-a5f6-a1f050daca08",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80805, 2137, 369, 5, 41, "Output",ExpressionUUID->"0253861e-530f-40b8-9354-856a65eac355",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81177, 2144, 3622, 103, 88, "Output",ExpressionUUID->"56db07d2-0a9e-46bc-9dfd-19b59b895c68",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[84802, 2249, 739, 17, 84, "Input",ExpressionUUID->"9d14404f-4eea-4bd3-a42d-dd47c27e9f7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85544, 2268, 416, 8, 45, "Output",ExpressionUUID->"7cb9f8b6-cbe9-4d90-b068-b467b91d74e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85963, 2278, 372, 5, 41, "Output",ExpressionUUID->"b3c49f12-1667-4e13-b632-500ab58abe93",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[86338, 2285, 5178, 143, 206, "Output",ExpressionUUID->"7963f739-c39d-45c7-be6d-22ae53b29a8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[91519, 2430, 741, 17, 84, "Input",ExpressionUUID->"c1ba6100-7d5a-4da0-8219-63eed85e4120",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[92263, 2449, 434, 8, 45, "Output",ExpressionUUID->"b0d0ae16-79aa-44a1-bade-4e4e5f66b58c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[92700, 2459, 370, 5, 41, "Output",ExpressionUUID->"d0fd700e-47bc-435a-bf86-8bf76cd5f6d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[93073, 2466, 62531, 1521, 556, "Output",ExpressionUUID->"5400af91-b2c4-4d4e-9c20-232967e7c0fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[155607, 3989, 737, 17, 84, "Input",ExpressionUUID->"01bca2bd-222c-428b-a28e-071d0561fcaf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[156347, 4008, 420, 8, 45, "Output",ExpressionUUID->"f80295c3-421f-4ce1-84f8-2d2c8c99bdab",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[156770, 4018, 362, 5, 41, "Output",ExpressionUUID->"aa4c62af-6d0e-4285-a813-13830592bf70",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[157135, 4025, 51933, 1273, 402, "Output",ExpressionUUID->"57968f88-faa2-40e3-a980-cf6444edef89",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[209105, 5303, 225, 4, 55, "Section",ExpressionUUID->"bcd9473f-d500-4e44-9e57-c0bc86086678",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[209333, 5309, 1317, 34, 105, "Input",ExpressionUUID->"7a993670-ca55-4427-8f6e-54b7f0f993d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[210653, 5345, 5151, 147, 218, "Output",ExpressionUUID->"145f06bd-3457-415a-a8ba-fec66ba1c6fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[215807, 5494, 1329, 35, 105, "Input",ExpressionUUID->"f9e62e6b-8d50-46d8-87a7-bee914b73c14",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[217139, 5531, 4983, 142, 206, "Output",ExpressionUUID->"3b67cd83-484b-4c64-85e4-817bb322f778",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[222125, 5675, 1077, 26, 105, "Input",ExpressionUUID->"7248795e-127d-4ca6-8c0e-fecd4d1d7626",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[223205, 5703, 750, 23, 72, "Output",ExpressionUUID->"28ef4512-6f4b-4b06-ae87-e36e590b9c19",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[223958, 5728, 1075, 26, 105, "Input",ExpressionUUID->"3825fefc-60b0-4c59-8613-5bd31a759cb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[225036, 5756, 716, 21, 72, "Output",ExpressionUUID->"698d652e-5314-49b7-bdca-6af664f13bf5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[225755, 5779, 1029, 24, 105, "Input",ExpressionUUID->"462b345b-4dc5-4054-81ca-7b7e14d3e51c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[226787, 5805, 1086, 32, 60, "Output",ExpressionUUID->"c741a5c0-5976-4eda-a5d2-76d6574b67ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[227876, 5839, 748, 16, 84, "Input",ExpressionUUID->"f8fef2d6-cf07-4c32-9d4d-816157d45e07",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[228627, 5857, 899, 28, 61, "Output",ExpressionUUID->"cca2f4dc-47ca-4cba-9f1d-28de59b2996c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[229563, 5890, 1384, 37, 152, "Input",ExpressionUUID->"155abf15-7b47-445f-986b-c94e5951382c"],
Cell[230950, 5929, 520, 12, 61, "Output",ExpressionUUID->"9d11ea7d-1ed1-4ca7-b1f1-5a5e387af4e3"],
Cell[231473, 5943, 541, 13, 64, "Output",ExpressionUUID->"08995130-6a6c-4f30-817a-7c6d4f816b4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[232051, 5961, 1354, 32, 147, "Input",ExpressionUUID->"64fa789b-426c-4fd6-83d4-6a372489bb7a"],
Cell[233408, 5995, 984, 30, 87, "Output",ExpressionUUID->"51f77adf-27a9-450a-b90c-abd0b7a516ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234429, 6030, 1281, 29, 147, "Input",ExpressionUUID->"cf21d91b-c624-4239-89cc-dfa1ae8c54c1"],
Cell[235713, 6061, 1126, 36, 93, "Output",ExpressionUUID->"59780c89-c8d2-489b-91c7-d052e52064b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[236876, 6102, 901, 19, 168, "Input",ExpressionUUID->"2264db0c-ea54-45cb-842f-d4e10d1db97a"],
Cell[237780, 6123, 2839, 88, 143, "Output",ExpressionUUID->"0dd33c9b-b220-4763-8aeb-773a413b899a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240656, 6216, 438, 10, 41, "Input",ExpressionUUID->"88b2fea4-6a55-4b70-855f-f0242b4a7c49"],
Cell[241097, 6228, 8472, 256, 259, "Output",ExpressionUUID->"802884cb-fe36-4d49-9a87-04cb3a064f12"]
}, Open  ]],
Cell[249584, 6487, 354, 8, 41, "Input",ExpressionUUID->"c742709f-59f7-4734-820e-8cab50d162d5"],
Cell[CellGroupData[{
Cell[249963, 6499, 229, 4, 69, "Section",ExpressionUUID->"01ef6049-2018-43a4-bac1-6929581867ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[250195, 6505, 706, 19, 114, "Input",ExpressionUUID->"eff2b3b3-6da8-40e0-a1db-f349b6f1bdad",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[250904, 6526, 593, 14, 62, "Output",ExpressionUUID->"d316aa0d-9383-4bcf-9064-15bd344c241e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[251500, 6542, 680, 18, 114, "Input",ExpressionUUID->"61ac6ebb-0c2d-4abc-80ff-31b017ea9f9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[252183, 6562, 610, 15, 62, "Output",ExpressionUUID->"b4afb479-fc42-4aee-a2ba-4286cc460b6f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[252796, 6579, 634, 15, 110, "Input",ExpressionUUID->"8a46ff1d-fdb6-43d6-8bbc-1f622a79a4b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[253433, 6596, 614, 15, 61, "Output",ExpressionUUID->"2756bafc-6849-43f4-a17f-821ca4ec7b64",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[254050, 6613, 664, 16, 110, "Input",ExpressionUUID->"e0959386-3496-448e-890c-52439092aaaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[254717, 6631, 612, 16, 61, "Output",ExpressionUUID->"a7252c2a-bcee-4199-92cd-94625aa771b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[255332, 6649, 2150, 52, 126, "Input",ExpressionUUID->"b3cf6254-9cca-4608-b269-4bc57fc7efa3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[257485, 6703, 383, 8, 43, "Output",ExpressionUUID->"5fa23e68-3bdb-4344-a420-026833a503c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[257871, 6713, 381, 8, 43, "Output",ExpressionUUID->"3595d3c7-2609-4c4c-b788-0747eb300d34",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[258255, 6723, 383, 8, 43, "Output",ExpressionUUID->"1dd07732-83ee-438a-a5e7-65f4db8ae394",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[258641, 6733, 384, 8, 43, "Output",ExpressionUUID->"ff9e7583-2ce0-4ac8-90ee-f94aff377c05",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[259028, 6743, 7335, 208, 525, "Input",ExpressionUUID->"afd9b096-e165-4832-8a96-eee0e4ae4bb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[266366, 6953, 356, 6, 41, "Output",ExpressionUUID->"588f9f11-0495-4682-ae3b-c52e6701be07",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[266725, 6961, 356, 6, 41, "Output",ExpressionUUID->"11d4ffee-8523-42cd-8c5b-a47977e88db9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[267084, 6969, 358, 6, 41, "Output",ExpressionUUID->"995a2758-119d-45b1-9429-5729fa530b79",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[267445, 6977, 356, 6, 41, "Output",ExpressionUUID->"0ab8dbee-466b-4cc0-87f2-f9ceb020115f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[267804, 6985, 356, 6, 41, "Output",ExpressionUUID->"9d3ef9f6-9af3-4d43-b8aa-b8e4fd2bf0a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[268163, 6993, 356, 6, 41, "Output",ExpressionUUID->"d2955bc4-f65b-4ad9-b3e1-a32791381277",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[268522, 7001, 356, 6, 41, "Output",ExpressionUUID->"3ba2a95b-f127-4f9e-b4ed-0e66625c7851",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[268881, 7009, 358, 6, 41, "Output",ExpressionUUID->"582085a4-e803-4e69-8598-e10dbaef300e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[269242, 7017, 1274, 38, 121, "Output",ExpressionUUID->"9c7e2907-481b-4cf7-b456-df2403a5d5d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[270519, 7057, 1094, 39, 305, "Output",ExpressionUUID->"2453ca32-b719-4787-9ddd-804f2ab53e90",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[271616, 7098, 1301, 39, 137, "Output",ExpressionUUID->"541a0068-9160-441c-8e60-fd3a62c358dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[272920, 7139, 1094, 39, 305, "Output",ExpressionUUID->"3dd787d7-b01a-4b87-88db-12c1ad9e3e77",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[274051, 7183, 244, 4, 69, "Section",ExpressionUUID->"fe141adc-6bf8-4a5f-bfd7-963bcc252c61",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[274298, 7189, 12996, 320, 554, "Input",ExpressionUUID->"fd0f8bf4-6683-4fda-8ce3-b152376ee805",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[287297, 7511, 2499, 81, 322, "Output",ExpressionUUID->"9fbda741-7c93-4915-8aac-1287ab595daf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[289799, 7594, 446, 10, 41, "Input",ExpressionUUID->"89f09afe-8f56-4573-bae0-abfe1bb06c35",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[290248, 7606, 481, 11, 63, "Input",ExpressionUUID->"94359068-e67d-4224-87fc-cf3d490aa443",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[290732, 7619, 430, 9, 59, "Output",ExpressionUUID->"23571a82-1b76-42c7-839d-94e75282d79b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[291165, 7630, 633, 16, 62, "Output",ExpressionUUID->"62ee598d-cdde-42d5-a04c-9a506dec66c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[291801, 7648, 7053, 186, 567, "Input",ExpressionUUID->"a233eee4-1bcd-43e7-9fbb-85cd622b912f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[298857, 7836, 3576, 101, 208, "Output",ExpressionUUID->"df1b7c4e-6a4d-422f-8380-1b9c3191beef",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[302436, 7939, 1214, 32, 63, "Input",ExpressionUUID->"da8dda27-dec4-4396-a33e-c2ec6da6bbb1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[303653, 7973, 1497, 46, 162, "Output",ExpressionUUID->"19de3628-7be4-41d3-9735-253b4f5c2d19",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[305153, 8021, 5603, 144, 315, "Input",ExpressionUUID->"6a19957b-52e1-4c28-8589-f578591c51db",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[310759, 8167, 3497, 95, 148, "Output",ExpressionUUID->"5bcc3fce-c705-4549-8139-54d916e46477",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[314259, 8264, 525, 14, 41, "Input",ExpressionUUID->"8bd9b9f2-4e8d-4eb2-ac62-14d7d85d3614",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[314787, 8280, 1742, 55, 125, "Output",ExpressionUUID->"c54d5b7d-a64c-444b-bc47-36afb4d2814f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[316532, 8337, 979, 27, 41, "Input",ExpressionUUID->"e5bf1004-e807-4cf2-bd6e-ce5d2551e6c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[317514, 8366, 365, 7, 41, "Output",ExpressionUUID->"561b1804-bc87-46d8-bfd5-0fa917c78839",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[317882, 8375, 386, 9, 41, "Input",ExpressionUUID->"c5d69712-7c1b-4e33-8fb8-b6eaeab1d5c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[318305, 8389, 1212, 29, 84, "Input",ExpressionUUID->"3dcff646-a8df-466c-ba7d-006d8482ac83"],
Cell[319520, 8420, 729, 17, 41, "Output",ExpressionUUID->"1ee70f54-2fce-4ae5-a106-bc7928033b32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[320286, 8442, 1550, 40, 273, "Input",ExpressionUUID->"af0bf799-9b60-4540-841d-67d4c4e46c8c"],
Cell[321839, 8484, 7798, 207, 272, "Output",ExpressionUUID->"f929b9ef-3b11-4719-b5df-dcd27cd42b8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329674, 8696, 908, 25, 84, "Input",ExpressionUUID->"55608fc6-9525-4349-8b71-631b8e476148"],
Cell[330585, 8723, 732, 22, 44, "Output",ExpressionUUID->"62813be3-c68d-454a-84f1-4492d919836e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[331354, 8750, 249, 5, 41, "Input",ExpressionUUID->"6d079b38-8414-4a31-9ba9-b857ba506ab9"],
Cell[331606, 8757, 830, 25, 41, "Output",ExpressionUUID->"9049b32e-1f31-4e06-a3e3-3a89682bb92e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[332473, 8787, 1228, 31, 239, "Input",ExpressionUUID->"e1e82f6c-9dc7-4898-881c-b8167c7b597b"],
Cell[333704, 8820, 1304, 42, 109, "Output",ExpressionUUID->"a5a6a0a2-e261-4603-a2e0-c4911cbeb02e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[335045, 8867, 300, 7, 41, "Input",ExpressionUUID->"369760af-a591-44f0-af17-8e070a39bc3c"],
Cell[335348, 8876, 1299, 42, 109, "Output",ExpressionUUID->"2eb57afe-bb32-4656-9358-82642c90c0a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[336684, 8923, 751, 17, 202, "Input",ExpressionUUID->"51acac71-24e4-4316-8c4d-abaf24feeb4d"],
Cell[337438, 8942, 887, 28, 85, "Output",ExpressionUUID->"56fdfaaa-97b7-4772-9a91-00d5d67111ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[338362, 8975, 307, 7, 41, "Input",ExpressionUUID->"eac3de06-d7c7-4f38-8f29-439892899300"],
Cell[338672, 8984, 911, 28, 85, "Output",ExpressionUUID->"fad69408-3736-4e0d-aa7d-826d50d8f8da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339620, 9017, 507, 13, 41, "Input",ExpressionUUID->"cd2f7a6c-bb17-4654-af7a-d5b917ee6c8a"],
Cell[340130, 9032, 1655, 52, 115, "Output",ExpressionUUID->"b3120d3b-c7c7-4e34-8c8f-21126e0df098"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341822, 9089, 728, 19, 63, "Input",ExpressionUUID->"505686a3-0bbd-4e77-b0be-1aa0dcf69130"],
Cell[342553, 9110, 956, 27, 41, "Output",ExpressionUUID->"c557f6e1-85d2-4e8a-a48c-3927bce68eca"],
Cell[343512, 9139, 2606, 77, 96, "Output",ExpressionUUID->"aa126911-5b9b-4e88-b7bf-7826efd857ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[346155, 9221, 808, 20, 63, "Input",ExpressionUUID->"93eb41a1-d689-4e34-8e10-14d0ee1b0f41"],
Cell[346966, 9243, 860, 25, 41, "Output",ExpressionUUID->"16ca8bfd-786d-4461-8390-c764073c8679"],
Cell[347829, 9270, 2527, 76, 96, "Output",ExpressionUUID->"c7e22b2c-5d4c-41ac-8752-d4c603216340"]
}, Open  ]],
Cell[CellGroupData[{
Cell[350393, 9351, 849, 20, 84, "Input",ExpressionUUID->"1e56cf80-b986-493e-ba17-0d0e8a2a5a86"],
Cell[351245, 9373, 2499, 76, 96, "Output",ExpressionUUID->"03323fbd-484d-41ae-8f95-a01929b23a9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[353781, 9454, 345, 8, 41, "Input",ExpressionUUID->"d4a08ded-bc92-451b-8da7-f94fb781d947"],
Cell[354129, 9464, 6561, 177, 178, "Output",ExpressionUUID->"40e6d3e4-0b40-4385-8b42-0e3c76c3a8bc"]
}, Open  ]]
}
]
*)