Causality and conjugate points in general plane waves by Flores & Sanchez.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[    207950,       5298]
NotebookOptionsPosition[    189669,       5032]
NotebookOutlinePosition[    190136,       5049]
CellTagsIndexPosition[    190093,       5046]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for : 
Causality and conjugate points in general plane waves by Flores & Sanchez\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.8224821007791157`*^9, 
   3.822482104130458*^9}, {3.822489395932722*^9, 3.8224894527638607`*^9}, {
   3.822497661735147*^9, 3.822497664645886*^9}, {3.824890480222145*^9, 
   3.824890490717527*^9}, {3.824892220316618*^9, 3.824892231595771*^9}, {
   3.8553984856004467`*^9, 3.8553984907154922`*^9}},
 TextAlignment->Center,ExpressionUUID->"e3877f3f-149b-4e8a-9cc1-0c8973b790b6"],

Cell["\<\
Geoff Cope
University of Utah
                                                                              \
                               \|01040f\|01042d\|01044c\|010432\|010442\
\|010432\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\
\|01042d\|01043b\|01042b
March 16, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.850737092718917*^9, 3.850737113741796*^9}, 3.8521317157482023`*^9, {
   3.852133617349394*^9, 3.852133621456737*^9}, 3.852135095983374*^9, {
   3.855278199136589*^9, 3.855278202761684*^9}, {3.85530587854508*^9, 
   3.8553058892272778`*^9}, {3.8553121648813953`*^9, 3.85531217383519*^9}, {
   3.855335650055236*^9, 3.8553356542498093`*^9}, {3.855394144328237*^9, 
   3.8553941445284863`*^9}, {3.855395278880085*^9, 3.855395287327427*^9}, {
   3.8553967558002167`*^9, 3.855396761184595*^9}, 3.855397025311378*^9, {
   3.855398481144355*^9, 3.855398490715598*^9}},
 TextAlignment->Center,ExpressionUUID->"659d3adc-4485-4178-be3d-44f9bbd3b130"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"26612265-5fff-44eb-9ed9-\
502b3fcad253"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"25a90e1f-f8c8-4e4b-8483-376b2e383be3"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.822482480136079*^9, 3.8224898908226633`*^9, 
   3.822497745906148*^9, 3.824890727145193*^9, 3.824890868649728*^9, 
   3.824892292779994*^9, 3.824892416897109*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"3aa7f335-505f-4db9-a7a4-ac2efa315bec"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.8262112387159767`*^9, 
   3.8262112440595837`*^9}},ExpressionUUID->"57535634-3510-4362-ade8-\
81e3e6dc2355"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Causality and conjugate points in general plane waves by Flores & \
Sanchez\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/0211086\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820937821267164*^9, 3.820937831355131*^9}, 
   3.820938266276173*^9, {3.820943594217032*^9, 3.8209436078562593`*^9}, {
   3.8209443229405193`*^9, 3.820944325355048*^9}, {3.821743324884153*^9, 
   3.821743356946837*^9}, {3.822055672161707*^9, 3.822055683815353*^9}, {
   3.822489484253265*^9, 3.8224894875639353`*^9}, {3.822489522108773*^9, 
   3.822489523644137*^9}, {3.822497714007214*^9, 3.8224977298470087`*^9}, {
   3.8262112111187897`*^9, 3.826211228228099*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"1ed998d2-c3e3-42f5-84cf-9fd372515b44"],

Cell[BoxData[
 TemplateBox[{
  "\"Causality and conjugate points in general plane waves by Flores & \
Sanchez\"", "https://arxiv.org/abs/gr-qc/0211086"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820943610435731*^9, 3.8209438714753857`*^9, 3.820944342110894*^9, 
   3.8217299060603456`*^9, 3.821732641544755*^9, 3.821743357483428*^9, 
   3.821806993224433*^9, 3.821811426063634*^9, 3.822042652692665*^9, {
   3.8220487938044643`*^9, 3.82204880094687*^9}, 3.8220556858815327`*^9, 
   3.8224824802831783`*^9, 3.8224895241903143`*^9, 3.822489890861261*^9, {
   3.82249773245182*^9, 3.822497745938664*^9}, 3.824890727182322*^9, 
   3.824890868694602*^9, 3.824892292910572*^9, 3.8248924169362793`*^9, 
   3.8262112293703327`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"36d4a058-9bd4-43af-8f8d-1ba45f42d33e"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Plane Waves by Griffiths - Book\>\"", ",", 
   "\"\<ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%\
20plane%20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)\
(254s)_PGr_.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"7133a707-13dc-4859-bde5-e0e2c7bd09aa"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822482480295116*^9, 3.822489890871723*^9, 3.822497745948998*^9, 
   3.824890727194166*^9, 3.824890868706805*^9, 3.824892292925439*^9, 
   3.8248924169468203`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"b030221a-6103-41e7-80ff-c7d53c3cda29"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"11751a63-8fef-4594-ac43-\
9eff4afde111"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"a4b8c508-934c-41d1-86de-d4dce4671977"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.8224824804085913`*^9, 3.8224898910085783`*^9, 
   3.8224977460430803`*^9, 3.824890727369823*^9, 3.824890868878676*^9, 
   3.8248922929851294`*^9, 3.824892417058208*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"6992437a-fd4a-499b-80ca-e4fdf4a77e8c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"82 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "82 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.8224824804085913`*^9, 3.8224898910085783`*^9, 
   3.8224977460430803`*^9, 3.824890727369823*^9, 3.824890868878676*^9, 
   3.8248922929851294`*^9, 3.824892417061326*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"363d0388-cc4b-4a35-ba83-694b1a108d3a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822482480411549*^9, 3.822489891012272*^9, 
   3.8224977460462*^9, 3.824890727374408*^9, 3.824890868882545*^9, 
   3.824892292989253*^9, 3.824892417062861*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"e8c81df3-26d6-48b9-b390-857bec1ad232"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"7b729144-e46f-4642-99fa-99691e8d81af"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824891127110525*^9, 
  3.824891144636133*^9}},ExpressionUUID->"63c85849-849c-45ad-a960-\
c29517d6512b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["Z", "0"], "]"}], " ", "\[Rule]", " ", 
      SubscriptBox["dZ", "0"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["Z", "1"], "]"}], " ", "\[Rule]", " ", 
      SubscriptBox["dZ", "1"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["Z", "2"], "]"}], "\[Rule]", " ", 
      SubscriptBox["dZ", "2"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["Z", "3"], "]"}], "\[Rule]", " ", 
      SubscriptBox["dZ", "3"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["Z", "4"], "]"}], " ", "\[Rule]", " ", 
      SubscriptBox["dZ", "4"]}], " ", ",", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["\[Eta]", "0"], "]"}], "\[Rule]", " ", 
      SubscriptBox["d\[Eta]", "0"]}], " ", ",", " ", "\[IndentingNewLine]", 
     " ", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["t", "0"], "]"}], "\[Rule]", " ", 
      SubscriptBox["dt", "0"]}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], " ", "\[Rule]", " ", "d\[Chi]"}], 
     " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "R", "]"}], " ", "\[Rule]", " ", "dR"}], "  ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], "  ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", " ", "d\[ScriptU]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", " ", "d\[ScriptX]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["t", 
        RowBox[{"-", "1"}]], "]"}], "\[Rule]", " ", 
      SubscriptBox["dt", 
       RowBox[{"-", "1"}]]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["t", "b"], "]"}], "\[Rule]", " ", 
      SubscriptBox["dt", "b"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["z", "b"], "]"}], "\[Rule]", " ", 
      SubscriptBox["dz", "b"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["t", "k"], "]"}], " ", "\[Rule]", " ", 
      SubscriptBox["dt", "k"]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", 
       SubscriptBox["z", "k"], "]"}], " ", "\[Rule]", " ", 
      SubscriptBox["dz", "k"]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}]}], 
    " ", "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.822489547545336*^9, {3.822491703411667*^9, 3.822491707122538*^9}, {
   3.822498821880814*^9, 3.822498852715959*^9}, 3.824891135921157*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"89c23f0f-ba96-4f42-bb5f-5f260b023c16"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "Z", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"Z", ",", "0"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dZ", "0"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "Z", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"Z", ",", "1"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dZ", "1"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "Z", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"Z", ",", "2"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dZ", "2"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "Z", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"Z", ",", "3"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dZ", "3"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "Z", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"Z", ",", "4"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dZ", "4"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Eta]", ",", "0"}], "]"}]}], "\[Rule]", 
       SubscriptBox["d\[Eta]", "0"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "0"}], "]"}]}], "\[Rule]", 
       SubscriptBox["dt", "0"]}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "R", "]"}], "\[Rule]", "dR"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", "d\[ScriptU]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", "d\[ScriptX]"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["Subscript", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "\[Rule]", 
       SubscriptBox["dt", 
        RowBox[{"-", "1"}]]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dt", "[", "b", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "b"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Dt", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "b"}], "]"}]}]}], "\[Rule]", 
       SubscriptBox["dt", "b"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dt", "[", "b", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"z", ",", "b"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Dt", "[", "z", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"z", ",", "b"}], "]"}]}]}], "\[Rule]", 
       SubscriptBox["dz", "b"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dt", "[", "k", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "k"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Dt", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "k"}], "]"}]}]}], "\[Rule]", 
       SubscriptBox["dt", "k"]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Dt", "[", "k", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"z", ",", "k"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Dt", "[", "z", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Subscript", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"z", ",", "k"}], "]"}]}]}], "\[Rule]", 
       SubscriptBox["dz", "k"]}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8224977461184683`*^9, 3.82249885336631*^9, 
  3.824890727404653*^9, 3.82489086891556*^9, 3.824891135921261*^9, 
  3.824892293067602*^9, 3.8248924170926733`*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"4c72c4da-b880-437b-8634-d295d6abc6a5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "treat", " ", "a", " ", "as", " ", "a", " ", "constant"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "/:", 
    RowBox[{"Dt", "[", "\[Alpha]", "]"}], "=", "0"}], "  ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"transform", " ", "for", " ", "equation", " ", "5"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]", "/:", 
    RowBox[{"Dt", "[", "\[Beta]", "]"}], "=", "0"}], "  ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"transform", " ", "for", " ", "equation", " ", "12"}], " ", "*)"}],
   " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822489921818756*^9, 3.822489928146487*^9}, {
   3.8224900981586447`*^9, 3.822490114525285*^9}, {3.822491170518989*^9, 
   3.822491190926227*^9}, 3.824891135921427*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"59e29a4a-b56e-4f44-a3f0-cf68e29cca94"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, 3.824890628455711*^9, {
   3.824891151795218*^9, 
   3.8248911530917053`*^9}},ExpressionUUID->"6834c1fa-be53-4490-8b94-\
663cee79f1f4"],

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", 10000.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.824890628455883*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"9a19e4cf-9ff2-4d1d-aba6-b2f715b76c68"],

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", 10000.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9, 3.824890628456005*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"98be870b-79ec-412d-b766-ddad7e27aed6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8248923349254723`*^9, 
  3.824892350245263*^9}},ExpressionUUID->"725011de-27bd-4ed3-be16-\
1757813daa7b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq1pt1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"I", " ", "think", " ", 
       RowBox[{"there", "'"}], "s", " ", "a", " ", "mistake", " ", "here"}], 
      "..."}], " ", "they", " ", 
     RowBox[{"can", "'"}], "t", " ", "all", " ", "be", " ", "positive"}], 
    "..."}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox["dx1", "2"], "+", " ", 
   SuperscriptBox["dx2", "2"], "+", " ", 
   RowBox[{"2", " ", "du", " ", "dv"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"H", "[", 
     RowBox[{"x1", ",", "x2", ",", "u"}], "]"}], " ", 
    SuperscriptBox["du", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892256407349*^9, 3.824892283315794*^9}, 
   3.824892341565196*^9, {3.824893013154854*^9, 
   3.824893024881302*^9}},ExpressionUUID->"a363e593-9128-40d8-a9e7-\
64fd850f7ec0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "+", 
  SuperscriptBox["dx1", "2"], "+", 
  SuperscriptBox["dx2", "2"], "+", 
  RowBox[{
   SuperscriptBox["du", "2"], " ", 
   RowBox[{"H", "[", 
    RowBox[{"x1", ",", "x2", ",", "u"}], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82489229312562*^9, 3.824892341565702*^9, 
  3.8248924171383953`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"95911d78-33b0-4b90-946e-fbbc3dcb9427"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1pt1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx1", ",", "dx2"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1pt1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892298072115*^9, 3.824892341565895*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"d1f333f1-fe96-4c32-aeef-c405d987d1b4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"H", "[", 
       RowBox[{"x1", ",", "x2", ",", "u"}], "]"}], "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8248923090223494`*^9, 3.824892341566223*^9}, 
   3.8248924171480703`*^9},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"a68d8e24-c9ff-422d-a342-\
84266e21ed95"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Inverse", "[", " ", "metric1pt1", " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse1pt1", "  ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892564905532*^9, 3.824892591143772*^9}, 
   3.8248926420752068`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"57ecc9c7-d0c0-44c0-a817-0a195b18d011"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", 
      RowBox[{"-", 
       RowBox[{"H", "[", 
        RowBox[{"x1", ",", "x2", ",", "u"}], "]"}]}], "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892581496429*^9, 3.824892591393422*^9}, 
   3.82489264207576*^9},
 CellLabel->
  "Out[59]//MatrixForm=",ExpressionUUID->"8581b573-b164-4bba-9156-\
a7ad0d07f945"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1pt1", "  ", ".", " ", "inverse1pt1"}], "  ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892597568232*^9, 3.824892642075912*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"668f83df-0754-4a63-8bfa-5df6c5fd8697"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892612374138*^9, 3.824892642076309*^9}},
 CellLabel->
  "Out[60]//MatrixForm=",ExpressionUUID->"8bf33f5b-f40a-4b4c-81d4-\
b45e8ec0b8b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1pt1", " ", ".", " ", "metric1pt1"}], "    ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824892621095663*^9, 3.824892642076436*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"ea928610-8339-4ce2-b7cd-ecefb65724c3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8248926275367107`*^9, 3.8248926420767117`*^9}},
 CellLabel->
  "Out[61]//MatrixForm=",ExpressionUUID->"5e152261-6d98-41c4-b0c3-\
5b7d1e2824be"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Tensors For Metric 1.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824892534112315*^9, 
  3.824892560223102*^9}},ExpressionUUID->"8627ffeb-c8a4-44d5-a2b6-\
7ba8c29514d6"],

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", 10002.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.824892366936569*^9, 
   3.824892373681354*^9}, 3.824892545438499*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"1a49c92c-3ef9-4322-b33c-9fa3a89d5adf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "1.34", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1pt1\>\"", ",", " ", "metric1pt1", ",", " ", 
     "\"\<PlaneFronted\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(pf\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "x1", ",", "x2"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.824892383590967*^9, 
   3.824892425805851*^9}, 
   3.824892545438678*^9},ExpressionUUID->"cb5b4704-61a5-46bf-b06d-\
368fe0e69cbb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.342864`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824892418521944*^9, 3.8248925454387836`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"75d31e5c-9d62-4afc-ab98-867264c3ae96"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824892446162023*^9, 3.824892446607729*^9}, 
   3.824892545438889*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"8c7bbed6-aa6a-4d9d-9aca-42beb5211f00"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "pf"], "\[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", 10002.},
 CellChangeTimes->{3.824892447074089*^9, 3.8248925454392567`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"b08ff615-94eb-4377-8469-d6e15bda0902"],

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", 10002.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.824892545439386*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"6fdccaf6-f155-4cfd-8e2f-1a51712f6b9d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "pf"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451649951*^9, 
  3.8248925454394817`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"5eaf7b87-3a92-499c-984f-9fe3ed5c731d"],

Cell[BoxData["\<\"PlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8248924516546717`*^9, 
  3.82489254543957*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"4f120e66-9d7b-4b29-8e70-8ae95c1dfc42"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"H", "(", 
        RowBox[{"x1", ",", "x2", ",", "u"}], ")"}], "1", "0", "0"},
      {"1", "0", "0", "0"},
      {"0", "0", "1", "0"},
      {"0", "0", "0", "1"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451686343*^9, 
  3.824892545439664*^9},
 CellLabel->
  "Out[24]//TraditionalForm=",ExpressionUUID->"0fc31e2c-efb8-45f3-ace4-\
b2a7da656add"],

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", 10002.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.824892545439802*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"60a11489-90d2-4719-9001-37c6d3633bb0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451742158*^9, 3.824892545439893*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"7eb06954-d181-415a-908a-1fc0682f0680"],

Cell[BoxData["\<\"ChristoffelSymbolPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8248924517465677`*^9, 3.824892545439974*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"29c26d81-8785-4962-80ec-8e58e22f14cb"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x1"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x2"}],
              MultilineFunction->None]}]}
          },
          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["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x1"}],
              MultilineFunction->None]}]},
           {"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["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x2"}],
              MultilineFunction->None]}]},
           {"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[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x1"}],
              MultilineFunction->None]}]},
           {"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[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x2"}],
              MultilineFunction->None]}]},
           {"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]", ")"}]}
     },
     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", 10002.},
 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.824892451759796*^9, 3.824892545440049*^9},
 CellLabel->
  "Out[27]//TraditionalForm=",ExpressionUUID->"71a484f9-3c62-4b2a-a1a0-\
8c9bfb4bbd51"],

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", 10002.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.8248925454401703`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"6c90640d-ec42-422d-af0e-6a6a2d8ce2f2"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451798524*^9, 
  3.824892545440263*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"c4c59ac9-c8fd-4eb5-92df-96bcedf559ce"],

Cell[BoxData["\<\"RiemannTensorPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451804528*^9, 
  3.8248925454403543`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"fed6d858-e07d-4f18-8e19-8ca1314004fc"],

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", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x1", "2"]}],
             MultilineFunction->None]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x1", "2"]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x2", "2"]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x2", "2"]}],
             MultilineFunction->None]}], "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", "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", "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["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x1", "2"]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x1", "2"]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "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", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x2", "2"]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x2", "2"]}],
             MultilineFunction->None]}], "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", "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]", ")"}]}
     },
     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", 10002.},
 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.824892451848755*^9, 
  3.824892545440424*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"d71f8479-554d-407a-975e-\
7ff96e11ed27"],

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", 10002.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.82489254544055*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"b7642594-8ec4-4f3e-8455-af5db4ff3bd1"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451865272*^9, 
  3.8248925454406443`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"4048d7fd-8fab-4e96-a64f-d22d997c7dae"],

Cell[BoxData["\<\"RicciTensorPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451870846*^9, 
  3.82489254544073*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"9d9e1641-384a-4764-8ea1-cfb19ae0f4a6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x2", "2"]}],
           MultilineFunction->None]}], ")"}]}], "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", 10002.},
 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.824892451872951*^9, 
  3.8248925454407997`*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"da727658-cbc9-4b9c-a337-\
ac8d5294327a"],

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", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.8248925454409237`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"0875adb6-c4af-4a35-898b-40cbdde7dbf8"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451905962*^9, 
  3.824892545441021*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"3cad087f-d80d-438e-95b6-ea8338f7eb07"],

Cell[BoxData["\<\"RicciScalarPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.82489245191026*^9, 
  3.824892545441126*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"63139fc0-c575-4b22-8df9-64331ff59e8e"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8248924519117603`*^9, 
  3.8248925454411983`*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"9be12962-1f56-4e1c-b682-\
433be30b1e0e"],

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", 10002.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.824892545441328*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"d81f21b4-54e6-4ec4-86d4-f5b33d7ea108"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8248924519247427`*^9, 3.8248925454414177`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"6bf8506b-ed66-4b88-bfd4-432be1510665"],

Cell[BoxData["\<\"KretschmannScalarPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.824892451928914*^9, 3.824892545441502*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"2ff51a6f-c923-4a75-9727-93d76833114a"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8248924519304543`*^9, 3.824892545441567*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"b0ed3dfa-9ac0-4cca-907f-\
149726a3941d"],

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", 10002.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.824892545441696*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"1b6eb28f-9f98-4380-aea2-6913d83fd651"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.824892451961997*^9, 3.8248925454417887`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"9aa67923-64b0-4033-8111-ccedbe31440a"],

Cell[BoxData["\<\"EinsteinTensorPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.824892451966298*^9, 3.824892545441868*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"56eea2f8-b42e-4a1e-8f68-6fd12614967e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x2", "2"]}],
           MultilineFunction->None]}], ")"}]}], "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", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.824892451969851*^9, 3.8248925454419317`*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"ccce5858-b520-4889-b9f3-\
b034ab8a2b1b"],

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", 10002.},
 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.824892545442048*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"d3138479-c8a0-4965-931b-88bb8ce482ca"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8248924519949303`*^9, 3.824892545442141*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"4ee7db5c-8769-4c76-9631-b5294ad62a2b"],

Cell[BoxData["\<\"WeylTensorPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.824892451999498*^9, 3.8248925454422293`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"f1e27428-60ae-4e40-ae8d-c6c21f470917"],

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", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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", "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", "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["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "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", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "x2"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x1", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x2", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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", "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]", ")"}]}
     },
     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", 10002.},
 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.8248924520829697`*^9, 3.8248925454427757`*^9},
 CellLabel->
  "Out[45]//TraditionalForm=",ExpressionUUID->"8e69f2b2-d5cb-4676-9290-\
f50683fcc3a2"],

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", 10002.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.824892545442912*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"1e392992-5196-4a06-920c-dc1efdd55dd7"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824892452096319*^9, 3.824892545443006*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"36b4a73f-db9c-42a1-ab25-78b59c0672cc"],

Cell[BoxData["\<\"CottonTensorPlaneFronted\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824892452101316*^9, 3.8248925454430943`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"040e524f-f41a-4cc9-a6fa-6aa20e3f2992"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"H", "(", 
                   RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x2", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x1", "3"]}],
                MultilineFunction->None]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"H", "(", 
                   RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x1", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "x2"}]}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x2", "3"]}],
                MultilineFunction->None]}], ")"}]}]}
          },
          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["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x2", "2"]}]}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x1", "3"]}],
                MultilineFunction->None]}], ")"}]}]},
           {"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["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x1", "2"]}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "x2"}]}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x2", "3"]}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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]", ")"}]}
     },
     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", 10002.},
 CellChangeTimes->{3.824892452136754*^9, 3.8248925454431543`*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"4fe817e9-c039-4eb2-9dab-\
2306daaba0e3"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicciEinstein", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicciEinstein", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicciEinstein", "  ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824892472502736*^9, 3.8248925454432993`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"00444481-cf3b-4567-a8e9-263ebd1ac9d5"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x2", "2"]}],
           MultilineFunction->None]}], ")"}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x2", "2"]}],
           MultilineFunction->None]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824892474731339*^9, 3.824892483944337*^9}, {
  3.824892526805464*^9, 3.824892545443624*^9}},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"fc10c387-370c-4185-9470-\
5985dec61615"]
}, Closed]],

Cell[CellGroupData[{

Cell["Construction of Null Tetrad and Check of Orthogonality", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.824893038109063*^9, 
  3.824893062019711*^9}},ExpressionUUID->"d5036228-af1d-4dbf-b0e6-\
9b8d01f199e6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "See", " ", "Carmelli", " ", "Classical", " ", "Fields", " ", "Page", " ", 
    "186", " ", "for", " ", "this", " ", "null", " ", "tetrad"}], " ", "*)"}],
   " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\[ScriptL]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"\[ScriptL]", "=", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820933371686145*^9, 3.82093337715728*^9}, 
   3.8209374103413973`*^9, 3.820944472322248*^9, {3.8248927855291853`*^9, 
   3.824892789695538*^9}, 3.824893047821684*^9, {3.824893153594788*^9, 
   3.8248931696013317`*^9}},ExpressionUUID->"21f9dace-3984-4b94-a6fe-\
5dbeb88daffa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820933237654937*^9, 3.820933379685409*^9, 
  3.820933448095758*^9, 3.820937410341577*^9, 3.820944472322352*^9, 
  3.8243816284850473`*^9, 3.82438185652029*^9, 3.824511849396772*^9, 
  3.82451417433105*^9, 3.8248927907301273`*^9, 3.824892889345357*^9, 
  3.824893047821807*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"52c3d782-25a8-49a6-8882-d46768a76115"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    FractionBox[
     RowBox[{" ", 
      RowBox[{"H", "[", 
       RowBox[{"x1", ",", "x2", ",", "u"}], "]"}]}], "2"], ",", "1", ",", "0",
     ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820933298406392*^9, 3.820933313508857*^9}, 
   3.820937410341757*^9, 3.820944472322452*^9, {3.824892836666039*^9, 
   3.824892855095489*^9}, 3.824893047821953*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"cf72ad81-f384-4721-a133-5bb5057a6710"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"H", "[", 
     RowBox[{"x1", ",", "x2", ",", "u"}], "]"}]}], ",", "1", ",", "0", ",", 
   "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820933313826449*^9, 3.820933381335147*^9, 
  3.820933448122315*^9, 3.820937410341963*^9, 3.820944472322535*^9, 
  3.8243816285060167`*^9, 3.824381856534606*^9, 3.824511849423729*^9, 
  3.8245141743647127`*^9, 3.824892889408432*^9, 3.8248930478220577`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"34595848-22c2-4cc4-86c6-23bdb07f00fd"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["1", 
     SqrtBox["2"]], ")"}], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820933317854281*^9, 3.8209333396620893`*^9}, 
   3.820937410342205*^9, 3.820944472322617*^9, {3.824892860231721*^9, 
   3.824892871471304*^9}, {3.824892940338812*^9, 3.82489294224431*^9}, 
   3.824893047822208*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"2e1487fc-8b37-4dcd-a14a-39aac25c57cc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["2"]]}], ",", 
   RowBox[{"-", 
    FractionBox["\[ImaginaryI]", 
     SqrtBox["2"]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820933339966406*^9, 3.8209333835387917`*^9, 
  3.8209334481343927`*^9, 3.82093741034233*^9, 3.820944472322708*^9, 
  3.8243816285481443`*^9, 3.824381856569952*^9, 3.824511849437441*^9, 
  3.8245141743819103`*^9, 3.824892889422613*^9, 3.824892948110367*^9, 
  3.8248930478223057`*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"31121138-6502-4aa5-8684-92139e2f6428"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["1", 
     SqrtBox["2"]], ")"}], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "\[ImaginaryI]"}], "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820933342941945*^9, 3.8209333673030777`*^9}, 
   3.820937410342538*^9, 3.820944472322826*^9, {3.824892877448648*^9, 
   3.824892881688101*^9}, {3.824892944586433*^9, 3.824892946393347*^9}, 
   3.8248930478224277`*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"dc13386e-0c30-45c5-8ba2-9615f2a5c298"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"-", 
    FractionBox["1", 
     SqrtBox["2"]]}], ",", 
   FractionBox["\[ImaginaryI]", 
    SqrtBox["2"]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820933367920988*^9, 3.820933385725149*^9}, 
   3.82093344816428*^9, 3.820937410342681*^9, 3.820944472322927*^9, 
   3.824381628567217*^9, 3.824381856586792*^9, 3.824511849465397*^9, 
   3.824514174420451*^9, 3.82489288945755*^9, 3.824892949236823*^9, 
   3.824893047822524*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"3571ce49-a94d-4842-b44b-206b8cf0bcfc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "needed", " ", 
    "are", " ", "up", " ", "or", " ", "down", " ", "and", " ", "these", " ", 
    "are", " ", "DOWN"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"ToTensor", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
      ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"m", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<m\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"mbar", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<mbar\>\""}], " ", 
       "}"}], " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]bar", " ", 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}], " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.820937410342936*^9, 3.8209444723230133`*^9, {3.824892794233779*^9, 
   3.824892803184708*^9}, 3.824893047822762*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"394fda7a-365e-4482-a389-7314aa741385"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.824892889472206*^9, 3.8248929518416023`*^9, 3.8248930478228493`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"1f0489f6-b747-4739-bfb8-16864e97bccf"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.824892889472206*^9, 3.824892951845811*^9, 3.8248930478229427`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"65f3db42-b089-4f59-ac29-db666a2ac2cf"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.824892889472206*^9, 3.824892951847974*^9, 3.8248930478230553`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"097a3365-7d51-43b1-a023-2f233c60c7b0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.824892889472206*^9, 3.82489295185093*^9, 3.824893047823159*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"67001cd2-6e1c-45b9-a0e7-bdb8189ddb30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"ContractIndices", "[", 
    RowBox[{
     RowBox[{"m", "[", "\[Mu]", "]"}], 
     RowBox[{"mbar", "[", 
      RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824893047823267*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"1275fc6b-3449-4232-a683-519468b36a32"],

Cell[BoxData["1"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892921860717*^9, 3.824893047823757*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"ba316d4b-4989-4617-b017-73d149638231"],

Cell[BoxData[
 RowBox[{"TensorValues", "[", 
  RowBox[{"ContractIndices", "[", 
   RowBox[{
    RowBox[{"l", "[", 
     RowBox[{"-", "\[Mu]"}], "]"}], 
    RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8248930478238583`*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"2c620514-bc6b-41c9-8b92-8c525bb394d3"],

Cell[BoxData["1"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892929485857*^9, 3.8248930478241568`*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"1ee3356f-4e6e-4459-a247-b7441aff18e5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"m", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"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]", 
 RowBox[{"Clear", "[", "completenessDownIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessDownIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "metric1pt1", "]"}], " ", "\[Equal]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", " ", 
        RowBox[{
        "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
        "]"}]}], " ", "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "FullSimplify"}], "  ", "//", " ", "TableForm"}], 
  "\[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"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "inverse1pt1", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.820937410343767*^9, 3.820944472323543*^9, {3.8237794627048893`*^9, 
   3.823779471575405*^9}, 3.823780788700976*^9, {3.824892892680595*^9, 
   3.824892900247965*^9}, 3.824893047824645*^9},
 CellLabel->
  "In[102]:=",ExpressionUUID->"d7c3e7db-26bc-4065-88c8-95349ea37194"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955015967*^9, 
  3.824893047824772*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"7318b3c6-7d14-4e6d-b7b3-ed2d1a604f62"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955025105*^9, 
  3.824893047824864*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"1e931075-c7b5-4226-91db-8fd02ff2f184"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955041074*^9, 
  3.8248930478249493`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"e33d5975-90d1-4aff-a80d-078eaf3e2670"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955069838*^9, 
  3.824893047825033*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"702f8732-0c4a-4336-b925-d86b6aafb1b2"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955072891*^9, 
  3.824893047825124*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"da38ccd5-4102-4a7f-9a25-16efde0de1a0"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955075427*^9, 
  3.8248930478252087`*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"3b4e0c34-7012-44cc-9e8d-b17c94a439d5"],

Cell[BoxData["False"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955078298*^9, 
  3.824893047825294*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"eb4d9430-75a7-45da-ab5d-38fd94d8da67"],

Cell[BoxData["False"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.8248929550916767`*^9, 
  3.8248930478253937`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"9ad80388-005d-4c56-b2b1-da12496b6ae3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"H", "[", 
       RowBox[{"x1", ",", "x2", ",", "u"}], "]"}], "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955127911*^9, 
  3.8248930478254833`*^9},
 CellLabel->
  "Out[112]//MatrixForm=",ExpressionUUID->"15b25730-b66a-461d-bb2e-\
eeeb8ac4ef71"],

Cell[BoxData[
 TagBox["False",
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955131113*^9, 
  3.824893047825572*^9},
 CellLabel->
  "Out[113]//TableForm=",ExpressionUUID->"670db7e8-8c9c-4c41-b460-\
1f1d502d3fe8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", 
      RowBox[{"-", 
       RowBox[{"H", "[", 
        RowBox[{"x1", ",", "x2", ",", "u"}], "]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.8248929551682653`*^9, 
  3.824893047825666*^9},
 CellLabel->
  "Out[116]//MatrixForm=",ExpressionUUID->"fb42d10f-5317-429c-99ba-\
ff62f361bc1a"],

Cell[BoxData[
 TagBox["False",
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824892902344273*^9, 3.824892955172564*^9, 
  3.824893047825758*^9},
 CellLabel->
  "Out[117]//TableForm=",ExpressionUUID->"27d8b664-8b34-497b-80cd-\
ad0a4688378a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Newman Penrose Quantities For Metric 1.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8248931230079517`*^9, 
  3.824893144409151*^9}},ExpressionUUID->"f0ca1da3-264c-4b9b-b09a-\
c0543eb850ce"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "spinCoefficientReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       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"}], ")"}]}], ")"}]}], " ", ")"}]}], " ", "//", 
       "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Beta]", " ", "\[Rule]", " ", "\[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"}], " ", ")"}]}], ")"}]}], ")"}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Gamma]", " ", "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "something", " ", "weird", " ", "here", " ", "correct", " ", 
          "definition", " ", "off", " ", "by", " ", "minus", " ", "sign"}], 
         " ", "*)"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            FractionBox["1", "2"], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", " ", 
                   RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"n", "[", "\[Mu]", "]"}], 
                  RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", 
                " ", "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", 
              ")"}], "-", "\[IndentingNewLine]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"MergeTensors", "[", 
                  RowBox[{
                   RowBox[{"CovariantD", "[", " ", 
                    RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                   RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                   RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                 "TensorValues"}], " ", "//", " ", "Expand"}], "  ", "//", 
               " ", "FullSimplify"}], " ", ")"}]}], ")"}]}], " ", "//", " ", 
          "Expand"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
      " ", "Simplify"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       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"}], " ", ")"}]}], " ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Kappa]", "\[Rule]", 
        RowBox[{"(", "  ", 
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "  ", "]"}], "  ", "//", " ", 
          "TensorValues"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], " ", ",", " ", "\[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[{"\[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[{
      RowBox[{
       RowBox[{"\[Nu]", "\[Rule]", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"n", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
          "TensorValues"}], " ", ")"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Pi]", "\[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[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
           "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
         "Simplify"}], " ", ")"}]}]}], " ", ",", " ", "\[IndentingNewLine]", 
     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"}], " ", ")"}]}], "  ", ",", " ", 
     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[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"n", "[", "\[Nu]", " ", "]"}]}], "]"}], "//", " ", 
          "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
        "Simplify"}], "  ", ")"}]}]}], "   ", "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "   ", "//", " ", "TableForm"}], " ", "//",
   " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.820667112307205*^9, {3.820691856877*^9, 3.8206918635710173`*^9}, {
   3.820692627802567*^9, 3.820692798874284*^9}, {3.820793246159666*^9, 
   3.8207932735596313`*^9}, {3.820933088885683*^9, 3.820933089524383*^9}, 
   3.820934520109788*^9, 3.8209373342691517`*^9, {3.82100327861626*^9, 
   3.8210032838458157`*^9}, {3.821003386912135*^9, 3.821003405643714*^9}, {
   3.8210037363804407`*^9, 3.8210037487041388`*^9}, {3.82437982699832*^9, 
   3.824379841631565*^9}, {3.824382108710671*^9, 3.8243821568691874`*^9}, 
   3.824893130599419*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"2d1038e3-2f2d-461d-859b-2e3bbc6f09d3"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[Alpha]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Beta]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Gamma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[CurlyEpsilon]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Kappa]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Lambda]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Mu]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Nu]", "\[Rule]", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"H", "(", 
             RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x1"}],
           MultilineFunction->None], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x2"}],
            MultilineFunction->None]}]}], 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]]}]},
      {
       RowBox[{"\[Pi]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Rho]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Sigma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Tau]", "\[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", 10004.},
 CellChangeTimes->{3.824893078797014*^9, 3.8248931305995493`*^9},
 CellLabel->
  "Out[120]//TraditionalForm=",ExpressionUUID->"fe6d6921-7334-479f-85c7-\
3510ebfd0195"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ricciScalarsReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "OO"], "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"could", " ", "use", " ", "invisible", " ", "comma"}], ",", 
          " ", 
          RowBox[{
          "but", " ", "shows", " ", "up", " ", "in", " ", "output", " ", "so",
            " ", "use", " ", "letter", " ", "O"}]}], "  ", "*)"}], " ", 
        "\[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"}], ",", 
     "\[IndentingNewLine]", 
     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"}], ",", 
     "\[IndentingNewLine]", 
     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"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[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[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     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"}], ",", "\[IndentingNewLine]", 
     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"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[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[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     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"}], " ", ",", 
     "\[IndentingNewLine]", 
     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", 10004.},
 CellChangeTimes->{{3.8207941683808823`*^9, 3.820794170188884*^9}, {
   3.820794210004217*^9, 3.820794295371916*^9}, {3.820794355374641*^9, 
   3.8207944173021507`*^9}, {3.8209358220143003`*^9, 3.820935854138783*^9}, 
   3.820937334270711*^9, {3.821003405651829*^9, 3.821003467622817*^9}, {
   3.821003736380765*^9, 3.821003748704556*^9}, {3.824235099273512*^9, 
   3.824235208081946*^9}, 3.824893130600194*^9},
 CellLabel->
  "In[121]:=",ExpressionUUID->"2c79108e-cdc8-4e8b-a06f-f60f8e2ca8ff"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "OO"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x2", "2"]}],
            MultilineFunction->None]}], ")"}]}]}]},
      {
       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", 10004.},
 CellChangeTimes->{3.824893092380044*^9, 3.824893130600339*^9},
 CellLabel->
  "Out[123]//TraditionalForm=",ExpressionUUID->"66e48161-e0ee-4f47-b98b-\
1724957377bc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "weylScalarsReplace", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", "   ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"n", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"l", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n",
      "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"mbar", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", "  ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.820667112308317*^9, {3.8206919186046867`*^9, 3.820691920188485*^9}, {
   3.820794507895151*^9, 3.820794582921618*^9}, 3.820937334271385*^9, 
   3.821003405651976*^9, 3.824893130600849*^9},
 CellLabel->
  "In[124]:=",ExpressionUUID->"ad1fe5f9-5381-4a28-9e84-f35706895579"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
        RowBox[{
         FractionBox["1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", "\[ImaginaryI]", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"H", "(", 
                RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x1"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "x2"}]}],
              MultilineFunction->None]}]}], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x1", "2"]}],
            MultilineFunction->None], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"x1", ",", "x2", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x2", "2"]}],
            MultilineFunction->None]}], ")"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824893108842622*^9, 3.824893130600999*^9}},
 CellLabel->
  "Out[126]//TraditionalForm=",ExpressionUUID->"d7188960-d00b-4e86-9ef6-\
56bea5b7aed2"]
}, Closed]]
},
WindowSize->{1273, 675},
WindowMargins->{{2, 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->"08525297-856b-430f-8ac8-a5b299e9b80b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 816, 13, 221, "Title",ExpressionUUID->"e3877f3f-149b-4e8a-9cc1-0c8973b790b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1399, 37, 1614, 26, 94, "Author",ExpressionUUID->"659d3adc-4485-4178-be3d-44f9bbd3b130",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3050, 68, 228, 4, 69, "Section",ExpressionUUID->"26612265-5fff-44eb-9ed9-502b3fcad253",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3281, 74, 434, 9, 63, "Input",ExpressionUUID->"25a90e1f-f8c8-4e4b-8483-376b2e383be3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3718, 85, 711, 12, 43, "Output",ExpressionUUID->"3aa7f335-505f-4db9-a7a4-ac2efa315bec",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4466, 102, 424, 7, 55, "Section",ExpressionUUID->"57535634-3510-4362-ade8-81e3e6dc2355",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[4893, 111, 862, 14, 63, "Input",ExpressionUUID->"1ed998d2-c3e3-42f5-84cf-9fd372515b44",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5758, 127, 869, 15, 43, "Output",ExpressionUUID->"36d4a058-9bd4-43af-8f8d-1ba45f42d33e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6630, 144, 584, 10, 84, "Input",ExpressionUUID->"7133a707-13dc-4859-bde5-e0e2c7bd09aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7217, 156, 748, 14, 43, "Output",ExpressionUUID->"b030221a-6103-41e7-80ff-c7d53c3cda29",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[8002, 175, 228, 4, 69, "Section",ExpressionUUID->"11751a63-8fef-4594-ac43-9eff4afde111",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8233, 181, 1641, 44, 189, "Input",ExpressionUUID->"a4b8c508-934c-41d1-86de-d4dce4671977",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9877, 227, 838, 16, 24, "Print",ExpressionUUID->"6992437a-fd4a-499b-80ca-e4fdf4a77e8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10718, 245, 855, 17, 24, "Print",ExpressionUUID->"363d0388-cc4b-4a35-ba83-694b1a108d3a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11576, 264, 1120, 19, 84, "Output",ExpressionUUID->"e8c81df3-26d6-48b9-b390-857bec1ad232",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12699, 285, 246, 4, 41, "Input",ExpressionUUID->"7b729144-e46f-4642-99fa-99691e8d81af",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[12982, 294, 215, 4, 55, "Section",ExpressionUUID->"63c85849-849c-45ad-a960-c29517d6512b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13200, 300, 4435, 104, 651, "Input",ExpressionUUID->"89c23f0f-ba96-4f42-bb5f-5f260b023c16",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[17638, 406, 8031, 264, 525, "Output",ExpressionUUID->"4c72c4da-b880-437b-8634-d295d6abc6a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[25672, 672, 1104, 27, 105, "Input",ExpressionUUID->"59e29a4a-b56e-4f44-a3f0-cf68e29cca94",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[26813, 704, 362, 6, 55, "Section",ExpressionUUID->"6834c1fa-be53-4490-8b94-663cee79f1f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[27178, 712, 1659, 41, 126, "Input",ExpressionUUID->"9a19e4cf-9ff2-4d1d-aba6-b2f715b76c68",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[28840, 755, 1078, 26, 84, "Input",ExpressionUUID->"98be870b-79ec-412d-b766-ddad7e27aed6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[29955, 786, 229, 4, 55, "Section",ExpressionUUID->"725011de-27bd-4ed3-be16-1757813daa7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[30187, 792, 1016, 25, 84, "Input",ExpressionUUID->"a363e593-9128-40d8-a9e7-64fd850f7ec0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[31206, 819, 496, 12, 41, "Output",ExpressionUUID->"95911d78-33b0-4b90-946e-fbbc3dcb9427",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[31705, 833, 631, 12, 105, "Input",ExpressionUUID->"d1f333f1-fe96-4c32-aeef-c405d987d1b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[32339, 847, 875, 25, 101, "Output",ExpressionUUID->"a68d8e24-c9ff-422d-a342-84266e21ed95",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[33217, 874, 553, 10, 105, "Input",ExpressionUUID->"57ecc9c7-d0c0-44c0-a817-0a195b18d011",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[33773, 886, 894, 26, 101, "Output",ExpressionUUID->"8581b573-b164-4bba-9156-a7ad0d07f945",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[34670, 914, 414, 9, 41, "Input",ExpressionUUID->"668f83df-0754-4a63-8bfa-5df6c5fd8697",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[35087, 925, 773, 22, 101, "Output",ExpressionUUID->"8bf33f5b-f40a-4b4c-81d4-b45e8ec0b8b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[35863, 949, 415, 9, 41, "Input",ExpressionUUID->"ea928610-8339-4ce2-b7cd-ecefb65724c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[36281, 960, 777, 22, 101, "Output",ExpressionUUID->"5e152261-6d98-41c4-b0c3-5b7d1e2824be",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[37095, 987, 237, 4, 55, "Section",ExpressionUUID->"8627ffeb-c8a4-44d5-a2b6-7ba8c29514d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[37335, 993, 5716, 130, 714, "Input",ExpressionUUID->"1a49c92c-3ef9-4322-b33c-9fa3a89d5adf",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[43054, 1125, 1039, 23, 65, "Input",ExpressionUUID->"cb5b4704-61a5-46bf-b06d-368fe0e69cbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[44096, 1150, 284, 5, 41, "Output",ExpressionUUID->"75d31e5c-9d62-4afc-ab98-867264c3ae96",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[44383, 1157, 262, 4, 41, "Input",ExpressionUUID->"8c7bbed6-aa6a-4d9d-9aca-42beb5211f00",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[44648, 1163, 1085, 33, 45, "Output",ExpressionUUID->"b08ff615-94eb-4377-8469-d6e15bda0902",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[45736, 1198, 810, 18, 84, "Input",ExpressionUUID->"6fdccaf6-f155-4cfd-8e2f-1a51712f6b9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[46549, 1218, 560, 11, 45, "Output",ExpressionUUID->"5eaf7b87-3a92-499c-984f-9fe3ed5c731d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[47112, 1231, 482, 7, 41, "Output",ExpressionUUID->"4f120e66-9d7b-4b29-8e70-8ae95c1dfc42",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[47597, 1240, 1131, 29, 100, "Output",ExpressionUUID->"0fc31e2c-efb8-45f3-ace4-b2a7da656add",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[48731, 1271, 813, 18, 84, "Input",ExpressionUUID->"60a11489-90d2-4719-9001-37c6d3633bb0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[49547, 1291, 677, 13, 45, "Output",ExpressionUUID->"7eb06954-d181-415a-908a-1fc0682f0680",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[50227, 1306, 581, 8, 41, "Output",ExpressionUUID->"29c26d81-8785-4962-80ec-8e58e22f14cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[50811, 1316, 12130, 358, 364, "Output",ExpressionUUID->"71a484f9-3c62-4b2a-a1a0-8c9bfb4bbd51",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[62944, 1676, 812, 18, 84, "Input",ExpressionUUID->"6c90640d-ec42-422d-af0e-6a6a2d8ce2f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[63759, 1696, 550, 10, 45, "Output",ExpressionUUID->"c4c59ac9-c8fd-4eb5-92df-96bcedf559ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[64312, 1708, 498, 7, 41, "Output",ExpressionUUID->"fed6d858-e07d-4f18-8e19-8ca1314004fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[64813, 1717, 16211, 427, 440, "Output",ExpressionUUID->"d71f8479-554d-407a-975e-7ff96e11ed27",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[81027, 2146, 807, 18, 84, "Input",ExpressionUUID->"b7642594-8ec4-4f3e-8455-af5db4ff3bd1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[81837, 2166, 535, 10, 45, "Output",ExpressionUUID->"4048d7fd-8fab-4e96-a64f-d22d997c7dae",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[82375, 2178, 492, 7, 41, "Output",ExpressionUUID->"9d9e1641-384a-4764-8ea1-cfb19ae0f4a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[82870, 2187, 1792, 48, 116, "Output",ExpressionUUID->"da727658-cbc9-4b9c-a337-ac8d5294327a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[84665, 2237, 812, 18, 84, "Input",ExpressionUUID->"0875adb6-c4af-4a35-898b-40cbdde7dbf8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[85480, 2257, 498, 9, 41, "Output",ExpressionUUID->"3cad087f-d80d-438e-95b6-ea8338f7eb07",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[85981, 2268, 494, 7, 41, "Output",ExpressionUUID->"63139fc0-c575-4b22-8df9-64331ff59e8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[86478, 2277, 584, 13, 48, "Output",ExpressionUUID->"9be12962-1f56-4e1c-b682-433be30b1e0e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[87065, 2292, 741, 17, 84, "Input",ExpressionUUID->"d81f21b4-54e6-4ec4-86d4-f5b33d7ea108",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[87809, 2311, 331, 6, 41, "Output",ExpressionUUID->"6bf8506b-ed66-4b88-bfd4-432be1510665",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[88143, 2319, 330, 4, 41, "Output",ExpressionUUID->"2ff51a6f-c923-4a75-9727-93d76833114a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[88476, 2325, 411, 10, 48, "Output",ExpressionUUID->"b0ed3dfa-9ac0-4cca-907f-149726a3941d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[88890, 2337, 792, 18, 84, "Input",ExpressionUUID->"1b6eb28f-9f98-4380-aea2-6913d83fd651",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[89685, 2357, 468, 9, 45, "Output",ExpressionUUID->"9aa67923-64b0-4033-8111-ccedbe31440a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[90156, 2368, 429, 6, 41, "Output",ExpressionUUID->"56eea2f8-b42e-4a1e-8f68-6fd12614967e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[90588, 2376, 1725, 47, 116, "Output",ExpressionUUID->"ccce5858-b520-4889-b9f3-b034ab8a2b1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[92316, 2425, 857, 19, 84, "Input",ExpressionUUID->"d3138479-c8a0-4965-931b-88bb8ce482ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[93176, 2446, 553, 10, 45, "Output",ExpressionUUID->"4ee7db5c-8769-4c76-9631-b5294ad62a2b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[93732, 2458, 496, 7, 41, "Output",ExpressionUUID->"f1e27428-60ae-4e40-ae8d-c6c21f470917",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[94231, 2467, 19356, 503, 446, "Output",ExpressionUUID->"8e69f2b2-d5cb-4676-9290-f50683fcc3a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[113590, 2972, 717, 17, 84, "Input",ExpressionUUID->"1e392992-5196-4a06-920c-dc1efdd55dd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[114310, 2991, 304, 6, 45, "Output",ExpressionUUID->"36b4a73f-db9c-42a1-ab25-78b59c0672cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[114617, 2999, 259, 3, 41, "Output",ExpressionUUID->"040e524f-f41a-4cc9-a6fa-6aa20e3f2992",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[114879, 3004, 13257, 385, 340, "Output",ExpressionUUID->"4fe817e9-c039-4eb2-9dab-2306daaba0e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[128139, 3391, 1058, 25, 147, "Input",ExpressionUUID->"00444481-cf3b-4567-a8e9-263ebd1ac9d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[129200, 3418, 2234, 65, 98, "Output",ExpressionUUID->"fc10c387-370c-4185-9470-5985dec61615",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[131471, 3488, 254, 4, 55, "Section",ExpressionUUID->"d5036228-af1d-4dbf-b0e6-9b8d01f199e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[131728, 3494, 826, 17, 105, "Input",ExpressionUUID->"21f9dace-3984-4b94-a6fe-5dbeb88daffa",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[132557, 3513, 525, 9, 41, "Output",ExpressionUUID->"52c3d782-25a8-49a6-8882-d46768a76115",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[133085, 3524, 674, 14, 100, "Input",ExpressionUUID->"cf72ad81-f384-4721-a133-5bb5057a6710",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[133762, 3540, 623, 13, 57, "Output",ExpressionUUID->"34595848-22c2-4cc4-86c6-23bdb07f00fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[134388, 3555, 735, 16, 111, "Input",ExpressionUUID->"2e1487fc-8b37-4dcd-a14a-39aac25c57cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[135126, 3573, 658, 15, 61, "Output",ExpressionUUID->"31121138-6502-4aa5-8684-92139e2f6428",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[135787, 3590, 718, 15, 111, "Input",ExpressionUUID->"dc13386e-0c30-45c5-8ba2-9615f2a5c298",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[136508, 3607, 632, 14, 61, "Output",ExpressionUUID->"3571ce49-a94d-4842-b44b-206b8cf0bcfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[137143, 3623, 2262, 58, 126, "Input",ExpressionUUID->"394fda7a-365e-4482-a389-7314aa741385",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[139408, 3683, 496, 9, 45, "Output",ExpressionUUID->"1f0489f6-b747-4739-bfb8-16864e97bccf",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[139907, 3694, 494, 9, 45, "Output",ExpressionUUID->"65f3db42-b089-4f59-ac29-db666a2ac2cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[140404, 3705, 498, 10, 45, "Output",ExpressionUUID->"097a3365-7d51-43b1-a023-2f233c60c7b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[140905, 3717, 498, 10, 45, "Output",ExpressionUUID->"67001cd2-6e1c-45b9-a0e7-bdb8189ddb30",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[141406, 3729, 417, 10, 41, "Input",ExpressionUUID->"1275fc6b-3449-4232-a683-519468b36a32",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[141826, 3741, 226, 3, 41, "Output",ExpressionUUID->"ba316d4b-4989-4617-b017-73d149638231",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[142055, 3746, 393, 9, 41, "Input",ExpressionUUID->"2c620514-bc6b-41c9-8b92-8c525bb394d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[142451, 3757, 228, 3, 41, "Output",ExpressionUUID->"1ee3356f-4e6e-4459-a247-b7441aff18e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[142682, 3762, 6632, 190, 504, "Input",ExpressionUUID->"d7c3e7db-26bc-4065-88c8-95349ea37194",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[149317, 3954, 258, 5, 41, "Output",ExpressionUUID->"7318b3c6-7d14-4e6d-b7b3-ed2d1a604f62",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[149578, 3961, 258, 5, 41, "Output",ExpressionUUID->"1e931075-c7b5-4226-91db-8fd02ff2f184",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[149839, 3968, 260, 5, 41, "Output",ExpressionUUID->"e33d5975-90d1-4aff-a80d-078eaf3e2670",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[150102, 3975, 258, 5, 41, "Output",ExpressionUUID->"702f8732-0c4a-4336-b925-d86b6aafb1b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[150363, 3982, 258, 5, 41, "Output",ExpressionUUID->"da38ccd5-4102-4a7f-9a25-16efde0de1a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[150624, 3989, 260, 5, 41, "Output",ExpressionUUID->"3b4e0c34-7012-44cc-9e8d-b17c94a439d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[150887, 3996, 259, 5, 41, "Output",ExpressionUUID->"eb4d9430-75a7-45da-ab5d-38fd94d8da67",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[151149, 4003, 263, 5, 41, "Output",ExpressionUUID->"9ad80388-005d-4c56-b2b1-da12496b6ae3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[151415, 4010, 915, 27, 101, "Output",ExpressionUUID->"15b25730-b66a-461d-bb2e-eeeb8ac4ef71",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[152333, 4039, 333, 9, 52, "Output",ExpressionUUID->"670db7e8-8c9c-4c41-b460-1f1d502d3fe8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[152669, 4050, 939, 28, 101, "Output",ExpressionUUID->"fb42d10f-5317-429c-99ba-ff62f361bc1a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[153611, 4080, 333, 9, 52, "Output",ExpressionUUID->"27d8b664-8b34-497b-80cd-ad0a4688378a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[153981, 4094, 257, 4, 55, "Section",ExpressionUUID->"f0ca1da3-264c-4b9b-b09a-c0543eb850ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[154241, 4100, 13706, 328, 551, "Input",ExpressionUUID->"2d1038e3-2f2d-461d-859b-2e3bbc6f09d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[167950, 4430, 1942, 61, 258, "Output",ExpressionUUID->"fe6d6921-7334-479f-85c7-3510ebfd0195",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[169895, 4493, 9523, 251, 751, "Input",ExpressionUUID->"2c79108e-cdc8-4e8b-a06f-f60f8e2ca8ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[179421, 4746, 2266, 69, 218, "Output",ExpressionUUID->"66e48161-e0ee-4f47-b98b-1724957377bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[181690, 4817, 5651, 144, 336, "Input",ExpressionUUID->"ad1fe5f9-5381-4a28-9e84-f35706895579",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[187344, 4963, 2309, 66, 134, "Output",ExpressionUUID->"d7188960-d00b-4e86-9ef6-56bea5b7aed2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]]
}
]
*)