Black Hole Evaporation Paul Tod Important!!!.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[    205447,       5363]
NotebookOptionsPosition[    185543,       5023]
NotebookOutlinePosition[    186033,       5041]
CellTagsIndexPosition[    185990,       5038]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for : 
Conformal Properties of an Evaporating Black Hole Model by Paul Tod\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820844916464931*^9, 3.8208449473374653`*^9}, {
  3.8559135027978363`*^9, 3.8559135153496933`*^9}},
 TextAlignment->Center,ExpressionUUID->"5301c02e-0315-4098-900d-4fb12dce5c8d"],

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
January 21, 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.851254775884119*^9, {3.855738457186393*^9, 3.855738466208013*^9}, {
   3.855743846970149*^9, 3.8557438532987127`*^9}, {3.855913515349818*^9, 
   3.855913522685787*^9}},
 TextAlignment->Center,ExpressionUUID->"c425aeb9-dcce-4cce-8f41-f1a5e08a30bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944675605734*^9, 3.8209446931410646`*^9}, 
   3.8559137139522667`*^9},ExpressionUUID->"471f5c93-f6b6-4550-b2cc-\
aae4b9aaca03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}, 
   3.85591371395254*^9},
 CellLabel->
  "In[225]:=",ExpressionUUID->"06c056fe-c426-45ec-92b0-5132a710e837"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825843522027536*^9, 
   3.825875355898499*^9, 3.8260077681021748`*^9, 3.826380423345456*^9, 
   3.8263927978526917`*^9, 3.826553813481596*^9, 3.827332028734309*^9, 
   3.827386838117896*^9, 3.827388549731575*^9, 3.827530764473493*^9, 
   3.827588445295884*^9, 3.827589528310417*^9, 3.855744011105496*^9, {
   3.8559137139528008`*^9, 3.855913730714411*^9}},
 CellLabel->
  "Out[225]=",ExpressionUUID->"b8bdb28f-12df-426b-bf6e-8c75a65b0f5c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink To Paper", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820845073191934*^9, 3.820845094630234*^9}, {
  3.85591373591089*^9, 
  3.8559137389251633`*^9}},ExpressionUUID->"4a68f4df-ffd1-45f7-9cfa-\
edd9fc2ccd87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Conformal Properties of an Evaporating Black Hole Model - Paul \
Tod\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/0803.0482\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82084500491488*^9, 3.820845028805613*^9}, 
   3.8208450790603113`*^9, {3.820851137986271*^9, 3.820851140086586*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"2b853889-7149-4828-b784-cae7bbbc12a4"],

Cell[BoxData[
 TemplateBox[{
  "\"Conformal Properties of an Evaporating Black Hole Model - Paul Tod\"", 
   "https://arxiv.org/abs/0803.0482"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8208511405736713`*^9, 3.820851296889101*^9, 
  3.855913730765033*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"1fa1b4d0-1115-4dcd-a5f8-fea8324a673c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Carmelli Classical fields Page 186\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://www.worldcat.org/title/classical-fields-general-relativity-\
and-gauge-theory/oclc/248349261&referer=brief_results\>\""}], "]"}]], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820844913027626*^9, 3.82084491845339*^9}, {
  3.820845033945483*^9, 3.820845079060384*^9}, {3.820851276650632*^9, 
  3.820851278992568*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"2608f5b0-3bb9-4a1c-b1d6-c44f111151a9"],

Cell[BoxData[
 TemplateBox[{
  "\"Carmelli Classical fields Page 186\"", 
   "https://www.worldcat.org/title/classical-fields-general-relativity-and-\
gauge-theory/oclc/248349261&referer=brief_results"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820851279588518*^9, 3.820851296889235*^9}, 
   3.855913730772724*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"7ac55526-4245-47c2-9fc6-adecc2b0112f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820844556362302*^9, 
  3.8208445741270323`*^9}},ExpressionUUID->"317fd33b-e834-4a3e-a521-\
b967802c25dc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820844553240569*^9},
 CellLabel->
  "In[228]:=",ExpressionUUID->"497d158d-1fe6-4208-be33-1a681b411243"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8208445532406693`*^9, 3.8559137310365887`*^9},
 CellLabel->
  "During evaluation of \
In[228]:=",ExpressionUUID->"97a9baee-52fa-4d38-8868-598f81d3e204"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"706 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "706 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8208445532406693`*^9, 3.855913731038118*^9},
 CellLabel->
  "During evaluation of \
In[228]:=",ExpressionUUID->"f3c3447e-2c86-4a1f-9af3-ad85071ddb68"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", ",", "\<\"Notation`\"\>", 
   ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8208445532408047`*^9, 3.855913731040119*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"92be673c-1894-4e0d-8dce-f71a73f5965d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820844553240861*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"ae390e62-38a0-4e2d-83d9-b85d4cc4f1f8"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Off", " ", "by", " ", "just", " ", "enough", " ", "to", " ", "drive", " ",
     "me", " ", "crazy"}], " ", "*)"}], " "}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"bf59df8a-9424-4330-bdf6-a8afcf458334"],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820844600778472*^9, 3.820844621449543*^9}, {
  3.8559136200890417`*^9, 
  3.855913624893272*^9}},ExpressionUUID->"0b0cb9fd-9158-4657-93b7-\
89403805643f"],

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.820844595415491*^9, 3.855913620089285*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"6bdcaa96-4fd0-47e5-97ef-40368fed9789"],

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.855913620089465*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"017220fc-76e5-47aa-8e10-c32c344891ab"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8559136286129293`*^9, 
  3.855913656413595*^9}},ExpressionUUID->"8baae6a6-69b9-40a4-b063-\
47bb3258f61e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"remember", " ", "-", " ", 
    RowBox[{"N", " ", "is", " ", "reserved"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"use", " ", "[", "esc", "]"}], 
     RowBox[{"scN", "[", "esc", "]"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], ")"}], " ", 
    SuperscriptBox["dv", "2"]}], "-", " ", 
   RowBox[{"2", " ", "dv", " ", "dr"}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844595415621*^9, 3.85591364983881*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"2cdf131d-9c95-4410-a50b-c03c027dae50"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "dr", " ", "dv"}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["dv", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], 
    ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208445954157543`*^9, 3.8559136498390083`*^9, 
  3.8559137311054373`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"32e5bbd3-ec80-4787-9e2c-14a1ec4e87e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dv", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208445954158497`*^9, 3.855913649839177*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"635f41ef-fa7e-46b1-b9f6-04f55ed94cb8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208445954159393`*^9, 3.855913649839346*^9, 
  3.855913731129208*^9},
 CellLabel->
  "Out[12]//MatrixForm=",ExpressionUUID->"d635f699-9413-41c0-bb61-\
b0e222dcc404"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", "metric1", "]"}], " ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844595416007*^9, 3.855913649839506*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"3d329e3f-c9f6-48bc-8817-71bdad15ff26"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], "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", 10002.},
 CellChangeTimes->{3.820844595416089*^9, 3.855913649839673*^9, 
  3.855913731139598*^9},
 CellLabel->
  "Out[15]//MatrixForm=",ExpressionUUID->"612f1b60-bd4b-4ceb-83ae-\
7276b2331eb5"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8559136595026484`*^9, 
  3.855913675069235*^9}},ExpressionUUID->"055187c5-0d7b-428a-b9cf-\
710041a25233"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2", "]"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"\[ScriptCapitalM]", "[", "u", "]"}]}], "r"]}], ")"}], " ", 
    SuperscriptBox["du", "2"]}], "-", " ", 
   RowBox[{"2", " ", "du", " ", "dr"}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844687615172*^9, 3.8559136670903263`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"e8d08451-08f8-4a66-8a4e-c0a6a46e3655"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "dr", " ", "du"}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["du", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"\[ScriptCapitalM]", "[", "u", "]"}]}], "r"]}], 
    ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844687615348*^9, 3.855913667090558*^9, 
  3.8559137311614437`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"ab26534e-9ef8-4b01-b0e5-99fb43202a7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "matrix2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"matrix2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq2", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"matrix2", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8208446876154547`*^9, 3.855913667090726*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"7b50591d-fcd3-4902-83f0-f08b5848fdb5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalM]", "[", "u", "]"}]}], "r"]}], 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844687615694*^9, 3.8559136670908957`*^9, 
  3.855913731172202*^9},
 CellLabel->
  "Out[20]//MatrixForm=",ExpressionUUID->"579f5062-d036-4f40-ba13-\
adf8848e478f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated From Metric ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820844731415594*^9, 3.820844762798523*^9}, 
   3.8559137267335243`*^9},ExpressionUUID->"85a2530e-5827-4953-be5a-\
002ed167e757"],

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", 10001.},
 CellChangeTimes->{3.820844727728425*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"672256d2-3e95-4bfe-a05a-6708afa350c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"input", "[", " ", 
   RowBox[{
   "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<test\>\"", ",", 
    "\"\<\!\(\*SuperscriptBox[\(g\), \(Vin\)]\)\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
    " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820844727728532*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"5e6b7a25-c7de-484a-a905-ec540379a3b6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.04025`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820844727728649*^9, 3.85591373324562*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"4e8f3d36-af36-475f-b070-0dd3edd4d2c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8275310153844624`*^9, 3.827531041138036*^9}, 
   3.855913597371916*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"a140aa2a-529a-43b9-928a-22e4152bce89"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "Vin"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82753106614108*^9, 3.8275321257370567`*^9, 
  3.827588643637848*^9, 3.8275896952581797`*^9, 3.8557440223777103`*^9, 
  3.8559135973721523`*^9, 3.855913733297793*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"d3ded3ca-05a1-4dd3-8ac6-a5d5de1e257d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.827531041138124*^9, 
   3.8559135973723516`*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"cbffece6-220b-46f7-93c8-e505b5dc4886"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "Vin"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.8557440223912497`*^9, 
   3.855913597372533*^9, 3.8559137333075666`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"a15ae05e-de1e-4390-ad34-71ab5eb66667"],

Cell[BoxData["\<\"test\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.8557440223912497`*^9, 
   3.855913597372533*^9, 3.855913733309194*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"9f1ee8ce-57dc-4cfc-9695-9a0b558427ca"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}], 
       RowBox[{"-", "1"}], "0", "0"},
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.8557440223912497`*^9, 
   3.855913597372533*^9, 3.85591373331247*^9},
 CellLabel->
  "Out[27]//TraditionalForm=",ExpressionUUID->"de14b644-cd5a-46fd-a70f-\
7198f744886a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.827531041138465*^9, 
   3.8559135973730164`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"4d87e970-53d1-42bb-913c-2954f2df6c70"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.855744022426618*^9, 
   3.855913597373187*^9, 3.85591373333278*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"c324fd00-6e4f-4b0f-a476-90ba8d226b3c"],

Cell[BoxData["\<\"ChristoffelSymboltest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.855744022426618*^9, 
   3.855913597373187*^9, 3.855913733334546*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"a7e1e879-80ca-4ec3-866a-d5f8ab1abc4f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
             SuperscriptBox["r", "2"]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{"-", "r"}]},
           {"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[{"-", "r"}], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
             SuperscriptBox["r", "3"]]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
              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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
              SuperscriptBox["r", "2"]]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", "r"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], " ", 
             RowBox[{"(", 
              RowBox[{"r", "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}]}
          },
          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", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.855744022426618*^9, 
   3.855913597373187*^9, 3.855913733357501*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"d53c00e7-4694-4b38-bce1-\
e8a90a4e3fee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.82753104113878*^9, 
   3.855913597373665*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"b9ac4cc2-c61a-439e-a6c3-5af0705f793a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.855744022501696*^9, 
   3.85591359737383*^9, 3.855913733372287*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"46a75acd-9c81-4caa-bd08-4be78c2e9263"],

Cell[BoxData["\<\"RiemannTensortest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.855744022501696*^9, 
   3.85591359737383*^9, 3.855913733374105*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"218ac618-ca64-43a4-8a1b-22151395b028"],

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[{"2", " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
            SuperscriptBox["r", "3"]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
             SuperscriptBox["r", "3"]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
             SuperscriptBox["r", "2"]]}], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
            SuperscriptBox["r", "2"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
               ")"}]}], 
             SuperscriptBox["r", "2"]]}]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
              ")"}]}], 
            SuperscriptBox["r", "2"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
             SuperscriptBox["r", "3"]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{"2", " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
            SuperscriptBox["r", "3"]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}], "0", 
           "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
            SuperscriptBox["r", "2"]], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
             SuperscriptBox["r", "2"]]}], 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]},
          {"0", "0", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
              ")"}]}], 
            SuperscriptBox["r", "2"]]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}]}], 
               ")"}]}], 
             SuperscriptBox["r", "2"]]}], 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"], "0", "0", 
           "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 10001.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.855744022501696*^9, 
   3.85591359737383*^9, 3.855913733480432*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"d0407b35-f6e9-4047-a501-\
12e527dae11f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.827531041139097*^9, 
   3.855913597374295*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"b00868c2-7bfd-4beb-baa3-b113cd7afb87"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.8557440231903133`*^9, 
   3.8559135973744583`*^9, 3.855913733496467*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"85059cc2-fd71-4ec7-9803-57b706c4d4ce"],

Cell[BoxData["\<\"RicciTensortest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.8557440231903133`*^9, 
   3.8559135973744583`*^9, 3.855913733498166*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"2d9edebf-434c-441b-8a51-867a39adcd8c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        SuperscriptBox["r", "2"]], "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.8557440231903133`*^9, 
   3.8559135973744583`*^9, 3.855913733500682*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"dd8d672a-53c9-4d09-a6d1-\
a06c54cf385b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.827531041139411*^9, 
   3.855913597374936*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"be5e776c-b5c4-4a8b-afe4-8a3d91066c4f"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.8557440232716084`*^9, 3.855913597375101*^9, 3.855913733518786*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"cedebda4-16c7-4f0b-b8dc-75e083755a30"],

Cell[BoxData["\<\"RicciScalartest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.8557440232716084`*^9, 3.855913597375101*^9, 3.855913733520322*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"10733b20-7d2d-448d-9c4e-c01193c6a928"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.8557440232716084`*^9, 3.855913597375101*^9, 3.85591373352204*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"2e6ba583-d770-4c9f-9f38-\
45e6c7a13ee8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.8275310411397467`*^9, {
   3.827531085049985*^9, 3.8275310892800713`*^9}, {3.827589709279572*^9, 
   3.827589714609309*^9}, 3.855913597375599*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"425715c2-29e0-46ed-aa46-a19ed439918c"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023317609*^9, 3.8559135973757668`*^9, 3.855913733531887*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"6670dfa9-b88b-402a-a3f2-c4c1d0e283ac"],

Cell[BoxData["\<\"KretschmannScalartest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023317609*^9, 3.8559135973757668`*^9, 3.855913733534113*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"2c9655c8-c4f4-4a29-ab95-c06cf495bad6"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"48", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "2"]}], 
    SuperscriptBox["r", "6"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023317609*^9, 3.8559135973757668`*^9, 3.855913733536034*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"56b8bed8-7155-4de7-b352-\
d7b82084b2c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.827531041140236*^9, 3.855913597376251*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"976db891-bcf2-4e0e-8de6-a351f331b72d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.855744023557928*^9, 
   3.8559135973764257`*^9, 3.855913733554352*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"fc8acb9c-a13a-42e6-8dd9-53540ccfc0c1"],

Cell[BoxData["\<\"EinsteinTensortest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.855744023557928*^9, 
   3.8559135973764257`*^9, 3.855913733556566*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"7d8f640a-ad12-4ada-92a2-32140df9174b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        SuperscriptBox["r", "2"]], "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.855744023557928*^9, 
   3.8559135973764257`*^9, 3.855913733558919*^9},
 CellLabel->
  "Out[45]//TraditionalForm=",ExpressionUUID->"314abe40-2906-44c2-b6d8-\
44ccef62c5e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.827531041140554*^9, 3.855913597376936*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"584f5f9a-d7eb-4a22-95ab-ae1ebd735711"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744023646163*^9, 
   3.8559135973771353`*^9, 3.8559137335716476`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"468ab097-3f2d-4f42-a553-2ff9b82ad8da"],

Cell[BoxData["\<\"WeylTensortest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744023646163*^9, 
   3.8559135973771353`*^9, 3.8559137335740623`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"5748122b-f47d-47e5-a439-a9291290af35"],

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[{"2", " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
            SuperscriptBox["r", "3"]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
             SuperscriptBox["r", "3"]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"r", "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
             SuperscriptBox["r", "2"]]}], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"r", "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
            SuperscriptBox["r", "2"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"r", "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
             SuperscriptBox["r", "2"]]}]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"r", "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
            SuperscriptBox["r", "2"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
             SuperscriptBox["r", "3"]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{"2", " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
            SuperscriptBox["r", "3"]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}], "0", 
           "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"r", "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
            SuperscriptBox["r", "2"]], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"r", "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
             SuperscriptBox["r", "2"]]}], 
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], "r"], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]},
          {"0", "0", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"r", "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
            SuperscriptBox["r", "2"]]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"r", "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], ")"}]}], 
             SuperscriptBox["r", "2"]]}], 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "r"], "0", "0", 
           "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], "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", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744023646163*^9, 
   3.8559135973771353`*^9, 3.855913733661212*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"39572992-7f72-4028-a0c8-\
4c79de5d4c5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.8275310411408653`*^9, {3.8275310942501097`*^9, 
   3.827531098768097*^9}, {3.827589700385611*^9, 3.8275897051775293`*^9}, 
   3.855913597377645*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"112b48b6-83b8-4e0b-b1af-434b479bf5dd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.855744024759164*^9, 3.8559135973778152`*^9, 3.855913733680389*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"3bcbd365-6461-4bad-8d8c-51936e3bb7b5"],

Cell[BoxData["\<\"CottonTensortest\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.855744024759164*^9, 3.8559135973778152`*^9, 3.8559137336822853`*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"609f512d-155f-43e6-9738-ca96371ffd79"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], 
              SuperscriptBox["r", "3"]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"4", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], 
             SuperscriptBox["r", "3"]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "r"]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"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", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "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"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "r"]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "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]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.855744024759164*^9, 3.8559135973778152`*^9, 3.855913733703513*^9},
 CellLabel->
  "Out[51]//TraditionalForm=",ExpressionUUID->"8b939e81-034c-4e48-a46a-\
2fbee1b25b80"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Construction of Null Tetrad and Verification", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8208447923384733`*^9, 
  3.820844814623467*^9}},ExpressionUUID->"dfd79e93-776b-4565-b0b5-\
5267113238fb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\[ScriptL]", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"remember", " ", "-", " ", 
    RowBox[{"N", " ", "is", " ", "reserved"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"use", " ", "[", "esc", "]"}], 
     RowBox[{"scN", "[", "esc", "]"}]}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptL]", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"1", " ", ",", 
    RowBox[{"(", " ", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"(", 
       RowBox[{"1", " ", "-", " ", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], ")"}]}], 
     ")"}], " ", ",", " ", "0", ",", " ", "0"}], " ", "}"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844787960401*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"89dd3e65-b175-4b67-9fe5-514dbc780b0d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], ")"}]}], ",", 
   "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844787960568*^9, 3.855913733717773*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"6a7a32e4-8568-499e-b2aa-c4b4f2c39f22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", " ", 
  RowBox[{"{", " ", 
   RowBox[{"0", ",", 
    RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844787960642*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"0a245467-526d-487d-a6a9-64c120af9891"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879607162`*^9, 3.8559137337353497`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"eadf3c2c-e9f0-4830-89ce-6b3754818291"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["1", 
     RowBox[{
      SqrtBox["2"], "r", " "}]], ")"}], " ", 
   RowBox[{"{", " ", 
    RowBox[{"0", ",", "0", ",", "1", ",", 
     FractionBox["\[ImaginaryI]", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]]}], "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844787960779*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"417b853a-0dcd-4879-aa03-60b92423818b"],

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", 10002.},
 CellChangeTimes->{3.820844787960848*^9, 3.855913733744528*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"0d1e5744-cde6-4f73-b520-f6d142274749"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["1", 
     RowBox[{
      SqrtBox["2"], "r", " "}]], ")"}], " ", 
   RowBox[{"{", " ", 
    RowBox[{"0", ",", "0", ",", "1", ",", 
     FractionBox[
      RowBox[{"-", "\[ImaginaryI]"}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]]}], "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820844787960917*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"6440a0ec-601c-4244-a1ca-41f2e0aa185d"],

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", 10002.},
 CellChangeTimes->{3.820844787960992*^9, 3.855913733766432*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"eb3c0bb5-11fc-4eb0-9e0a-3d74e8e14f9b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"l", ",", "n", ",", "m", ",", "mbar"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"l", " ", "=", " ", 
  RowBox[{"ToTensor", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
    ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
    " ", 
    RowBox[{"{", "\[Mu]", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"ToTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
     " ", ",", " ", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
     " ", 
     RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}]}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  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", 10002.},
 CellChangeTimes->{3.820844787961054*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"fa2a29be-4379-40a1-aaaf-62c6a94f9374"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879611273`*^9, 3.8559137337843647`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"e7811c7e-6ee8-4310-8a4b-54bac4ada3e1"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879611273`*^9, 3.8559137337861853`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"4d7a39c7-47f7-45ef-bd3f-00bb5c94df8d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879611273`*^9, 3.8559137337885323`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"9b90af49-5a10-45f7-84fd-1a79f2bf1dfe"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879611273`*^9, 3.855913733791157*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"18d73036-9daf-4151-b257-25efd60409f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"ContractIndices", "[", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", " ", 
   "0"}], " "}], "\[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[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "1"}], "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", "\[Mu]", "]"}], 
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     "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[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
   "  ", "//", " ", "MatrixForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "metric1", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{
       "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " ", "\[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[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "inverse1", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]"}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879614563`*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"39309e79-8af1-4226-9933-7b96ebd66561"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733828217*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"7729d305-421a-46a9-8361-2fb290e8edae"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733830875*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"ef808490-20e6-495a-82b9-bd65f7819b05"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.85591373385124*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"0b0535a5-e45f-464a-9e7b-7f4bf52a5723"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733853764*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"7416394f-d3a5-4164-9538-aa5c39cffc14"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733871284*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"a804b1ca-b722-48e2-8b24-1dc184d4de14"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733879035*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"88a5f104-c82a-49b5-8757-61fc0c4f4690"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733896203*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"65c50413-cd10-46b5-b428-1f82fee7bc75"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733914844*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"d5d1ef7b-22ab-4cdd-9a9f-4cfd677d6e92"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733953382*^9},
 CellLabel->
  "Out[75]//MatrixForm=",ExpressionUUID->"7ac1721f-17d6-4a29-a4a6-\
7d911ca39a15"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733956608*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"57e1d709-2c8e-4e58-a8c7-63de6eb26549"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalN]", "[", "v", "]"}]}], "r"]}], "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", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733996193*^9},
 CellLabel->
  "Out[79]//MatrixForm=",ExpressionUUID->"3d0cee3d-3663-450a-8e75-\
1febf7d14b94"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8208447879615498`*^9, 3.855913733999329*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"d6a72921-2f33-4ccc-b4b6-bb7b775cc09e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Newman Penrose Quantities", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820844871188712*^9, 
  3.820844901031416*^9}},ExpressionUUID->"4fbb31d0-4d0f-443f-a170-\
503278aeefb4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "spinCoefficientReplace", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Page", " ", "56", " ", "Wang"}], " ", "*)"}], " ", 
  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[{"\[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"}], " ", ")"}]}], " ", ",", " ", "\[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[{"spinCoefficientReplace", " ", "//", " ", "TableForm"}], " ", "//",
    " ", "pdConv"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "compare", " ", "page", " ", "188", " ", "Carmelli", " ", "Classical", " ",
     "fields"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964087*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"98d743ad-2a91-4d8e-9864-9f5a8251b085"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[Rho]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"r", "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"]}]]}]}]},
      {
       RowBox[{"\[Mu]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "r"]}]}]},
      {
       RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
        FractionBox[
         RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]]}]},
      {
       RowBox[{"\[Gamma]", "\[Rule]", "0"}]},
      {
       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", 10003.},
 CellChangeTimes->{3.8208448659641314`*^9, 3.8559137356070213`*^9},
 CellLabel->
  "Out[83]//TraditionalForm=",ExpressionUUID->"3e34cf5d-a502-42f4-a475-\
021179777b0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"spinCoefficientReplace", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", "  ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964199*^9},
 CellLabel->"In[84]:=",ExpressionUUID->"a30e4682-2349-4ba8-a4f6-c7a6c6275bbd"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[CurlyEpsilon]", "\[Rule]", 
   FractionBox[
    RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964221*^9, 3.855913735647256*^9},
 CellLabel->
  "Out[86]//TraditionalForm=",ExpressionUUID->"6198b653-6ca9-4651-9916-\
923215aa6f27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"spinCoefficientReplace", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964279*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"0b3ad558-5b59-4094-897a-9e813d24cf90"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[Rho]", "\[Rule]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"r", "-", 
      RowBox[{"2", " ", 
       RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964299*^9, 3.855913735660911*^9},
 CellLabel->
  "Out[89]//TraditionalForm=",ExpressionUUID->"196aa1eb-2e0a-4040-a4a7-\
e6ddb41518b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "the", " ", "negative", " ", "of", " ", "Paul", 
    " ", 
    RowBox[{"Tod", "'"}], "s", " ", "convention"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"NEEDS", " ", "TO", " ", "BE", " ", "CHANGED"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "ricciScalarsReplace", "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Page", " ", "57", " ", "Wang"}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "List", " ", "on", " ", "Page", " ", "188", " ", "Carmelli", " ", 
     "Classical", " ", "fields"}], " ", "*)"}], " ", "\[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[{"ricciScalarsReplace", "  ", "//", " ", "TableForm"}], " ", "//", 
    " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964354*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"86063362-1646-4f33-934d-56aa5585f727"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], 
          SuperscriptBox["r", "2"]]}]}]},
      {
       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]", "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", 10003.},
 CellChangeTimes->{3.820844865964376*^9, 3.855913735803856*^9},
 CellLabel->
  "Out[92]//TraditionalForm=",ExpressionUUID->"6605d2dc-ddbe-4c99-9894-\
9e4acef690e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Strangely", ",", " ", 
    RowBox[{"this", " ", "has", " ", "the", " ", "right", " ", "sign"}]}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "weylScalarsReplace", "]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Page", " ", "57", " ", "Wang"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "List", " ", "on", " ", "Page", " ", "188", " ", "Carmelli", " ", 
     "Classical", " ", "fields"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"weylScalarsReplace", " ", "=", " ", 
     RowBox[{"{", "\[IndentingNewLine]", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", " ", 
          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", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", " ", 
          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", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", " ", 
          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", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", " ", 
          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", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", " ", 
          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", 10003.},
 CellChangeTimes->{3.82084486596443*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"d691d1e8-40d1-4308-a57f-7198bc0d5120"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
          SuperscriptBox["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", 10003.},
 CellChangeTimes->{3.820844865964451*^9, 3.855913743122604*^9},
 CellLabel->
  "Out[95]//TraditionalForm=",ExpressionUUID->"43729845-2c76-4ee9-8774-\
91835bb7f6b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq8", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "chang", " ", "minus", " ", "sign", " ", "for", " ", "\[CapitalPhi]"}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ricciScalarsReplace", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"weylScalarsReplace", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964505*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"813324eb-b100-4d73-9273-1e643f73983f"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], 
          SuperscriptBox["r", "2"]]}]}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}], 
          SuperscriptBox["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", 10003.},
 CellChangeTimes->{3.82084486596454*^9, 3.855913743169877*^9},
 CellLabel->
  "Out[98]//TraditionalForm=",ExpressionUUID->"57b1bd05-33a2-477d-bd51-\
d87033992d3a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], "  ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820844865964594*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"59a58bc6-938b-46fa-818f-149b3e3fb009"],

Cell[BoxData[
 FormBox[
  TagBox[
   SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
   DisplayForm], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8208448659646263`*^9, 3.8559137431867857`*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"16ba8112-4a84-4c86-b763-\
fc8ae9c99c4e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], 
              SuperscriptBox["r", "3"]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"4", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], 
             SuperscriptBox["r", "3"]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "r"]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"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", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "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"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "r"]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalN]", "(", "v", ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "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]", ")"}]}
     },
     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", 10003.},
 CellChangeTimes->{3.8208448659646263`*^9, 3.8559137432121964`*^9},
 CellLabel->
  "Out[100]//TraditionalForm=",ExpressionUUID->"7e1beb7e-77ae-4387-a31a-\
0e690cb52804"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "see", " ", "next", " ", "to", " ", "last", " ", "equation", " ", "page", 
    " ", "8"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "9", "]"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "9", "]"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "9", "]"}], "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "1", ",", "4"}], "]"}], "]"}]}]}]], "Input",
 CellLabel->
  "In[101]:=",ExpressionUUID->"8d837639-e2c7-4278-8727-0ec6112b845a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalN]", "\[Prime]",
     MultilineFunction->None], "[", "v", "]"}]}], 
  SuperscriptBox["r", "3"]]], "Output",
 CellChangeTimes->{3.855913743226426*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"e0f19473-4de3-4a1b-8611-25325f58d076"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalN]", "\[Prime]",
     MultilineFunction->None], "[", "v", "]"}]}], "r"]], "Output",
 CellChangeTimes->{3.855913743229609*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"e4c86cd2-dddf-470e-882c-1d74408ea845"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalN]", "\[Prime]",
     MultilineFunction->None], "[", "v", "]"}]}], "r"]], "Output",
 CellChangeTimes->{3.855913743232809*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"6681a8c3-e04c-471d-a67e-eb32550f47e9"]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1280, 755},
WindowMargins->{{0, Automatic}, {Automatic, -80}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"3bb65b4f-c1f0-4804-8fb2-568dab31761f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 363, 7, 221, "Title",ExpressionUUID->"5301c02e-0315-4098-900d-4fb12dce5c8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[946, 31, 1212, 21, 94, "Author",ExpressionUUID->"c425aeb9-dcce-4cce-8f41-f1a5e08a30bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[2195, 57, 253, 4, 69, "Section",ExpressionUUID->"471f5c93-f6b6-4550-b2cc-aae4b9aaca03",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[CellGroupData[{
Cell[2473, 65, 463, 11, 63, "Input",ExpressionUUID->"06c056fe-c426-45ec-92b0-5132a710e837",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[2939, 78, 1492, 24, 70, "Output",ExpressionUUID->"b8bdb28f-12df-426b-bf6e-8c75a65b0f5c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4480, 108, 268, 5, 55, "Section",ExpressionUUID->"4a68f4df-ffd1-45f7-9cfa-edd9fc2ccd87",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[4773, 117, 505, 10, 63, "Input",ExpressionUUID->"2b853889-7149-4828-b784-cae7bbbc12a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5281, 129, 403, 9, 43, "Output",ExpressionUUID->"1fa1b4d0-1115-4dcd-a5f8-fea8324a673c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[5721, 143, 588, 12, 63, "Input",ExpressionUUID->"2608f5b0-3bb9-4a1c-b1d6-c44f111151a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6312, 157, 463, 10, 43, "Output",ExpressionUUID->"7ac55526-4245-47c2-9fc6-adecc2b0112f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[6824, 173, 228, 4, 55, "Section",ExpressionUUID->"317fd33b-e834-4a3e-a521-b967802c25dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[7077, 181, 1617, 44, 210, "Input",ExpressionUUID->"497d158d-1fe6-4208-be33-1a681b411243",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8697, 227, 477, 10, 70, "Print",ExpressionUUID->"97a9baee-52fa-4d38-8868-598f81d3e204",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9177, 239, 494, 11, 70, "Print",ExpressionUUID->"f3c3447e-2c86-4a1f-9af3-ad85071ddb68",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9674, 252, 886, 15, 70, "Output",ExpressionUUID->"92be673c-1894-4e0d-8dce-f71a73f5965d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[10575, 270, 244, 4, 41, "Input",ExpressionUUID->"ae390e62-38a0-4e2d-83d9-b85d4cc4f1f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[10834, 277, 271, 6, 38, "Input",ExpressionUUID->"bf59df8a-9424-4330-bdf6-a8afcf458334"],
Cell[CellGroupData[{
Cell[11130, 287, 284, 5, 69, "Section",ExpressionUUID->"0b0cb9fd-9158-4657-93b7-89403805643f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[11417, 294, 1588, 40, 126, "Input",ExpressionUUID->"6bdcaa96-4fd0-47e5-97ef-40368fed9789",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13008, 336, 1077, 26, 84, "Input",ExpressionUUID->"017220fc-76e5-47aa-8e10-c32c344891ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14122, 367, 227, 4, 55, "Section",ExpressionUUID->"8baae6a6-69b9-40a4-b063-47bb3258f61e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[CellGroupData[{
Cell[14374, 375, 1193, 31, 102, "Input",ExpressionUUID->"2cdf131d-9c95-4410-a50b-c03c027dae50",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15570, 408, 807, 24, 56, "Output",ExpressionUUID->"32e5bbd3-ec80-4787-9e2c-14a1ec4e87e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[16414, 437, 630, 12, 105, "Input",ExpressionUUID->"635f41ef-fa7e-46b1-b9f6-04f55ed94cb8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[17047, 451, 1178, 36, 115, "Output",ExpressionUUID->"d635f699-9413-41c0-bb61-b0e222dcc404",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[18262, 492, 587, 11, 105, "Input",ExpressionUUID->"3d329e3f-c9f6-48bc-8817-71bdad15ff26",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[18852, 505, 1226, 38, 133, "Output",ExpressionUUID->"612f1b60-bd4b-4ceb-83ae-7276b2331eb5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[20127, 549, 227, 4, 55, "Section",ExpressionUUID->"055187c5-0d7b-428a-b9cf-710041a25233",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[CellGroupData[{
Cell[20379, 557, 951, 24, 102, "Input",ExpressionUUID->"e8d08451-08f8-4a66-8a4e-c0a6a46e3655",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[21333, 583, 804, 24, 56, "Output",ExpressionUUID->"ab26534e-9ef8-4b01-b0e5-99fb43202a7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[22174, 612, 630, 12, 105, "Input",ExpressionUUID->"7b50591d-fcd3-4902-83f0-f08b5848fdb5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22807, 626, 1178, 36, 115, "Output",ExpressionUUID->"579f5062-d036-4f40-ba13-adf8848e478f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24034, 668, 256, 4, 55, "Section",ExpressionUUID->"85a2530e-5827-4953-be5a-002ed167e757",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[24293, 674, 5477, 126, 714, "Input",ExpressionUUID->"672256d2-3e95-4bfe-a05a-6708afa350c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[29795, 804, 542, 11, 45, "Input",ExpressionUUID->"5e6b7a25-c7de-484a-a905-ec540379a3b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[30340, 817, 280, 5, 41, "Output",ExpressionUUID->"4e8f3d36-af36-475f-b070-0dd3edd4d2c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[30657, 827, 264, 4, 41, "Input",ExpressionUUID->"a140aa2a-529a-43b9-928a-22e4152bce89",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[30924, 833, 1207, 35, 45, "Output",ExpressionUUID->"d3ded3ca-05a1-4dd3-8ac6-a5d5de1e257d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[32168, 873, 838, 19, 84, "Input",ExpressionUUID->"cbffece6-220b-46f7-93c8-e505b5dc4886",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[33009, 894, 690, 13, 45, "Output",ExpressionUUID->"a15ae05e-de1e-4390-ad34-71ab5eb66667",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[33702, 909, 602, 9, 41, "Output",ExpressionUUID->"9f1ee8ce-57dc-4cfc-9695-9a0b558427ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[34307, 920, 1578, 42, 116, "Output",ExpressionUUID->"de14b644-cd5a-46fd-a70f-7198f744886a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[35922, 967, 841, 19, 84, "Input",ExpressionUUID->"4d87e970-53d1-42bb-913c-2954f2df6c70",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[36766, 988, 796, 15, 45, "Output",ExpressionUUID->"c324fd00-6e4f-4b0f-a476-90ba8d226b3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[37565, 1005, 691, 10, 41, "Output",ExpressionUUID->"a7e1e879-80ca-4ec3-866a-d5f8ab1abc4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[38259, 1017, 12110, 355, 368, "Output",ExpressionUUID->"d53c00e7-4694-4b38-bce1-e8a90a4e3fee",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[50406, 1377, 835, 19, 84, "Input",ExpressionUUID->"b9ac4cc2-c61a-439e-a6c3-5af0705f793a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[51244, 1398, 675, 12, 45, "Output",ExpressionUUID->"46a75acd-9c81-4caa-bd08-4be78c2e9263",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[51922, 1412, 613, 9, 41, "Output",ExpressionUUID->"218ac618-ca64-43a4-8a1b-22151395b028",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[52538, 1423, 19608, 500, 494, "Output",ExpressionUUID->"d0407b35-f6e9-4047-a501-12e527dae11f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[72183, 1928, 834, 19, 84, "Input",ExpressionUUID->"b00868c2-7bfd-4beb-baa3-b113cd7afb87",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[73020, 1949, 664, 12, 45, "Output",ExpressionUUID->"85059cc2-fd71-4ec7-9803-57b706c4d4ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[73687, 1963, 616, 9, 41, "Output",ExpressionUUID->"2d9edebf-434c-441b-8a51-867a39adcd8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[74306, 1974, 1462, 37, 120, "Output",ExpressionUUID->"dd8d672a-53c9-4d09-a6d1-a06c54cf385b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[75805, 2016, 836, 19, 84, "Input",ExpressionUUID->"be5e776c-b5c4-4a8b-afe4-8a3d91066c4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[76644, 2037, 615, 10, 41, "Output",ExpressionUUID->"cedebda4-16c7-4f0b-b8dc-75e083755a30",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[77262, 2049, 604, 8, 41, "Output",ExpressionUUID->"10733b20-7d2d-448d-9c4e-c01193c6a928",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[77869, 2059, 696, 14, 48, "Output",ExpressionUUID->"2e6ba583-d770-4c9f-9f38-45e6c7a13ee8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[78602, 2078, 867, 19, 84, "Input",ExpressionUUID->"425715c2-29e0-46ed-aa46-a19ed439918c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[79472, 2099, 330, 6, 41, "Output",ExpressionUUID->"6670dfa9-b88b-402a-a3f2-c4c1d0e283ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[79805, 2107, 325, 4, 41, "Output",ExpressionUUID->"2c9655c8-c4f4-4a29-ab95-c06cf495bad6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[80133, 2113, 561, 15, 73, "Output",ExpressionUUID->"56b8bed8-7155-4de7-b352-d7b82084b2c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[80731, 2133, 814, 18, 84, "Input",ExpressionUUID->"976db891-bcf2-4e0e-8de6-a351f331b72d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[81548, 2153, 590, 11, 45, "Output",ExpressionUUID->"fc8acb9c-a13a-42e6-8dd9-53540ccfc0c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[82141, 2166, 545, 8, 41, "Output",ExpressionUUID->"7d8f640a-ad12-4ada-92a2-32140df9174b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[82689, 2176, 1388, 36, 120, "Output",ExpressionUUID->"314abe40-2906-44c2-b6d8-44ccef62c5e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[84114, 2217, 879, 19, 84, "Input",ExpressionUUID->"584f5f9a-d7eb-4a22-95ab-ae1ebd735711",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[84996, 2238, 677, 12, 45, "Output",ExpressionUUID->"468ab097-3f2d-4f42-a553-2ff9b82ad8da",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[85676, 2252, 612, 9, 41, "Output",ExpressionUUID->"5748122b-f47d-47e5-a439-a9291290af35",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[86291, 2263, 16846, 432, 454, "Output",ExpressionUUID->"39572992-7f72-4028-a0c8-4c79de5d4c5b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[103174, 2700, 845, 19, 84, "Input",ExpressionUUID->"112b48b6-83b8-4e0b-b1af-434b479bf5dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[104022, 2721, 375, 7, 45, "Output",ExpressionUUID->"3bcbd365-6461-4bad-8d8c-51936e3bb7b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[104400, 2730, 322, 4, 41, "Output",ExpressionUUID->"609f512d-155f-43e6-9738-ca96371ffd79",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[104725, 2736, 11714, 347, 366, "Output",ExpressionUUID->"8b939e81-034c-4e48-a46a-2fbee1b25b80",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[116488, 3089, 246, 4, 55, "Section",ExpressionUUID->"dfd79e93-776b-4565-b0b5-5267113238fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[CellGroupData[{
Cell[116759, 3097, 925, 25, 81, "Input",ExpressionUUID->"89dd3e65-b175-4b67-9fe5-514dbc780b0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[117687, 3124, 496, 13, 56, "Output",ExpressionUUID->"6a7a32e4-8568-499e-b2aa-c4b4f2c39f22",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[118220, 3142, 406, 8, 63, "Input",ExpressionUUID->"0a245467-526d-487d-a6a9-64c120af9891",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[118629, 3152, 314, 6, 41, "Output",ExpressionUUID->"eadf3c2c-e9f0-4830-89ce-6b3754818291",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[118980, 3163, 572, 14, 93, "Input",ExpressionUUID->"417b853a-0dcd-4879-aa03-60b92423818b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[119555, 3179, 492, 13, 61, "Output",ExpressionUUID->"0d1e5744-cde6-4f73-b520-f6d142274749",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[120084, 3197, 600, 15, 93, "Input",ExpressionUUID->"6440a0ec-601c-4244-a1ca-41f2e0aa185d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[120687, 3214, 516, 14, 61, "Output",ExpressionUUID->"eb3c0bb5-11fc-4eb0-9e0a-3d74e8e14f9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[121240, 3233, 1862, 50, 126, "Input",ExpressionUUID->"fa2a29be-4379-40a1-aaaf-62c6a94f9374",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[123105, 3285, 290, 6, 43, "Output",ExpressionUUID->"e7811c7e-6ee8-4310-8a4b-54bac4ada3e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[123398, 3293, 290, 6, 43, "Output",ExpressionUUID->"4d7a39c7-47f7-45ef-bd3f-00bb5c94df8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[123691, 3301, 290, 6, 43, "Output",ExpressionUUID->"9b90af49-5a10-45f7-84fd-1a79f2bf1dfe",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[123984, 3309, 291, 6, 43, "Output",ExpressionUUID->"18d73036-9daf-4151-b257-25efd60409f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[124312, 3320, 6228, 179, 546, "Input",ExpressionUUID->"39309e79-8af1-4226-9933-7b96ebd66561",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[130543, 3501, 231, 3, 41, "Output",ExpressionUUID->"7729d305-421a-46a9-8361-2fb290e8edae",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[130777, 3506, 231, 3, 41, "Output",ExpressionUUID->"ef808490-20e6-495a-82b9-bd65f7819b05",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131011, 3511, 230, 3, 41, "Output",ExpressionUUID->"0b0535a5-e45f-464a-9e7b-7f4bf52a5723",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131244, 3516, 231, 3, 41, "Output",ExpressionUUID->"7416394f-d3a5-4164-9538-aa5c39cffc14",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131478, 3521, 231, 3, 41, "Output",ExpressionUUID->"a804b1ca-b722-48e2-8b24-1dc184d4de14",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131712, 3526, 231, 3, 41, "Output",ExpressionUUID->"88a5f104-c82a-49b5-8757-61fc0c4f4690",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131946, 3531, 231, 3, 41, "Output",ExpressionUUID->"65c50413-cd10-46b5-b428-1f82fee7bc75",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[132180, 3536, 231, 3, 41, "Output",ExpressionUUID->"d5d1ef7b-22ab-4cdd-9a9f-4cfd677d6e92",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[132414, 3541, 1153, 35, 115, "Output",ExpressionUUID->"7ac1721f-17d6-4a29-a4a6-7d911ca39a15",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[133570, 3578, 231, 3, 41, "Output",ExpressionUUID->"57e1d709-2c8e-4e58-a8c7-63de6eb26549",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[133804, 3583, 1203, 37, 133, "Output",ExpressionUUID->"3d0cee3d-3663-450a-8e75-1febf7d14b94",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[135010, 3622, 231, 3, 41, "Output",ExpressionUUID->"d6a72921-2f33-4ccc-b4b6-bb7b775cc09e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[135290, 3631, 240, 4, 55, "Section",ExpressionUUID->"4fbb31d0-4d0f-443f-a170-503278aeefb4",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[CellGroupData[{
Cell[135555, 3639, 12677, 313, 554, "Input",ExpressionUUID->"98d743ad-2a91-4d8e-9864-9f5a8251b085",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[148235, 3954, 2054, 66, 290, "Output",ExpressionUUID->"3e34cf5d-a502-42f4-a475-021179777b0e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[150326, 4025, 490, 9, 105, "Input",ExpressionUUID->"a30e4682-2349-4ba8-a4f6-c7a6c6275bbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[150819, 4036, 439, 11, 70, "Output",ExpressionUUID->"6198b653-6ca9-4651-9916-923215aa6f27",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[151295, 4052, 489, 9, 105, "Input",ExpressionUUID->"0b3ad558-5b59-4094-897a-9e813d24cf90",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[151787, 4063, 508, 14, 70, "Output",ExpressionUUID->"196aa1eb-2e0a-4040-a4a7-e6ddb41518b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[152332, 4082, 7561, 190, 651, "Input",ExpressionUUID->"86063362-1646-4f33-934d-56aa5585f727",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[159896, 4274, 1560, 48, 172, "Output",ExpressionUUID->"6605d2dc-ddbe-4c99-9894-9e4acef690e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[161493, 4327, 5979, 144, 294, "Input",ExpressionUUID->"d691d1e8-40d1-4308-a57f-7198bc0d5120",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[167475, 4473, 1264, 39, 128, "Output",ExpressionUUID->"43729845-2c76-4ee9-8774-91835bb7f6b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[168776, 4517, 868, 21, 147, "Input",ExpressionUUID->"813324eb-b100-4d73-9273-1e643f73983f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[169647, 4540, 1280, 38, 96, "Output",ExpressionUUID->"57b1bd05-33a2-477d-bd51-d87033992d3a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[170964, 4583, 525, 13, 63, "Input",ExpressionUUID->"59a58bc6-938b-46fa-818f-149b3e3fb009",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[171492, 4598, 361, 9, 53, "Output",ExpressionUUID->"16ba8112-4a84-4c86-b763-fc8ae9c99c4e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[171856, 4609, 11648, 346, 366, "Output",ExpressionUUID->"7e1beb7e-77ae-4387-a31a-0e690cb52804",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[183553, 4961, 955, 26, 102, "Input",ExpressionUUID->"8d837639-e2c7-4278-8727-0ec6112b845a"],
Cell[184511, 4989, 328, 9, 59, "Output",ExpressionUUID->"e0f19473-4de3-4a1b-8611-25325f58d076"],
Cell[184842, 5000, 304, 8, 57, "Output",ExpressionUUID->"e4c86cd2-dddf-470e-882c-1d74408ea845"],
Cell[185149, 5010, 378, 10, 59, "Output",ExpressionUUID->"6681a8c3-e04c-471d-a67e-eb32550f47e9"]
}, Open  ]]
}
]
*)