Astrophysically viable Kerr like spacetime into the eye of the storm by Simpson and Visser.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    215717,       5558]
NotebookOptionsPosition[    190350,       5170]
NotebookOutlinePosition[    190834,       5188]
CellTagsIndexPosition[    190791,       5185]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Astrophysically viable Kerr like spacetime into the eye of the storm by \
Simpson and Visser\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.82846914237554*^9, 3.828469146910945*^9}, {
   3.828471572443717*^9, 3.8284715890511923`*^9}, {3.828529438373527*^9, 
   3.8285294469068527`*^9}, {3.828533473276997*^9, 3.8285334845643597`*^9}, {
   3.828605529086955*^9, 3.828605544687042*^9}, {3.8286904376033077`*^9, 
   3.828690443890785*^9}, {3.828960830949527*^9, 3.828960837356461*^9}, {
   3.830250045287751*^9, 3.830250053039715*^9}, {3.8302500871712217`*^9, 
   3.8302500967230377`*^9}, {3.830250128683125*^9, 3.830250137642844*^9}, 
   3.844396082799828*^9, {3.844730743078426*^9, 3.844730744953122*^9}, {
   3.848145521982916*^9, 3.848145536639124*^9}, {3.848319133111467*^9, 
   3.8483191435275927`*^9}},
 TextAlignment->Center,ExpressionUUID->"8cceefdd-7fe8-4c87-a1fa-3edb246108be"],

Cell["\<\
Geoff Cope
University of Utah
December 12th, 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.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.828435825642728*^9, 3.828435825914054*^9}, {
   3.828529454210647*^9, 3.8285294546106777`*^9}, {3.828605611022828*^9, 
   3.828605614494376*^9}, {3.830250150331191*^9, 3.830250153410503*^9}, {
   3.844730749726594*^9, 3.844730754774436*^9}, {3.848147058167431*^9, 
   3.848147061790813*^9}, {3.848329552512186*^9, 3.8483295565525723`*^9}, {
   3.848674035143077*^9, 3.84867403568668*^9}},
 TextAlignment->Center,ExpressionUUID->"dcc64515-034a-43c1-93b6-fe3133e3a95a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"5bfbdc73-b0cc-44b2-9c1a-\
1bf69f60be9e"],

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[1]:=",ExpressionUUID->"3b1122aa-9c29-4bc0-816c-3eafcceb2573"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.828469241787932*^9, 3.828471664239974*^9, 3.8284721155283823`*^9, 
   3.828530571609256*^9, 3.828533466311865*^9, 3.828605666606776*^9, 
   3.828611773790597*^9, 3.82861654226705*^9, 3.828690472516346*^9, 
   3.828693683718005*^9, 3.828696145626916*^9, 3.828697685976324*^9, 
   3.828960897851918*^9, 3.830250366209422*^9, 3.84473107446795*^9, 
   3.848150988343357*^9, 3.848171304693605*^9, 3.8482538810920486`*^9, 
   3.848254573333312*^9, 3.848257270661601*^9, 3.848322886421303*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"12aeb227-cf87-48fb-b86e-ffde91551c36"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Paper,  Books and Way Better Code", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, {3.828691206350932*^9, 
   3.828691209871169*^9}, {3.828703099384598*^9, 3.828703101328167*^9}, {
   3.844730844997835*^9, 3.844730854150116*^9}, {3.848258030229712*^9, 
   3.8482580403174334`*^9}},ExpressionUUID->"c76b48ce-3635-40a1-ad18-\
d0f48336dc8d"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Astrophysically viable Kerr like spacetime into the eye of the storm \
by Simpson and Visser\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/2112.04647\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.848319152041954*^9, 3.84831918336017*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"39213c68-7367-4e11-98d4-06a2a866fa05"],

Cell[BoxData[
 TemplateBox[{
  "\"Astrophysically viable Kerr like spacetime into the eye of the storm by \
Simpson and Visser\"", "https://arxiv.org/abs/2112.04647"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.848319172324951*^9, 3.8483191833624783`*^9}, 
   3.848322886631764*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"82480094-8e9f-4632-94b2-b906591ffa9e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<The eye of the storm: A regular Kerr black hole\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/2111.12329\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.848323226002203*^9, 3.8483232445165367`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"f7caa476-03bc-4ddb-8eaf-5dbc2cb89e9d"],

Cell[BoxData[
 TemplateBox[{
  "\"The eye of the storm: A regular Kerr black hole\"", 
   "https://arxiv.org/abs/2111.12329"},
  "HyperlinkURL"]], "Output",
 CellChangeTimes->{3.848329014029902*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"1cbd9f04-edd5-4317-b09c-fde15e8ab50f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Nonsingular rotating black hole by Ghosh\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/1408.5668\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.848323268678011*^9, 3.8483232920605297`*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"cc68bbb4-c76a-49a4-87d3-c43a204887c6"],

Cell[BoxData[
 TemplateBox[{
  "\"Nonsingular rotating black hole by Ghosh\"", 
   "https://arxiv.org/abs/1408.5668"},
  "HyperlinkURL"]], "Output",
 CellChangeTimes->{3.8483290154018908`*^9},
 CellLabel->
  "Out[197]=",ExpressionUUID->"474261fd-7e24-4240-9f4f-c2eb68924c57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Rotating Relativistic Stars by Friedman and Stergioulas\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://www.cambridge.org/core/books/rotating-relativistic-stars/\
B7551ADBFA8A9E69637B14A48AB45C07\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820858713546645*^9, 3.820858725645988*^9}, {
  3.848145662144474*^9, 3.84814567377601*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"f4adcb56-96f2-449c-ac88-faec9c8cbb29"],

Cell[BoxData[
 TemplateBox[{
  "\"Rotating Relativistic Stars by Friedman and Stergioulas\"", 
   "https://www.cambridge.org/core/books/rotating-relativistic-stars/\
B7551ADBFA8A9E69637B14A48AB45C07"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820858725948121*^9, {3.848145667227689*^9, 3.848145673777759*^9}, 
   3.848150988555135*^9, 3.848171304897393*^9, 3.848253881106159*^9, 
   3.8482545734225197`*^9, 3.848257270870811*^9, 3.848322886657501*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"4c9a5186-6b81-4181-adf7-1f4be3b5fb3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", "associated", " ", "code", " ", "see", " ", "here"}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Relativistic Figures of Equilibrium See Chapter 3\>\"", ",", 
    "\[IndentingNewLine]", 
    "\"\<https://www.tpi.uni-jena.de/gravity/relastro/rfe/\>\""}], 
   "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.848070390017095*^9, 3.848070431982102*^9}, 
   3.8480715721352863`*^9, {3.848072181273188*^9, 3.8480721877524557`*^9}, {
   3.848152286770219*^9, 3.84815228699472*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"dd184cdb-ffc6-47fc-9500-900c55086c6e"],

Cell[BoxData[
 TemplateBox[{
  "\"Relativistic Figures of Equilibrium See Chapter 3\"", 
   "https://www.tpi.uni-jena.de/gravity/relastro/rfe/"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.848070402058971*^9, 3.848070431982432*^9}, 
   3.848071572135603*^9, 3.848072387415015*^9, 3.848076941339533*^9, 
   3.8480788819815693`*^9, 3.8481353998957453`*^9, 3.8481522883669653`*^9, 
   3.8481713049122877`*^9, 3.8482538811322927`*^9, 3.848254573439232*^9, 
   3.848257270892364*^9, 3.8483228866716022`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"d2f353ed-8dc9-461d-8c53-ab66114bc68a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "A", " ", "lot", " ", "of", " ", "overlap", " ", "with", " ", "here"}], 
    "..."}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Relativistic Figures of Equilibrium\>\"", ",", "\[IndentingNewLine]", 
    "\"\<https://www.cambridge.org/us/academic/subjects/physics/astrophysics/\
relativistic-figures-equilibrium?format=PB\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820858221255033*^9, 3.820858230778208*^9}, {
   3.8209785971917553`*^9, 3.8209786101346827`*^9}, 3.848072178679201*^9, {
   3.848152303163404*^9, 3.848152311338786*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"264815ad-c3b6-48e8-909b-593976ffb1c6"],

Cell[BoxData[
 TemplateBox[{
  "\"Relativistic Figures of Equilibrium\"", 
   "https://www.cambridge.org/us/academic/subjects/physics/astrophysics/\
relativistic-figures-equilibrium?format=PB"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8208582311569*^9, {3.8209786017235527`*^9, 3.82097861013484*^9}, 
   3.848072178679525*^9, 3.848072387456242*^9, 3.848076941353348*^9, 
   3.848078882008421*^9, 3.848135399924006*^9, 3.8481713049429207`*^9, 
   3.8482538811473427`*^9, 3.848254573468771*^9, 3.8482572709021063`*^9, 
   3.848322886697846*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"d3e2fe4d-5e25-4cb3-a184-9160104d56c7"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Advanced School in General Relativity: Relativistic Astrophysics and \
Cosmology\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://www.ictp-saifr.org/advanced-school-in-gen-reg-relativistic-\
astrophysics-and-cosmology/\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.844081806873376*^9, 3.844081830145138*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"02845a66-74d4-447e-999a-6f211a1aecf7"],

Cell[BoxData[
 TemplateBox[{
  "\"Advanced School in General Relativity: Relativistic Astrophysics and \
Cosmology\"", 
   "https://www.ictp-saifr.org/advanced-school-in-gen-reg-relativistic-\
astrophysics-and-cosmology/"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.844081825093975*^9, 3.84408183014622*^9}, 
   3.8482538811880903`*^9, 3.848254573520081*^9, 3.8482572709350977`*^9, 
   3.848322886737912*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"8fbcce09-eb02-40cb-8c70-1593217fe7e4"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Slowly Rotating Relativistic Stars I Equations of Structure by \
Hartle\>\"", ",", "\[IndentingNewLine]", 
   "\"\<http://adsabs.harvard.edu/pdf/1967apj...150.1005h\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843853765745069*^9, 3.843853784699395*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"0cfa756a-8c11-41c4-b7c2-8e0137034748"],

Cell[BoxData[
 TemplateBox[{
  "\"Slowly Rotating Relativistic Stars I Equations of Structure by Hartle\"",
    "http://adsabs.harvard.edu/pdf/1967apj...150.1005h"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843853780311016*^9, 3.843853784701273*^9}, 
   3.84398896527396*^9, 3.848253881214178*^9, 3.848254573541155*^9, 
   3.848257270956705*^9, 3.8483228867652884`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"607886cb-cf85-4c0c-88f0-05ade0b37bbf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Run", ",", " ", 
    RowBox[{"do", " ", "not", " ", "walk", " ", "to", " ", "this", " ", 
     RowBox[{"link", ".", "  ", "I"}], " ", "have", " ", "no", " ", 
     "intention", " ", "of", " ", "reproducing", " ", "these", " ", 
     RowBox[{"calculations", ".", "  ", "Only"}], " ", "wanted", " ", "to", 
     " ", "see", " ", "what", " ", "the", " ", "tensors", " ", "for", " ", 
     "the", " ", "two", " ", "metrics", " ", "look", " ", "like"}]}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Relativity Group Sapienza\>\"", ",", "\[IndentingNewLine]", 
    "\"\<https://bitbucket.org/paolopani_uniroma1/repository_gmunu/src/master/\
SlowRot/\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8439888417075033`*^9, 3.8439889179031982`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"af21d09d-35dd-4f1f-82c7-81767af519f9"],

Cell[BoxData[
 TemplateBox[{
  "\"Relativity Group Sapienza\"", 
   "https://bitbucket.org/paolopani_uniroma1/repository_gmunu/src/master/\
SlowRot/"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8439888609024363`*^9, {3.843988911055641*^9, 3.8439889179082193`*^9}, 
   3.843988965308524*^9, 3.8482538812302217`*^9, 3.848254573570903*^9, 
   3.848257270967886*^9, 3.848322886781654*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"2ddbf21c-fa7f-41bb-a4dc-7bcb92e8a4c3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"82bd49a7-d303-4fcd-8cc8-\
bb1dcf6f79e9"],

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[10]:=",ExpressionUUID->"de167130-af9d-44b7-8be4-ee105a329e47"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.8289608982622147`*^9, 3.830250366567737*^9, 
   3.84473107491514*^9, 3.8481509889033937`*^9, 3.848171305062421*^9, 
   3.848253881379829*^9, 3.8482545736731*^9, 3.848257271055258*^9, 
   3.8483061814860067`*^9, 3.848322886871922*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"a290014c-82d7-47e9-a7c7-670308452511"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"19 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "19 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.8289608982622147`*^9, 3.830250366567737*^9, 
   3.84473107491514*^9, 3.8481509889033937`*^9, 3.848171305062421*^9, 
   3.848253881379829*^9, 3.8482545736731*^9, 3.848257271055258*^9, 
   3.8483061814860067`*^9, 3.848322886877469*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"590ee61b-4a9f-4279-9a0c-fcaafbea0f74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.828469241964273*^9, 3.828471664461882*^9, 
   3.828472115727516*^9, 3.8285305718886538`*^9, 3.82853346772556*^9, 
   3.8286056667871323`*^9, 3.828611773929594*^9, 3.828616542519825*^9, 
   3.828690472858699*^9, 3.828693683944024*^9, 3.82869614585636*^9, 
   3.828697687001523*^9, 3.828960898268261*^9, 3.830250366572798*^9, 
   3.844731074927026*^9, 3.848150988911846*^9, 3.8481713050750313`*^9, 
   3.848253881391567*^9, 3.848254573683709*^9, 3.848257271060549*^9, 
   3.848306181497285*^9, 3.8483228868802547`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"b4b5d8aa-83d8-4788-acbf-daafb8678fd1"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"741701ce-8c0c-424f-af3c-c0b998201fc8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"c3d992b7-8631-47c9-9893-\
9321cc60de2e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", " ", "dy"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", "  ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.828606009159594*^9, 3.828606024422215*^9}, {3.828701721392323*^9, 
  3.828701725375505*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"f50b1448-aef6-4199-b282-5fc140414419"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.8279912532863617`*^9, 
   3.827992770095962*^9, 3.828435906737782*^9, 3.828455532145804*^9, 
   3.82845933986725*^9, 3.8284692420170603`*^9, 3.828471664529696*^9, 
   3.82847211575672*^9, 3.828530571960513*^9, 3.828533469228689*^9, 
   3.828605666816091*^9, 3.8286060250588503`*^9, 3.8286117739948387`*^9, 
   3.828616542589233*^9, 3.828690472957294*^9, 3.828693684019373*^9, 
   3.828694593299365*^9, 3.828696145930181*^9, 3.8286976871734247`*^9, 
   3.828701726000832*^9, 3.8289608983374043`*^9, 3.830250366638193*^9, 
   3.8447310749761877`*^9, 3.8481509889911222`*^9, 3.848171305172627*^9, 
   3.8482538814308453`*^9, 3.848254573757927*^9, 3.84825727113416*^9, 
   3.848306184152687*^9, 3.8483228869553957`*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"2f14a8ad-07f8-4e7d-a500-289c73a5a84b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptL]", " ", "/:", " ", 
    RowBox[{"Dt", "[", "\[ScriptL]", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Length", " ", "Paramter", " ", "l", " ", "see", " ", "description", " ", 
    "under", " ", "equation", " ", "1"}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82869475118476*^9, 3.828694761903348*^9}, 
   3.828695041652215*^9, {3.828697403799129*^9, 3.8286974141262493`*^9}, {
   3.8483195753324614`*^9, 3.8483196022832623`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"78e329ec-6de2-45c2-9fbb-7e1a8647d133"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"24f9fa01-3db0-48d5-90b6-\
93e03f85b403"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"0a69254e-277f-482a-ae41-16fd55283375"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"f7d56e4e-3d36-43e6-b563-60666534ce64"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Eye of the Storm Metric (Two Different Forms... One Implicit Other Explicit \
In Terms of \[CapitalSigma] and \[CapitalDelta] )\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.848321898240671*^9, 
  3.848321965094315*^9}},ExpressionUUID->"387cc18f-36c3-44ec-a8f2-\
8dbb65df886e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox["\[CapitalSigma]", "\[CapitalDelta]"], ")"}], " ", 
    SuperscriptBox["dr", "2"]}], "+", " ", 
   RowBox[{"\[CapitalSigma]", " ", 
    SuperscriptBox["d\[Theta]", "2"]}], "-", " ", 
   RowBox[{
    RowBox[{"(", 
     FractionBox["\[CapitalDelta]", "\[CapitalSigma]"], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"dt", " ", "-", " ", 
       RowBox[{"a", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], "d\[Phi]"}]}], ")"}], 
     "2"]}], "+", " ", 
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], "\[CapitalSigma]"], ")"}],
     " ", 
    SuperscriptBox[
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", " ", 
          SuperscriptBox["a", "2"]}], ")"}], " ", "d\[Phi]"}], " ", "-", " ", 
       
       RowBox[{"a", " ", "dt"}]}], " ", ")"}], "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483192125163193`*^9, 3.848319294943858*^9}, 
   3.84831961042131*^9, 3.84832192545849*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"503acf40-28dd-4bd2-a662-25bb9f5017e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", "\[CapitalSigma]"}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["dr", "2"], " ", "\[CapitalSigma]"}], "\[CapitalDelta]"], 
  "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "a"}], " ", "dt"}], "+", 
       RowBox[{"d\[Phi]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}], ")"}]}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "\[CapitalSigma]"], "-", 
  FractionBox[
   RowBox[{"\[CapitalDelta]", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"dt", "-", 
       RowBox[{"a", " ", "d\[Phi]", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], "2"]}], 
   "\[CapitalSigma]"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.848319296414754*^9, 3.848321925461164*^9, 
  3.848322887010859*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"2b67eda6-0061-49e8-b3f7-03f802d0e947"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq7", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
     " ", "]"}], "  ", "//", " ", "Simplify"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric7", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.848319310243559*^9, 3.848319372274952*^9}, 
   3.848321925461635*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"83ed1a4d-37c0-4767-b9d4-f29e91a30681"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{"-", "\[CapitalDelta]"}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "\[CapitalSigma]"],
       "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"], "-", "\[CapitalDelta]"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "\[CapitalSigma]"]}]},
     {"0", 
      FractionBox["\[CapitalSigma]", "\[CapitalDelta]"], "0", "0"},
     {"0", "0", "\[CapitalSigma]", "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"], "-", "\[CapitalDelta]"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "\[CapitalSigma]"]}],
       "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}], ")"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", "\[CapitalDelta]", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       "\[CapitalSigma]"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.848319320579414*^9, 3.8483193382344503`*^9}, 
   3.848319372586656*^9, 3.848321925464794*^9, 3.848322887125902*^9},
 CellLabel->
  "Out[15]//MatrixForm=",ExpressionUUID->"364a83a8-4401-440b-a6ec-\
27a30bea2688"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7a", " ", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CapitalSigma]", "->", " ", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", " ", 
       RowBox[{
        SuperscriptBox["a", "2"], 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalDelta]", "->", " ", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", " ", 
       SuperscriptBox["a", "2"], "-", " ", 
       RowBox[{"2", " ", "m", " ", "r", " ", 
        RowBox[{"Exp", "[", 
         FractionBox[
          RowBox[{"-", "\[ScriptL]"}], "r"], "]"}]}]}]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.84831943070109*^9, 3.848319490261258*^9}, 
   3.84832192546542*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"8b70ee88-a6db-4095-9adc-af703d3b703a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[CapitalSigma]", "\[Rule]", 
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]}]},
     {
      RowBox[{"\[CapitalDelta]", "\[Rule]", 
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
        SuperscriptBox["r", "2"]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8483194906455393`*^9, 3.848321925468214*^9, 
  3.8483228871433163`*^9},
 CellLabel->
  "Out[18]//TableForm=",ExpressionUUID->"24d7b2e8-ae45-4f55-b6d4-\
3f3f78f94710"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7b", " ", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[CapitalSigma]", "->", " ", 
      RowBox[{"\[CapitalSigma]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalDelta]", "->", " ", 
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7b", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483193802351017`*^9, 3.8483194234213343`*^9}, {
   3.848319508813445*^9, 3.848319528861517*^9}, 3.848321925468691*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"6d308a19-9beb-40fb-800a-39e566af771d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[CapitalSigma]", "\[Rule]", 
       RowBox[{"\[CapitalSigma]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"\[CapitalDelta]", "\[Rule]", 
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8483195291089478`*^9, 3.8483219254715242`*^9, 
  3.848322887174753*^9},
 CellLabel->
  "Out[21]//TableForm=",ExpressionUUID->"1ab31f8d-a1e1-4a85-97a0-\
c7696d7e3c9d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "sigmaDeltaDerivatives", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sigmaDeltaDerivatives", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", " ", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "   ", ",", 
        " ", "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{
          RowBox[{"(", " ", 
           RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "  ", ",", 
          "r"}], " ", "]"}], "  ", ",", " ", "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{
          RowBox[{"(", " ", 
           RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "  ", ",", 
          RowBox[{"{", 
           RowBox[{"r", ",", "2"}], "}"}]}], " ", "]"}], "  ", ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"(", " ", 
            RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "  ", ",", 
           "\[Theta]"}], " ", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"(", " ", 
            RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "  ", ",", 
           
           RowBox[{"{", 
            RowBox[{"\[Theta]", ",", "2"}], "}"}]}], " ", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"D", "[", " ", 
            RowBox[{
             RowBox[{"(", " ", 
              RowBox[{"eq7a", "  ", "/.", " ", "eq7b"}], " ", ")"}], "  ", 
             ",", "r"}], " ", "]"}], " ", ",", " ", "\[Theta]"}], " ", "]"}], 
         "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", 
      "//", " ", "Flatten"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sigmaDeltaDerivatives", " ", "//", " ", "TableForm"}], "  ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483199026394663`*^9, 3.848320061072041*^9}, 
   3.848321925472294*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"ed14b836-5fd2-412d-9658-807bc7215b3f"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"\[CapitalSigma]", "(", 
         RowBox[{"r", ",", "\[Theta]"}], ")"}], "\[Rule]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          RowBox[{
           SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "+", 
         SuperscriptBox["r", "2"]}]}]},
      {
       RowBox[{
        RowBox[{"\[CapitalDelta]", "(", "r", ")"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{"r", "-", 
            RowBox[{"2", " ", "m", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               FractionBox["\[ScriptL]", "r"]}]]}]}], ")"}]}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalSigma]", "(", 
           RowBox[{"r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{"2", " ", "r"}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalDelta]", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"2", " ", "r"}], "-", 
         FractionBox[
          RowBox[{"2", " ", "m", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox["\[ScriptL]", "r"]}]], " ", 
           RowBox[{"(", 
            RowBox[{"r", "+", "\[ScriptL]"}], ")"}]}], "r"]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[CapitalSigma]", "(", 
           RowBox[{"r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None], "\[Rule]", "2"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[CapitalDelta]", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{"2", "-", 
         FractionBox[
          RowBox[{"2", " ", "m", " ", 
           SuperscriptBox["\[ScriptL]", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox["\[ScriptL]", "r"]}]]}], 
          SuperscriptBox["r", "3"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalSigma]", "(", 
           RowBox[{"r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
         RowBox[{"cos", "(", "\[Theta]", ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[CapitalSigma]", "(", 
           RowBox[{"r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Theta]", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"cos", "(", 
          RowBox[{"2", " ", "\[Theta]"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[CapitalSigma]", "(", 
           RowBox[{"r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Theta]"}]}],
         MultilineFunction->None], "\[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.848319909115466*^9, 3.848319994172337*^9}, {
   3.8483200431146927`*^9, 3.848320061524172*^9}, 3.848321925474828*^9, 
   3.848322887302359*^9},
 CellLabel->
  "Out[24]//TraditionalForm=",ExpressionUUID->"8338c6a2-40a6-4973-b709-\
8726c73c9424"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "the", " ", "metric", " ", "where", " ", "the", 
    " ", "specific", " ", "form", " ", "of", " ", "\[CapitalDelta]", " ", 
    "and", " ", "\[CapitalSigma]", " ", "have", " ", "not", " ", "been", " ", 
    "specified"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"metric7", "  ", "/.", " ", "eq7b"}], " ", "//", " ", 
   "MatrixForm"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483195121096067`*^9, 3.848319534621376*^9}, {
   3.848320082088159*^9, 3.848320104271948*^9}, 3.8483219254752827`*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"f32c9c78-76c8-45f2-9d20-2e88dd0f4982"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}], 
       RowBox[{"\[CapitalSigma]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"], "-", 
           RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}], ")"}]}], 
        RowBox[{"\[CapitalSigma]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]]}]},
     {"0", 
      FractionBox[
       RowBox[{"\[CapitalSigma]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], 
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}]], "0", "0"},
     {"0", "0", 
      RowBox[{"\[CapitalSigma]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"], "-", 
           RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}], ")"}]}], 
        RowBox[{"\[CapitalSigma]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]]}], "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}], ")"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
           RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}]}], ")"}]}], 
       RowBox[{"\[CapitalSigma]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.848319510901963*^9, 3.848319534941162*^9}, 
   3.8483201049609547`*^9, 3.8483219254776297`*^9, 3.848322887326763*^9},
 CellLabel->
  "Out[25]//MatrixForm=",ExpressionUUID->"3e2a1cd9-0f1c-48bf-8918-\
3482cce0a95a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "gKerrF", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "metric", " ", "of", " ", "Kerr", " ", "left", " ", "in", " ", 
    "Functional", " ", "form"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"gKerrF", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToMetric", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<KerrF\>\"", " ", ",", " ", 
      "\"\<\!\(\*SuperscriptBox[\(g\), \(kerrF\)]\)\>\""}], "}"}], " ", ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], " ", ",", 
    RowBox[{"(", 
     RowBox[{"metric7", "  ", "/.", " ", "eq7b"}], " ", ")"}], ",", " ", 
    "\"\<Greek\>\""}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483197472199306`*^9, 3.848319774172002*^9}, 
   3.848320073048648*^9, {3.848320642493104*^9, 3.848320673893004*^9}, 
   3.848321925478064*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"81b5b170-56b6-4e96-a93a-999d1d4c1308"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "kerrF"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.848319775435495*^9, 3.848321925480891*^9, 
  3.848322887354476*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"66902318-4ae8-4382-8370-1ce95015460d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Clear", "[", "einsteinKerrF", "]"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"This", " ", "takes", " ", "forever"}], " ", "*)"}], " ", 
     "\[IndentingNewLine]", "einsteinKerrF"}], " ", "=", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"EinsteinTensor", "[", 
     RowBox[{"gKerrF", " ", ",", " ", 
      RowBox[{"ActWithNested", " ", "\[Rule]", " ", "Simplify"}]}], "]"}]}], 
   "\[IndentingNewLine]", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.848319797794937*^9, 3.848319815024941*^9}, {
   3.8483201164512167`*^9, 3.848320118695958*^9}, {3.8483201603659897`*^9, 
   3.848320164589676*^9}, {3.848320441137188*^9, 3.848320456073359*^9}, 
   3.8483206576285563`*^9, {3.848320708268484*^9, 3.848320710236506*^9}, 
   3.848321925481367*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"2c49d5d2-9a59-4c20-85ca-346e21847124"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Also", " ", "takes", " ", "forever", " ", "\[IndentingNewLine]", 
     RowBox[{"Clear", "[", "ricciKerrF", "]"}], "\[IndentingNewLine]", 
     "ricciKerrF"}], " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{"RicciTensor", "[", 
     RowBox[{"gKerrF", " ", ",", " ", 
      RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], "]"}]}], 
   "\[IndentingNewLine]", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483198271192913`*^9, 3.848319848411009*^9}, {
   3.848320596314939*^9, 3.848320609497774*^9}, 3.8483206605485277`*^9, {
   3.848320712004814*^9, 3.8483207138125143`*^9}, 3.848321925481626*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"78246334-7baf-4ae9-adc4-d87443ffe09f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "the", " ", "form", " ", "of", " ", "the", " ", 
    "metric", " ", "with", " ", "specific", " ", "values", " ", "of", "  ", 
    "\[CapitalDelta]", " ", "and", " ", "\[CapitalSigma]", "  ", "plugged", 
    " ", "in"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"metric7", "  ", "/.", " ", "eq7a"}], " ", "//", " ", 
   "MatrixForm"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.84831954909326*^9, 3.8483195491971607`*^9}, {
   3.8483201721580973`*^9, 3.84832019240558*^9}, 3.84832192548188*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"3a8ad2d6-ec5c-4e91-bcbd-5dd3cbe52da3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "-", 
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}]},
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], 
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
        SuperscriptBox["r", "2"]}]], "0", "0"},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}], ")"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
             
             SuperscriptBox["r", "2"]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8483195496452293`*^9, 3.848320680169876*^9, 
  3.84832192548426*^9, 3.8483228873980837`*^9},
 CellLabel->
  "Out[30]//MatrixForm=",ExpressionUUID->"85c8e2b8-1c08-4c91-bcaf-\
12bbf0083eb9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "gKerr", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "metric", " ", "of", " ", "Kerr", " ", "left", " ", "in", " ", 
    "Functional", " ", "form"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"gKerr", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToMetric", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Kerr\>\"", " ", ",", " ", 
      "\"\<\!\(\*SuperscriptBox[\(g\), \(kerr\)]\)\>\""}], "}"}], " ", ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], " ", ",", 
    RowBox[{"(", 
     RowBox[{"metric7", "  ", "/.", " ", "eq7a"}], " ", ")"}], ",", " ", 
    "\"\<Greek\>\""}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8483206917809963`*^9, 3.848320699780958*^9}, 
   3.848321925484775*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"97f5ef4f-d78a-4e34-849e-1bccefa96d43"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "kerr"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.848320700282138*^9, 3.848321925487412*^9, 
  3.848322887425817*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"f39b1f82-2096-4e72-971d-39228b764ad5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Kerr Metric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.84832244758675*^9, 
  3.848322467117104*^9}},ExpressionUUID->"9f001c23-864f-420e-9c38-\
8eef074a4948"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "einsteinKerr", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"This", " ", "takes", " ", "forever"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"einsteinKerr", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"EinsteinTensor", "[", 
   RowBox[{"gKerr", " ", ",", " ", 
    RowBox[{"ActWithNested", " ", "\[Rule]", " ", "Simplify"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848320722836405*^9, 3.848320727324298*^9}, 
   3.84832192548787*^9, 3.8483224545900097`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"7165e4de-a9ab-4342-acbe-e5f1dae4e9d0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8483207758277807`*^9, 3.848321925490353*^9, 
  3.848322454590317*^9, 3.8483229184863*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"c3b45e3a-142c-4696-9a97-ac4e0d94e509"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "ricciKerr", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ricciKerr", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"RicciTensor", "[", 
   RowBox[{"gKerr", " ", ",", " ", 
    RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848320744315716*^9, 3.848320747651671*^9}, 
   3.84832192549081*^9, 3.848322454590625*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"00aa3c06-47c2-48a2-a777-5408ac0a37dd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.848320791853239*^9, 3.848321925493273*^9, 
  3.848322454590911*^9, 3.848322918643077*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"65699c7f-b942-47ae-a447-95da42459255"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "riemannKerr", "]"}], "\[IndentingNewLine]", 
 RowBox[{"riemannKerr", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"RiemannTensor", "[", 
   RowBox[{"gKerr", " ", ",", " ", 
    RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848322276010188*^9, 3.848322294485552*^9}, 
   3.8483224545911837`*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"f9f2c1ee-626f-46dc-ab1d-af7a7f1a5bee"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8483222985125017`*^9, 3.848322454594084*^9, 
  3.848322918682555*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"a06ce8c0-0506-4b5e-a64e-21eb3ac1cfc9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "ricciScalar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ricciScalar", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"RicciScalar", "[", 
   RowBox[{"gKerr", " ", ",", " ", 
    RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848322135477778*^9, 3.8483221701502028`*^9}, 
   3.848322454594558*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"0222730e-3dcb-4aa9-bf3f-5d099093f099"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8483221853746147`*^9, 3.8483224545949078`*^9, 
  3.848322918804123*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"b6b96785-ba1f-46ff-ae07-d2fd324cf5f2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "weylKerr", "]"}], "\[IndentingNewLine]", 
 RowBox[{"weylKerr", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"WeylTensor", "[", 
   RowBox[{"gKerr", " ", ",", " ", 
    RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848322483882554*^9, 3.848322516958219*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"4b07bc35-1476-4f41-9a24-8b8df1af973b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848322596031617*^9, 3.8483226097543507`*^9}, 
   3.848322984834367*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"7aa863d5-bebd-4ce9-b445-783e96ab5506"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Construction of Tetrad Check of Completeness and Orthogonality \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8483219923135767`*^9, 
  3.848322019806272*^9}},ExpressionUUID->"8d994199-0ec1-4970-a4db-\
89616153bc61"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq10", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq10", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"et", " ", "==", " ", 
       RowBox[{
        SqrtBox[
         FractionBox["\[CapitalDelta]", "\[CapitalSigma]"]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
          RowBox[{"a", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}]}], " ", 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"er", " ", "==", " ", 
       RowBox[{
        SqrtBox[
         FractionBox["\[CapitalSigma]", "\[CapitalDelta]"]], 
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}]}], " ", ",", 
      " ", "\[IndentingNewLine]", 
      RowBox[{"e\[Theta]", " ", "==", " ", 
       RowBox[{
        SqrtBox["\[CapitalSigma]"], 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}]}], " ", ",", 
      " ", "\[IndentingNewLine]", 
      RowBox[{"e\[Phi]", " ", "==", 
       RowBox[{
        FractionBox[
         RowBox[{" ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         SqrtBox["\[CapitalSigma]"]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "a"}], ",", "0", ",", "0", ",", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", " ", 
           SuperscriptBox["a", "2"]}]}], "}"}]}]}]}], " ", 
     "\[IndentingNewLine]", "}"}], "   ", "/.", " ", "eq7a"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq10", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320205530018*^9, 3.848320300636986*^9}, {
   3.848320353636607*^9, 3.848320434467369*^9}, {3.848320819567562*^9, 
   3.848320832278265*^9}, {3.848321008300015*^9, 3.84832101194748*^9}, 
   3.848322002713964*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"0f501b20-8d4b-42d9-85a9-c9f30a987534"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"et", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          SqrtBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
             
             SuperscriptBox["r", "2"]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}], ",", "0", 
         ",", "0", ",", 
         RowBox[{"a", " ", 
          SqrtBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
             
             SuperscriptBox["r", "2"]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}]},
     {
      RowBox[{"er", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         SqrtBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
            SuperscriptBox["r", "2"]}]]], ",", "0", ",", "0"}], "}"}]}]},
     {
      RowBox[{"e\[Theta]", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], ",", "0"}], 
        "}"}]}]},
     {
      RowBox[{"e\[Phi]", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"a", " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
           SqrtBox[
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}], ",", "0", 
         ",", "0", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}], ")"}], " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}], "}"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.848320832581727*^9, 3.8483210292734947`*^9, 
  3.848322002716712*^9, 3.848322984897657*^9},
 CellLabel->
  "Out[46]//TableForm=",ExpressionUUID->"ce3e55c7-858c-40a6-8ba4-\
90e6a3e35975"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "et", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "are", " ", "up", 
    " ", "or", " ", "down", " ", "and", " ", "these", " ", "are", " ", 
    "DOWN"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"et", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"et", " ", "=", " ", 
   RowBox[{"ToTensor", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<et\>\""}], "}"}], " ", 
     ",", "gKerr", ",", " ", 
     RowBox[{"eq10", " ", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.84832049618573*^9, 3.848320518673299*^9}, {
   3.8483209907887173`*^9, 3.848320997138668*^9}, 3.848322002717251*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"004b1018-06d0-417f-817b-fb15a74d3cff"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["et", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.848320842816882*^9, 3.848321037550658*^9, 
  3.8483220027202578`*^9, 3.848322984922697*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"62f79e04-7183-4a8b-8b69-10d64f62144d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "er", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "are", " ", "up", 
    " ", "or", " ", "down", " ", "and", " ", "these", " ", "are", " ", 
    "DOWN"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"er", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"er", " ", "=", " ", 
   RowBox[{"ToTensor", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<er\>\""}], "}"}], " ", 
     ",", "gKerr", ",", " ", 
     RowBox[{"eq10", " ", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320528929693*^9, 3.848320539345385*^9}, 
   3.848322002720839*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"ca13316f-818a-481f-86d6-d7498ed2af63"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["er", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8483208445445137`*^9, 3.848321039224762*^9, 
  3.848322002723806*^9, 3.84832298493344*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"45fe03a3-5df7-4423-b0b3-5de8605b27e2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "e\[Theta]", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "are", " ", "up", 
    " ", "or", " ", "down", " ", "and", " ", "these", " ", "are", " ", 
    "DOWN"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"e\[Theta]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"e\[Theta]", " ", "=", " ", 
   RowBox[{"ToTensor", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<e\[Theta]\>\""}], 
      "}"}], " ", ",", "gKerr", ",", " ", 
     RowBox[{"eq10", " ", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320546593425*^9, 3.848320563369244*^9}, 
   3.848322002724275*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"9e23b358-ced4-4a24-84db-efbb8818575c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["e\[Theta]", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8483208461181583`*^9, 3.848321042778747*^9, 
  3.8483220027269297`*^9, 3.848322984957391*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"59f5f3b4-1927-440f-9837-0198c7593dfd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "e\[Phi]", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "are", " ", "up", 
    " ", "or", " ", "down", " ", "and", " ", "these", " ", "are", " ", 
    "DOWN"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"e\[Phi]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"e\[Phi]", " ", "=", " ", 
   RowBox[{"ToTensor", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<e\[Phi]\>\""}], "}"}], 
     " ", ",", "gKerr", ",", " ", 
     RowBox[{"eq10", " ", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320570513707*^9, 3.84832058551343*^9}, 
   3.848322002727442*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"8318c559-7f94-453f-a7e3-d19f84098bd2"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["e\[Phi]", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.848320847768734*^9, 3.848321044367992*^9, 
  3.848322002729863*^9, 3.848322984968183*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"b38c3cd8-6694-4b20-9e74-2539c4b23edb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptE]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptE]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{"et", ",", "er", ",", "e\[Theta]", ",", "e\[Phi]"}], 
   "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320902047483*^9, 3.8483209095911427`*^9}, 
   3.848322002730359*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"fc73d6a7-7b93-4402-ab45-bf305ac8b9f0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox["et", "\[Mu]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["er", "\[Mu]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["e\[Theta]", "\[Mu]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["e\[Phi]", "\[Mu]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.848320859483775*^9, 3.848320910313222*^9, 
  3.848321046524137*^9, 3.848322002732748*^9, 3.848322984993411*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"7c68ac36-7754-4f73-929e-3d7da3a76c43"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"MergeTensors", "[", 
        RowBox[{
         RowBox[{"gKerr", " ", "[", 
          RowBox[{
           RowBox[{"-", "\[Alpha]"}], ",", 
           RowBox[{"-", "\[Beta]"}]}], "]"}], 
         RowBox[{
          RowBox[{"\[ScriptE]", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "[", "\[Alpha]", "]"}], 
         RowBox[{
          RowBox[{"\[ScriptE]", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "[", "\[Beta]", "]"}]}], "]"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "  ", "//", " ", 
    "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848320870998625*^9, 3.848320873032771*^9}, {
   3.848320923894866*^9, 3.848320925437347*^9}, 3.848321054756672*^9, 
   3.8483220027331667`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"cc5c969c-c886-4cb2-868b-d4ecbcd2d703"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "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", 10005.},
 CellChangeTimes->{
  3.8483209371581993`*^9, {3.848321048245186*^9, 3.848321059952696*^9}, 
   3.848322002735845*^9, 3.8483229911826973`*^9},
 CellLabel->
  "Out[57]//MatrixForm=",ExpressionUUID->"055d91fb-2f3d-49c3-b79a-\
cffcd1689e58"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eta", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eta", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", "1", "0", "0"},
      {"0", "0", "1", "0"},
      {"0", "0", "0", "1"}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eta", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848321086858347*^9, 3.8483211129491043`*^9}, 
   3.848322002736329*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"4742eab8-cd5f-4881-ac86-bbc367d4f6fe"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "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", 10005.},
 CellChangeTimes->{3.848321113215399*^9, 3.84832200273888*^9, 
  3.848322991228609*^9},
 CellLabel->
  "Out[60]//MatrixForm=",ExpressionUUID->"3b8e9683-7e81-4e05-b09a-\
ba4c86675bd7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq10", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq10", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{"Expand", "[", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"et", "[", "\[Mu]", "]"}], "]"}], "]"}], "]"}], " ", ",", " ",
      "\n", "       ", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Expand", "[", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"er", "[", "\[Mu]", "]"}], "]"}], "]"}], "]"}], " ", ",", " ",
      "\n", "       ", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Expand", "[", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"e\[Theta]", "[", "\[Mu]", "]"}], "]"}], "]"}], "]"}], " ", 
     ",", " ", "\n", "       ", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Expand", "[", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"e\[Phi]", "[", "\[Mu]", "]"}], "]"}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq10", " ", "//", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8483213550371857`*^9, 3.848321386456978*^9}, {
   3.848321464872353*^9, 3.848321498364339*^9}, 3.848322002739346*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"90ae7a3c-57c9-41d6-bf1e-2ea69d34249c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["\[ScriptL]", "r"]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}], ")"}], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}], 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          FractionBox["\[ScriptL]", "r"]]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "m"}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             FractionBox["\[ScriptL]", "r"]], " ", "r"}]}], ")"}]}]}]], "0", 
      "0", 
      FractionBox[
       RowBox[{"a", " ", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["\[ScriptL]", "r"]], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}], 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          FractionBox["\[ScriptL]", "r"]]}], "-", 
        RowBox[{"2", " ", "m", " ", "r"}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          FractionBox["\[ScriptL]", "r"]], " ", 
         SuperscriptBox["r", "2"]}]}]]},
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            FractionBox["\[ScriptL]", "r"]]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "m"}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               FractionBox["\[ScriptL]", "r"]], " ", "r"}]}], ")"}]}]}], 
         ")"}], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"-", 
                 FractionBox["\[ScriptL]", "r"]}]], " ", "m"}], "+", "r"}], 
             ")"}]}]}]]]}], 
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]], "0"},
     {
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", "a", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}]]], "0", "0", 
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        RowBox[{"Csc", "[", "\[Theta]", "]"}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}]]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848321493709991*^9, 3.8483214986444187`*^9}, 
   3.8483220027418222`*^9, 3.848322992477169*^9},
 CellLabel->
  "Out[63]//MatrixForm=",ExpressionUUID->"d786bd0b-f905-46ab-bb7b-\
68d9497b8823"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Check", " ", "of", " ", "tetrad"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "metricFromTetrad", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"metricFromTetrad", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{"Sum", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"eta", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
            RowBox[{
             RowBox[{"\[ScriptE]", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], 
            RowBox[{
             RowBox[{"\[ScriptE]", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "[", 
             RowBox[{"-", "\[Nu]"}], "]"}]}], " ", ",", " ", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "]"}], 
       " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"metricFromTetrad", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848321520434716*^9, 3.8483216140055313`*^9}, {
   3.848321696497321*^9, 3.8483217155118713`*^9}, {3.848321759019567*^9, 
   3.848321804434308*^9}, 3.8483220027423487`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"1665c606-d0ff-43bf-806a-8a1473e30d72"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
         SuperscriptBox["r", "2"], "-", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}]},
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["\[ScriptL]", "r"]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          FractionBox["\[ScriptL]", "r"]]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "m"}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             FractionBox["\[ScriptL]", "r"]], " ", "r"}]}], ")"}]}]}]], "0", 
      "0"},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "a", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            FractionBox["\[ScriptL]", "r"]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              SuperscriptBox["r", "2"]}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               FractionBox["\[ScriptL]", "r"]]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "m"}], "+", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  FractionBox["\[ScriptL]", "r"]], " ", "r"}]}], ")"}]}]}], 
            ")"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848321522523016*^9, 3.848321582171043*^9}, 
   3.8483216145349216`*^9, {3.848321701501766*^9, 3.848321717757102*^9}, 
   3.848321762410647*^9, 3.8483218051381407`*^9, 3.848322002745358*^9, 
   3.848322992916134*^9},
 CellLabel->
  "Out[66]//MatrixForm=",ExpressionUUID->"c074e769-7856-4cb6-a743-\
b47ac6ae2fb3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "metricFromTetrad", "]"}], "==", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"TensorValues", "[", "gKerr", "]"}], "]"}]}], " ", "]"}], " ", 
    "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.848321728968893*^9, 3.848321743026141*^9}, {
   3.8483218093391237`*^9, 3.8483218466497927`*^9}, 3.848322002745886*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"425959c0-8433-4e27-bba4-461f8296c001"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"}
    },
    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", 10005.},
 CellChangeTimes->{{3.848321730129888*^9, 3.848321743286907*^9}, {
   3.848321827712186*^9, 3.848321846955662*^9}, 3.8483220027486563`*^9, 
   3.848322992979546*^9},
 CellLabel->
  "Out[67]//TableForm=",ExpressionUUID->"9ed1b895-f2f2-4785-9acf-\
35deaa6fd6b4"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Substitution and Simplification Rules For Dimensionless Quantities (Not Done \
Yet)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8483250671572027`*^9, 
  3.84832509464421*^9}},ExpressionUUID->"0e3c84b5-5a73-4d2e-a3dd-\
e9e1e12fd3d5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12", "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"[", "esc", "]"}], 
    RowBox[{"CapitalXi", "[", "esc", "]"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"\[CapitalXi]", " ", "==", " ", 
    FractionBox[
     RowBox[{"\[ScriptL]", " ", "\[CapitalSigma]"}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "3"]}]]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq12", "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848322042987659*^9, 3.848322087926653*^9}, {
   3.848324040829515*^9, 3.848324055236837*^9}, {3.848324488585803*^9, 
   3.84832449024687*^9}, {3.8483246915426826`*^9, 3.848324705293668*^9}, 
   3.848325074518691*^9},
 CellLabel->
  "In[122]:=",ExpressionUUID->"baa38903-2467-436a-ac64-f69a454dd4fe"],

Cell[BoxData[
 RowBox[{"\[CapitalXi]", "\[Rule]", 
  FractionBox[
   RowBox[{"\[ScriptL]", " ", "\[CapitalSigma]"}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "3"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.848322089858708*^9, 3.8483229929891577`*^9, 3.84832449103802*^9, {
   3.8483247004883947`*^9, 3.8483247055980577`*^9}, 3.848325074519431*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"739fb5ba-b03b-43fb-a58e-12a14813a28d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{"eq12", "  ", ",", " ", "\[CapitalSigma]"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848324600364408*^9, 3.848324613565419*^9}, 
   3.848325074519701*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"95e93944-8c55-4877-8180-375757170778"],

Cell[BoxData[
 RowBox[{"\[CapitalSigma]", "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["r", "3"], " ", "\[CapitalXi]"}], 
   "\[ScriptL]"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848324598666793*^9, 3.848324613787703*^9}, 
   3.848325074520247*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"bba29472-ce73-4646-aaee-56a0eb830175"],

Cell[BoxData[
 RowBox[{"eq12", " ", "/.", " ", "eq7a", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8483240950417347`*^9, 3.84832409698557*^9}, 
   3.848325074520508*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"d82ac34b-fd8a-43bf-be15-8c39921c9eaa"],

Cell[BoxData[
 RowBox[{"\[CapitalXi]", "\[Equal]", 
  FractionBox[
   RowBox[{"\[ScriptL]", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["r", "2"], "+", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "3"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.848324087186987*^9, 3.848324097334765*^9}, 
   3.8483244930585203`*^9, 3.84832507452104*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"b7357f53-d60e-41c9-866f-10d66ab9973f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"eq12", " ", "/.", " ", "eq7a"}], " ", ")"}], " ", ",", " ", 
      "a"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Put", " ", "in", " ", "assumption", " ", "to", " ", "not", " ", "get", 
    " ", "imaginary", " ", "number"}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8483241187527933`*^9, 3.848324165182539*^9}, 
   3.84832507452143*^9},
 CellLabel->
  "In[110]:=",ExpressionUUID->"753292bf-4301-4868-b282-0902701e6ed9"],

Cell[BoxData[
 RowBox[{"a", "\[Rule]", 
  FractionBox[
   RowBox[{"r", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", "\[ScriptL]"}], "+", 
      RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}]], " ", 
    RowBox[{"Sec", "[", "\[Theta]", "]"}]}], 
   SqrtBox["\[ScriptL]"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.84832413007953*^9, 3.8483241540258617`*^9}, 
   3.848324495536872*^9, 3.84832507452227*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"c29804e2-a246-4253-9fce-3306443b1458"]
}, Closed]],

Cell[CellGroupData[{

Cell["Ricci Scalar Put In Dimensionless Form ", "Section",
 CellChangeTimes->{{3.8483269027153673`*^9, 
  3.848326929434064*^9}},ExpressionUUID->"a5747955-f4ed-4138-8538-\
fae6461d43bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TensorValues", "[", "ricciScalar", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", "ricciScalar", "]"}], "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
            "\[Theta]"}], "]"}], " ", "/.", " ", 
          RowBox[{
           RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
        
        RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
      " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], " ", ")"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", "ricciScalar", "]"}], "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
            "\[Theta]"}], "]"}], " ", "/.", " ", 
          RowBox[{
           RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
        
        RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
      " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], " ", ")"}], " ", "/.",
   "  ", 
  RowBox[{"(", " ", 
   RowBox[{"eq12", "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}], "Input",
 CellChangeTimes->{{3.848326813555972*^9, 3.848326885872569*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"fa511bb9-209a-40fb-9e8c-3a461724e42f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "2"]}], 
  RowBox[{
   SuperscriptBox["r", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.848326811712448*^9, 3.8483268368781137`*^9}, 
   3.848326886754987*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"32f31def-4d2c-405f-a0b1-6f48a22dfb3f"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "3"]}], 
  RowBox[{
   SuperscriptBox["r", "6"], " ", "\[CapitalXi]"}]]], "Output",
 CellChangeTimes->{{3.848326811712448*^9, 3.8483268368781137`*^9}, 
   3.848326886784224*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"64229bf3-ed61-43ba-9c7c-8e7c366f3b44"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "2"]}], 
  RowBox[{
   SuperscriptBox["r", "3"], " ", "\[CapitalSigma]"}]]], "Output",
 CellChangeTimes->{{3.848326811712448*^9, 3.8483268368781137`*^9}, 
   3.848326886795471*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"6f3b0599-38e1-4f59-b3de-b0775c2fbf55"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Einstein Tensor Projected Onto Tetrad and Components Put In Dimensionless \
Form \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8483250987815313`*^9, 3.848325119044264*^9}, {
  3.848325163388021*^9, 
  3.848325163682148*^9}},ExpressionUUID->"04bf73cf-3470-4d8d-a4e9-\
07c15f9ab2cd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "einsteinTetrad", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "One", " ", "index", " ", "up", " ", "One", " ", "index", " ", "down"}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"einsteinTetrad", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{"einsteinKerr", " ", "[", 
           RowBox[{"\[Alpha]", ",", 
            RowBox[{"-", "\[Beta]"}]}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"-", "\[Alpha]"}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "[", "\[Beta]", "]"}]}], "]"}], 
        "]"}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"einsteinTetrad", " ", "//", " ", "MatrixForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.848323593182815*^9, 3.848323608436717*^9}, {
   3.848323643124714*^9, 3.848323652063222*^9}, {3.8483237018291473`*^9, 
   3.848323705805359*^9}, {3.8483237410182037`*^9, 3.848323805872224*^9}, {
   3.848323873188175*^9, 3.8483238735055237`*^9}, 3.848325107855048*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"038349fe-0354-4ca9-869c-196f1255d24f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]], "0", "0",
       "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"8", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]]}], "0", 
      "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["r", "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]}]]}], 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["r", "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8483238088582287`*^9, 3.848323905953628*^9, 
  3.8483251078554573`*^9},
 CellLabel->
  "Out[85]//MatrixForm=",ExpressionUUID->"1427260b-f8f8-4530-b0a6-\
9ab9f224e7cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"einsteinTetrad", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
          "\[Theta]"}], "]"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
    " ", "TrigExpand"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"einsteinTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "   ", ")"}], " ", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{"eq12", "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.848324222366303*^9, 3.848324223951891*^9}, {
   3.848324390423935*^9, 3.848324407807482*^9}, {3.848324717535816*^9, 
   3.848324743965884*^9}, 3.8483251078559637`*^9},
 CellLabel->
  "In[127]:=",ExpressionUUID->"51494ac8-68f6-4bbf-ac9f-97bb7ea71068"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "3"]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   SuperscriptBox["\[CapitalXi]", "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.84832422036735*^9, 3.8483242241678877`*^9}, 
   3.8483243261345253`*^9, {3.84832439841368*^9, 3.84832440808463*^9}, 
   3.848324499620543*^9, {3.84832473154921*^9, 3.848324744540765*^9}, 
   3.848325107856271*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"f9e8f280-ba3c-4cf8-bcae-ac604b9d4e3f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
  SuperscriptBox["\[CapitalSigma]", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.84832422036735*^9, 3.8483242241678877`*^9}, 
   3.8483243261345253`*^9, {3.84832439841368*^9, 3.84832440808463*^9}, 
   3.848324499620543*^9, {3.84832473154921*^9, 3.848324744569632*^9}, 
   3.84832510785719*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"9626a6e6-9e94-40c3-bd39-1e7b131f425c"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"einsteinTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"einsteinTetrad", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "2"}], "]"}], "]"}], "  ", "/.", " ", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Solve", "[", " ", 
            RowBox[{
             RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
             "\[Theta]"}], "]"}], " ", "/.", " ", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
         RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "TrigExpand"}], "  ", ")"}], "   ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{"eq12", "  ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}]}]], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{
  3.848324333203888*^9, {3.8483245234979687`*^9, 3.848324526404039*^9}, {
   3.8483247689836283`*^9, 3.8483247845844717`*^9}, 3.848325107857606*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"c8b65f17-c03f-4066-93aa-c1dd34ab029a"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", "3"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "6"], " ", 
    SuperscriptBox["\[CapitalXi]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{
  3.848324526887114*^9, {3.848324781961981*^9, 3.848324785341117*^9}, 
   3.848325107857915*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"0706b3ee-8d38-4ea4-8dee-355a20729f80"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
   SuperscriptBox["\[CapitalSigma]", "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{
  3.848324526887114*^9, {3.848324781961981*^9, 3.848324785381104*^9}, 
   3.848325107858474*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"75f63aa9-7b77-4970-97d4-78f8a029dfc2"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "replacement", " ", "rule", " ", "just", " ", "for", " ", "the", " ", 
    "denominator"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"einsteinTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3"}], "]"}], "]"}], "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.848324540971942*^9, 3.848324548523396*^9}, {
   3.848324792439736*^9, 3.8483248597917767`*^9}, 
   3.848325107858795*^9},ExpressionUUID->"3bc96f05-f6ad-4d3d-951d-\
ea33024ea058"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[CapitalXi]"}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "6"], " ", 
    SuperscriptBox["\[CapitalXi]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.848324542504945*^9, 3.8483245490649843`*^9}, {
   3.848324803979245*^9, 3.848324840856086*^9}, 3.848325107859357*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"74b39d4f-6e68-44bd-9959-99485f77c685"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "replacement", " ", "rule", " ", "just", " ", "for", " ", "the", " ", 
    "denominator"}], " ", "*)"}], " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"einsteinTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", "4"}], "]"}], "]"}], "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8483245677483187`*^9, 3.848324569019836*^9}, {
   3.8483248738644743`*^9, 3.848324879749586*^9}, 
   3.848325107859681*^9},ExpressionUUID->"9db5ece8-7aaa-458c-9949-\
d9c1b26fd71d"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[CapitalXi]"}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "6"], " ", 
    SuperscriptBox["\[CapitalXi]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.84832456952081*^9, 3.8483251078603067`*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"821d96a8-fe61-4e41-80eb-7c224eff604d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Ricci Tensor Projected Onto Tetrad and Components Put In Dimensionless Form \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.848325122325066*^9, 
  3.8483251583481197`*^9}},ExpressionUUID->"28f8272e-7efe-4487-9b88-\
d6348b629300"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ricciTetrad", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "One", " ", "index", " ", "up", " ", "One", " ", "index", " ", "down"}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciTetrad", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{"ricciKerr", " ", "[", 
           RowBox[{"\[Alpha]", ",", 
            RowBox[{"-", "\[Beta]"}]}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"-", "\[Alpha]"}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "[", "\[Beta]", "]"}]}], "]"}], 
        "]"}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "  ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ricciTetrad", " ", "//", " ", "MatrixForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8483236844609632`*^9, 3.848323711381325*^9}, 
   3.848323779457452*^9, {3.848323831580205*^9, 3.848323868004915*^9}, 
   3.8483251340007677`*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"c51dfc66-082f-4398-9f88-1fad0a2774b9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[ScriptL]", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["r", "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]}]]}], 
      "0", "0", "0"},
     {"0", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["r", "3"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", "\[ScriptL]"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", "\[ScriptL]", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]}]], "0", 
      "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.848323934589951*^9, 3.848325134001816*^9},
 CellLabel->
  "Out[88]//MatrixForm=",ExpressionUUID->"9e71f51e-1572-4286-b863-\
ffb6d8e12dca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Need", " ", "replacement", " ", "rule", " ", "just", " ", "for", " ", 
    "the", " ", "denominator"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ricciTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8483248977243*^9, 3.848324912524311*^9}, {
   3.848325028429093*^9, 3.848325038972786*^9}, 
   3.848325134002338*^9},ExpressionUUID->"10b0f760-3e2d-45f0-a7af-\
2348c87b57e2"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[CapitalXi]"}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "6"], " ", 
    SuperscriptBox["\[CapitalXi]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8483249000199738`*^9, 3.84832491426737*^9}, 
   3.848325134003078*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"114d5a82-9f5f-4fe7-8001-7423c0ced68f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Need", " ", "replacement", " ", "rule", " ", "just", " ", "for", " ", 
    "the", " ", "denominator"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ricciTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.84832494384466*^9, 3.848324944876745*^9}, {
   3.848325044133252*^9, 3.848325045737808*^9}, 
   3.848325134003602*^9},ExpressionUUID->"7a168734-e026-493a-8750-\
88e65efd8043"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[CapitalXi]"}], ")"}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   SuperscriptBox["\[CapitalXi]", "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.848324945309206*^9, 3.8483251340044403`*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"993b6d9b-86ff-46ae-8673-3f977cb02224"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ricciTetrad", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "3"}], "]"}], "]"}], "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
            "\[Theta]"}], "]"}], " ", "/.", " ", 
          RowBox[{
           RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
        
        RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
      " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", ")"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ricciTetrad", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "3"}], "]"}], "]"}], "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
            "\[Theta]"}], "]"}], " ", "/.", " ", 
          RowBox[{
           RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
        
        RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
      " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", ")"}], "  ", "/.",
   "  ", 
  RowBox[{"(", " ", 
   RowBox[{"eq12", "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.848324949308943*^9, 3.848324950332739*^9}, {
   3.8483250019179707`*^9, 3.8483250172346983`*^9}, 3.8483251340049067`*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"5131406c-a45e-42f6-9f48-695029a37568"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "3"]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   SuperscriptBox["\[CapitalXi]", "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.848324950785623*^9, 3.848325017852551*^9, 
  3.848325134005336*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"3c75e7b3-ddaf-4022-b98b-effd1c9ea704"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
  SuperscriptBox["\[CapitalSigma]", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.848324950785623*^9, 3.848325017891226*^9, 
  3.848325134006184*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"1e25d58c-f966-42d6-92e9-0398140ef43a"],

Cell[BoxData[{
 RowBox[{"(", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ricciTetrad", "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", "4"}], "]"}], "]"}], "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", 
  ")"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ricciTetrad", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", "4"}], "]"}], "]"}], "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
            "\[Theta]"}], "]"}], " ", "/.", " ", 
          RowBox[{
           RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
        
        RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
      " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", ")"}], " ", "/.",
   " ", 
  RowBox[{"(", " ", 
   RowBox[{"eq12", "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.848324957604436*^9, 3.848324996468153*^9}, 
   3.84832513400683*^9},
 CellLabel->
  "In[145]:=",ExpressionUUID->"2e44c897-eb16-4bc3-b001-691a7eb8ca13"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "3"]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   SuperscriptBox["\[CapitalXi]", "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.848324962141406*^9, 3.848324987900464*^9}, 
   3.848325023109642*^9, 3.848325134007531*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"7416f22c-deb4-4239-8a7d-a7710e81e0b6"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "\[ScriptL]"}], 
  SuperscriptBox["\[CapitalSigma]", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.848324962141406*^9, 3.848324987900464*^9}, 
   3.848325023144889*^9, 3.848325134008276*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"61666a71-0e2c-4576-8f2c-52aa9a3871b9"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Riemann Tensor Projected Onto Tetrad  ( Long Computation Time )\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.},
 CellChangeTimes->{{3.848326331895512*^9, 
  3.8483263646794367`*^9}},ExpressionUUID->"3843658c-eb01-4e1e-8191-\
6417df843cd6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "This", " ", "was", " ", "a", " ", "spectacularly", " ", "bad", " ", 
      "idea"}], "..."}], " ", "takes", " ", "a", " ", "long", " ", "time", 
    " ", "but", " ", "it", " ", "computes"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "riemannTetrad", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"riemannTetrad", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{"riemannKerr", " ", "[", 
           RowBox[{"\[Alpha]", ",", "\[Beta]", ",", 
            RowBox[{"-", "\[Gamma]"}], ",", 
            RowBox[{"-", "\[Delta]"}]}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "a", "]"}], "]"}], "[", 
           RowBox[{"-", "\[Alpha]"}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "b", "]"}], "]"}], "[", 
           RowBox[{"-", "\[Beta]"}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "c", "]"}], "]"}], "[", "\[Gamma]", "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "d", "]"}], "]"}], "[", "\[Delta]", "]"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"b", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"d", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", 
    ";"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.},
 CellChangeTimes->{{3.848322322368325*^9, 3.848322327195078*^9}, {
   3.848322370282955*^9, 3.8483223992925577`*^9}, {3.848323298789572*^9, 
   3.848323316286117*^9}, {3.8483234043752623`*^9, 3.848323407054352*^9}, 
   3.84832633701888*^9},
 CellLabel->
  "In[147]:=",ExpressionUUID->"e0a165d0-a61b-4805-af16-34f47c78c912"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "riemannTetrad1212", "]"}], "\[IndentingNewLine]", 
 RowBox[{"riemannTetrad1212", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"riemannTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.848326402699092*^9, 3.848326427911916*^9}, 
   3.848326478025012*^9, {3.848326520279738*^9, 3.848326536744115*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"46cb2218-e33c-4f24-9295-92967e019af9"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "24"}], " ", 
       SuperscriptBox["r", "4"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["r", "6"]}], "-", 
      RowBox[{"16", " ", 
       SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "-", 
      RowBox[{"32", " ", 
       SuperscriptBox["r", "5"], " ", "\[ScriptL]"}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"6", " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "-", 
         SuperscriptBox["\[ScriptL]", "2"], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox["\[ScriptL]", "2"]}]}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ScriptL]", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"4", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["r", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]}]]}]], "Output",
 CellChangeTimes->{{3.848326408276021*^9, 3.84832644751075*^9}, 
   3.848326555816264*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"1c064cc0-a05f-4b82-98a5-9e3ffae14688"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"riemannTetrad1212", "/.", " ", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Solve", "[", " ", 
            RowBox[{
             RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
             "\[Theta]"}], "]"}], " ", "/.", " ", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
         RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", ")"}], " ", "//",
    " ", "Expand"}], "  ", "//", " ", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.848326566614324*^9, 3.848326599853538*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"18297114-1adf-4444-8e08-1acef1272b78"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "4"], " ", "\[ScriptL]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", "r", " ", "\[ScriptL]"}], "+", 
         SuperscriptBox["\[ScriptL]", "2"]}], ")"}]}], "+", 
      RowBox[{"\[ScriptL]", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[ScriptL]", "-", 
          RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}], "2"]}], "-", 
      
      RowBox[{"2", " ", 
       SuperscriptBox["a", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", "r", " ", "\[ScriptL]"}], "-", 
         SuperscriptBox["\[ScriptL]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[ScriptL]"}], "+", 
         RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["r", "5"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
       RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}], 
     "3"]}]]}]], "Output",
 CellChangeTimes->{{3.848326568845936*^9, 3.848326600460153*^9}},
 CellLabel->
  "Out[167]=",ExpressionUUID->"ee2eaf3a-95a9-42a7-afea-6cf25a2569a1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "riemannTetrad1234", "]"}], "\[IndentingNewLine]", 
 RowBox[{"riemannTetrad1234", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"riemannTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.84832668175924*^9, 3.8483266910476027`*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"05a0a1ee-42b5-4bb7-8fbf-8449fb541f56"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{"1", "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}]]], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["\[ScriptL]", "r"]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "m", " ", "r"}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox["\[ScriptL]", "r"]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}], ")"}]}]}]]], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", 
      RowBox[{"6", " ", 
       SuperscriptBox["r", "3"]}], "+", "\[ScriptL]", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "\[ScriptL]"}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
   RowBox[{"r", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]}]]}]], "Output",
 CellChangeTimes->{3.848326778656725*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"ae329b9b-a033-426c-8b1a-c68422d2f678"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "How", " ", "to", " ", "get", " ", "this", " ", "into", " ", "their", " ", 
    
    RowBox[{"form", "?"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"riemannTetrad1234", "/.", " ", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"Solve", "[", " ", 
             RowBox[{
              RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
              "\[Theta]"}], "]"}], " ", "/.", " ", 
            RowBox[{
             RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], 
          "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
        " ", "TrigExpand"}], "  ", "//", " ", "Simplify"}], "  ", ")"}], " ", 
    "//", " ", "Expand"}], "  ", "//", " ", "Simplify", " "}]}]], "Input",
 CellChangeTimes->{{3.848326705374928*^9, 3.8483267066466722`*^9}, {
  3.848326985306806*^9, 
  3.848326996034062*^9}},ExpressionUUID->"1e66b0dd-5bb8-4c0c-93f7-\
ae0b6f4dadbb"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    SuperscriptBox["\[ScriptL]", 
     RowBox[{"3", "/", "2"}]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", "\[ScriptL]"}], "+", 
      RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}]], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["\[ScriptL]", "r"]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "m", " ", "r"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           FractionBox["\[ScriptL]", "r"]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox["r", "2"]}], ")"}]}]}], ")"}], " ", "\[ScriptL]"}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
         RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}]}]]], " ", 
    SqrtBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox["\[ScriptL]", "r"]], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
         RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "m", " ", "r"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           FractionBox["\[ScriptL]", "r"]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox["r", "2"]}], ")"}]}]}], ")"}], " ", 
       "\[ScriptL]"}]]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["a", "2"]}], ")"}], " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "-", 
      RowBox[{"r", " ", "\[ScriptL]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["a", "2"]}], "-", 
         RowBox[{"2", " ", "\[CapitalXi]"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", "\[CapitalXi]"}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["r", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
       RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}], 
     "3"]}]]}]], "Output",
 CellChangeTimes->{3.8483268058695087`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"c80950bd-7c5e-466b-8ac3-cedc8ed5eaa9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "riemannTetrad1313", "]"}], "\[IndentingNewLine]", 
 RowBox[{"riemannTetrad1313", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"riemannTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.8483267255450163`*^9, 3.848326737305128*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"16b1cd8b-cf31-48e6-b31e-b17f962002ab"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", "r"}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "3"]}], "+", "\[ScriptL]", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", "r"}], "+", "\[ScriptL]"}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]]}]], "Output",
 CellChangeTimes->{3.848326995524678*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"bc87e043-074b-4f71-85ba-6bdef5fb7bca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "How", " ", "to", " ", "get", " ", "this", " ", "into", " ", "their", " ", 
    
    RowBox[{"form", "?"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"riemannTetrad1313", " ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", "  "}]}]], "Input",
 CellChangeTimes->{{3.8483270119286013`*^9, 
  3.848327023168401*^9}},ExpressionUUID->"1169e9a3-c3f5-4bd1-be97-\
ff966895f602"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["a", "2"]}], ")"}], " ", 
        SuperscriptBox["\[ScriptL]", "2"]}], ")"}]}], "+", 
     RowBox[{"r", " ", "\[ScriptL]", " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        SuperscriptBox["a", "2"], "-", 
        RowBox[{"2", " ", "\[CapitalXi]"}]}], ")"}]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "2"], " ", "\[CapitalXi]"}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
      RowBox[{"2", " ", "r", " ", "\[CapitalXi]"}]}], ")"}], 
    "3"]}]]], "Output",
 CellChangeTimes->{3.84832701383097*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"40756db5-db9f-483a-923f-d9e19cd75bc8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "riemannTetrad3434", "]"}], "\[IndentingNewLine]", 
 RowBox[{"riemannTetrad3434", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"riemannTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "4", ",", "3", ",", "4"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.84832713377787*^9, 3.848327147281849*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"eaecb7bb-21f9-45fd-8e01-4f6a594bf177"],

Cell[BoxData[
 FractionBox[
  RowBox[{"8", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "27"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}], "-", 
     RowBox[{"27", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"9", "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}], "+", 
     RowBox[{"9", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}], "3"]]], "Output",
 CellChangeTimes->{3.848327169857008*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"28d92309-d10f-4039-9af6-57abfe0f87fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "How", " ", "to", " ", "get", " ", "this", " ", "into", " ", "their", " ", 
    
    RowBox[{"form", "?"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"riemannTetrad3434", "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"eq12", " ", "/.", " ", "eq7a"}], "  ", ",", " ", 
           "\[Theta]"}], "]"}], " ", "/.", " ", 
         RowBox[{
          RowBox[{"C", "[", "1", "]"}], "->", " ", "0"}]}], " ", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "TrigExpand"}], "  ", "//", " ", "Simplify", "  "}]}]], "Input",
 CellChangeTimes->{{3.848327178340312*^9, 3.848327186578496*^9}, {
  3.848327280412902*^9, 
  3.848327281946319*^9}},ExpressionUUID->"f925ad78-df56-4e73-adb1-\
6b4473601323"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["a", "4"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   SuperscriptBox["\[ScriptL]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"27", "+", 
        SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "-", 
     RowBox[{"54", " ", "r", " ", "\[CapitalXi]"}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["r", "3"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "9"}], "+", 
         SuperscriptBox["a", "2"]}], ")"}], " ", "\[ScriptL]"}], "+", 
      RowBox[{"18", " ", "r", " ", "\[CapitalXi]"}]}], ")"}], 
    "3"]}]]], "Output",
 CellChangeTimes->{3.8483271885095787`*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"cfddbf3b-3e33-4e76-8443-611321c5e5fd"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Weyl Tensor Projected Onto Tetrad (Long Computation Time)", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{{3.848326367608315*^9, 
  3.848326385207799*^9}},ExpressionUUID->"ab4d3ccf-8113-41b9-bd06-\
4a4a8f383691"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
        "Also", " ", "an", " ", "even", " ", "more", "  ", "spectaculary", 
         " ", "bad", " ", "idea"}], " ", "..."}], ".", " ", "takes"}], " ", 
      "even", " ", "longer"}], " ", "..."}], " ", "does", " ", "it", " ", 
    RowBox[{"work", "?"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "weylTetrad", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"weylTetrad", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{"weylKerr", " ", "[", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], ",", 
            RowBox[{"-", "\[Beta]"}], ",", 
            RowBox[{"-", "\[Gamma]"}], ",", 
            RowBox[{"-", "\[Delta]"}]}], "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "a", "]"}], "]"}], "[", "\[Alpha]", "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "b", "]"}], "]"}], "[", "\[Beta]", "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "c", "]"}], "]"}], "[", "\[Gamma]", "]"}], 
          RowBox[{
           RowBox[{"\[ScriptE]", "[", 
            RowBox[{"[", "d", "]"}], "]"}], "[", "\[Delta]", "]"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"b", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"d", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", 
    ";"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{{3.848323448229067*^9, 3.848323460222028*^9}, {
   3.848325930041623*^9, 3.8483259564654493`*^9}, 3.8483263721130953`*^9, {
   3.848327349173319*^9, 3.848327356984127*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"1e1c409a-aab6-44d4-bcaa-c84ebf3ca50a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "weylTetrad1212", "]"}], "\[IndentingNewLine]", 
 RowBox[{"weylTetrad1212", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"weylTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.8483285599694853`*^9, 3.8483285935857*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"00f3ebbe-2fcb-47f3-afd1-5d5e34600b9a"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "72"}], " ", 
       SuperscriptBox["r", "4"]}], "+", 
      RowBox[{"48", " ", 
       SuperscriptBox["r", "6"]}], "-", 
      RowBox[{"24", " ", 
       SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "-", 
      RowBox[{"48", " ", 
       SuperscriptBox["r", "5"], " ", "\[ScriptL]"}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox["\[ScriptL]", "2"]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "18"}], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "+", 
         SuperscriptBox["\[ScriptL]", "2"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox["\[ScriptL]", "2"]}]}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ScriptL]", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"4", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
   RowBox[{"3", " ", 
    SuperscriptBox["r", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]}]]}]], "Output",
 CellChangeTimes->{3.848328562621952*^9, 3.8483286123634663`*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"fb7cb612-f851-4c75-a3d5-46bda530f0e5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "weylTetrad1414", "]"}], "\[IndentingNewLine]", 
 RowBox[{"weylTetrad1414", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"weylTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "4", ",", "1", ",", "4"}], "]"}], "]"}], "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.848328655926042*^9, 3.848328684861981*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"ebc027e5-e579-44d1-a71b-f3857d314b5e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "72"}], " ", 
      SuperscriptBox["r", "4"]}], "+", 
     RowBox[{"48", " ", 
      SuperscriptBox["r", "6"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "-", 
     RowBox[{"48", " ", 
      SuperscriptBox["r", "5"], " ", "\[ScriptL]"}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["\[ScriptL]", "2"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["\[ScriptL]", "2"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox["\[ScriptL]", "2"]}], "+", 
     RowBox[{"4", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "18"}], " ", 
         SuperscriptBox["r", "4"]}], "-", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "3"], " ", "\[ScriptL]"}], "+", 
        SuperscriptBox["\[ScriptL]", "2"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ScriptL]", "2"]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[ScriptL]", "2"], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"4", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "3"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]}]]], "Output",
 CellChangeTimes->{{3.848328658799255*^9, 3.848328674501584*^9}, 
   3.848328717348027*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"f0676ac0-9823-4648-b91f-122d0f7b37d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "weylTetrad1243", "]"}], "\[IndentingNewLine]", 
 RowBox[{"weylTetrad1243", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"weylTetrad", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "]"}], "]"}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.848328720118548*^9, 3.848328728190545*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"3a5bfb66-f8ad-47a4-abb1-5b9889a714f7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"8", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", 
   RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
      SuperscriptBox["r", "2"]}], 
     RowBox[{
      SuperscriptBox["r", "2"], "+", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]]], " ", 
   SqrtBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["r", "2"], "+", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["\[ScriptL]", "r"]}]], " ", "m", " ", "r"}], "+", 
      SuperscriptBox["r", "2"]}]]], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "3"]}], "+", "\[ScriptL]", "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", "\[ScriptL]"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "+", "\[ScriptL]"}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}], ")"}]}], 
  RowBox[{"r", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Theta]"}], "]"}]}], ")"}], "3"]}]]], "Output",
 CellChangeTimes->{3.848328793318973*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"8e8b1391-2cef-435e-98a5-6a6ebe8f7b34"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Time Used and Global Variables", "Section",
 CellChangeTimes->{{3.822821984821321*^9, 3.822822011976183*^9}, 
   3.8228220441288443`*^9},ExpressionUUID->"d2609da1-dc8d-4761-bd7e-\
921fafa27182"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SessionTime", "[", "]"}], " "}]], "Input",
 CellChangeTimes->{
  3.822821962539233*^9, 3.822821996583045*^9, 3.822822044128971*^9, {
   3.822822692817333*^9, 3.822822702951915*^9}, {3.827850261883328*^9, 
   3.827850264847013*^9}, 3.848237660091229*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"d81b5977-0169-47e4-98e6-6b6b1b026c9b"],

Cell[BoxData["3426.225469`9.986360932604322"], "Output",
 CellChangeTimes->{
  3.822822460546051*^9, 3.827849353787137*^9, 3.8278502396264687`*^9, 
   3.8278504035307817`*^9, 3.8479650192050877`*^9, 3.848237901476645*^9, {
   3.848326290577532*^9, 3.848326290901557*^9}},
 CellLabel->
  "Out[154]=",ExpressionUUID->"b031e07d-b9c3-41c4-a9ed-101755b04377"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TimeUsed", "[", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.822739284339574*^9, 3.8227393012629004`*^9}, 
   3.8228179403148527`*^9, 3.82282196253939*^9, 3.822821996583177*^9, 
   3.8228220441291*^9, {3.822822705585544*^9, 3.822822715031636*^9}, {
   3.827850268535912*^9, 3.827850272183209*^9}, 3.84823765729414*^9},
 CellLabel->
  "In[155]:=",ExpressionUUID->"78cb7dd7-d8a3-410a-b0fc-d1623cb74fff"],

Cell[BoxData["1531.605246`"], "Output",
 CellChangeTimes->{
  3.822739638529801*^9, 3.822821962539546*^9, 3.822821996583349*^9, 
   3.822822044129231*^9, 3.822822460577866*^9, 3.8278493538269367`*^9, 
   3.827850239652351*^9, 3.827850403592553*^9, 3.847965019265024*^9, 
   3.8482379014986877`*^9, {3.848326290592744*^9, 3.848326290913659*^9}},
 CellLabel->
  "Out[155]=",ExpressionUUID->"5fced03d-4914-4506-8e73-226aa46a1f41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "metric*"}]], "Input",
 CellChangeTimes->{{3.822739743428*^9, 3.822739752297052*^9}, 
   3.822821962539672*^9, 3.822821996583479*^9, 3.822822044129356*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"683015e9-fde3-4438-b823-6256e459603a"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["Global`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], " ", 
              StyleBox["Global`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["metric", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-c3990584-6c18-48d3-b306-12095c31ed6c", {
                   "metric", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["metric7", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-c3990584-6c18-48d3-b306-12095c31ed6c", {
                   "metric7", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["metricFromTetrad", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-c3990584-6c18-48d3-b306-12095c31ed6c", {
                   "metricFromTetrad", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["metricToLine", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-c3990584-6c18-48d3-b306-12095c31ed6c", {
                   "metricToLine", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.2375]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{{3.8227397500644197`*^9, 3.822739752870183*^9}, 
   3.8228219625398006`*^9, 3.822821996583603*^9, 3.822822044129484*^9, 
   3.822822460684374*^9, 3.827849353891397*^9, 3.827850239777722*^9, 
   3.827850403648011*^9, 3.847965019408647*^9, 3.8482379016068697`*^9, {
   3.848326290836059*^9, 3.8483262909557743`*^9}},
 CellLabel->
  "Out[156]=",ExpressionUUID->"85f12df6-e278-44ee-a703-b422ce9baaff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "riemann*"}]], "Input",
 CellChangeTimes->{{3.848326302188877*^9, 3.848326306407752*^9}},
 CellLabel->
  "In[157]:=",ExpressionUUID->"17c508c7-163e-4165-acb8-d7ebef29d5c6"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["Global`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], " ", 
              StyleBox["Global`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["riemannKerr", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-8d9410fd-9b9d-4b15-b75d-e8f4d658806e", {
                   "riemannKerr", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["riemannTetrad", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-8d9410fd-9b9d-4b15-b75d-e8f4d658806e", {
                   "riemannTetrad", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.475]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.848326306717865*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"bcd1b0e5-0a8d-43f3-b515-7e824ae23933"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "einstein*"}]], "Input",
 CellChangeTimes->{{3.848326309221553*^9, 3.8483263125359697`*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"d27a34f6-38f7-4891-9208-4cec294e4e57"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["Global`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], " ", 
              StyleBox["Global`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["einsteinKerr", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-ed7584e7-5c2a-4fb5-92cd-dfe9ffe62534", {
                   "einsteinKerr", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["einsteinTetrad", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-ed7584e7-5c2a-4fb5-92cd-dfe9ffe62534", {
                   "einsteinTetrad", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.475]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.8483263129291897`*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"f8d40623-2189-4dd2-9452-26b641380f69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "weyl*"}]], "Input",
 CellChangeTimes->{{3.848326317956443*^9, 3.848326319559774*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"7f5944f3-da76-43fc-9f50-4e3299611bd9"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["Global`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], " ", 
              StyleBox["Global`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["weylKerr", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-44c57795-053c-44d9-a021-a95064105871", {
                   "weylKerr", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["weylTetrad", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-44c57795-053c-44d9-a021-a95064105871", {
                   "weylTetrad", "Global`"}, False},
                 ButtonNote->"Global`",
                 Evaluator->Automatic]}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.475]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.848326319909547*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"823ec568-8a9f-4166-838c-9d568714d69f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "one", " ", "takes", " ", "just", " ", "about", " ", 
    "forever"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "kretschmannKerr", "]"}], "\[IndentingNewLine]", 
   RowBox[{"kretschmannKerr", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{"KretschmannScalar", "[", 
     RowBox[{"gKerr", " ", ",", " ", 
      RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], 
     "]"}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8483226162983503`*^9, 3.8483226633641872`*^9}, {
  3.8483228234902287`*^9, 3.848322827825329*^9}, {3.848327040434808*^9, 
  3.848327059481842*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"660826d1-65aa-4218-b7f6-c71eeddb8ac3"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.848327156070458*^9, 3.8483295188609953`*^9},
 CellLabel->
  "Out[199]=",ExpressionUUID->"bc2c67fc-da94-4736-aa70-5cc3f34dabec"]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1279, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"af3b5056-77cc-4b97-b844-8b0540df2fd1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1917, 29, 221, "Title",ExpressionUUID->"8cceefdd-7fe8-4c87-a1fa-3edb246108be",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2500, 53, 996, 17, 76, "Author",ExpressionUUID->"dcc64515-034a-43c1-93b6-fe3133e3a95a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3533, 75, 228, 4, 69, "Section",ExpressionUUID->"5bfbdc73-b0cc-44b2-9c1a-1bf69f60be9e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3764, 81, 433, 9, 63, "Input",ExpressionUUID->"3b1122aa-9c29-4bc0-816c-3eafcceb2573",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4200, 92, 1582, 24, 43, "Output",ExpressionUUID->"12aeb227-cf87-48fb-b86e-ffde91551c36",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5819, 121, 742, 11, 55, "Section",ExpressionUUID->"c76b48ce-3635-40a1-ad18-d0f48336dc8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6564, 134, 451, 8, 63, "Input",ExpressionUUID->"39213c68-7367-4e11-98d4-06a2a866fa05",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7018, 144, 424, 8, 43, "Output",ExpressionUUID->"82480094-8e9f-4632-94b2-b906591ffa9e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[7467, 156, 362, 8, 63, "Input",ExpressionUUID->"f7caa476-03bc-4ddb-8eaf-5dbc2cb89e9d"],
Cell[7832, 166, 281, 7, 43, "Output",ExpressionUUID->"1cbd9f04-edd5-4317-b09c-fde15e8ab50f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8150, 178, 354, 8, 63, "Input",ExpressionUUID->"cc68bbb4-c76a-49a4-87d3-c43a204887c6"],
Cell[8507, 188, 275, 7, 43, "Output",ExpressionUUID->"474261fd-7e24-4240-9f4f-c2eb68924c57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8819, 200, 534, 10, 63, "Input",ExpressionUUID->"f4adcb56-96f2-449c-ac88-faec9c8cbb29",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9356, 212, 597, 11, 43, "Output",ExpressionUUID->"4c9a5186-6b81-4181-adf7-1f4be3b5fb3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9956, 225, 721, 15, 84, "Input",ExpressionUUID->"dd184cdb-ffc6-47fc-9500-900c55086c6e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[10680, 242, 644, 11, 43, "Output",ExpressionUUID->"d2f353ed-8dc9-461d-8c53-ab66114bc68a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[11327, 255, 796, 16, 84, "Input",ExpressionUUID->"264815ad-c3b6-48e8-909b-593976ffb1c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[12126, 273, 689, 13, 43, "Output",ExpressionUUID->"d3e2fe4d-5e25-4cb3-a184-9160104d56c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[12818, 288, 504, 9, 63, "Input",ExpressionUUID->"02845a66-74d4-447e-999a-6f211a1aecf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13325, 299, 551, 11, 43, "Output",ExpressionUUID->"8fbcce09-eb02-40cb-8c70-1593217fe7e4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13879, 312, 451, 9, 63, "Input",ExpressionUUID->"0cfa756a-8c11-41c4-b7c2-8e0137034748",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14333, 323, 513, 9, 43, "Output",ExpressionUUID->"607886cb-cf85-4c0c-88f0-05ade0b37bbf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14849, 334, 983, 18, 105, "Input",ExpressionUUID->"af21d09d-35dd-4f1f-82c7-81767af519f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15835, 354, 529, 11, 43, "Output",ExpressionUUID->"2ddbf21c-fa7f-41bb-a4dc-7bcb92e8a4c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[16413, 371, 228, 4, 55, "Section",ExpressionUUID->"82bd49a7-d303-4fcd-8cc8-bb1dcf6f79e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[16644, 377, 1641, 44, 189, "Input",ExpressionUUID->"de167130-af9d-44b7-8be4-ee105a329e47",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[18288, 423, 1824, 30, 24, "Print",ExpressionUUID->"a290014c-82d7-47e9-a7c7-670308452511",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[20115, 455, 1841, 31, 24, "Print",ExpressionUUID->"590ee61b-4a9f-4279-9a0c-fcaafbea0f74",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[21959, 488, 1778, 27, 41, "Output",ExpressionUUID->"b4b5d8aa-83d8-4788-acbf-daafb8678fd1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[23740, 517, 246, 4, 41, "Input",ExpressionUUID->"741701ce-8c0c-424f-af3c-c0b998201fc8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24023, 526, 240, 4, 55, "Section",ExpressionUUID->"c3d992b7-8631-47c9-9893-9321cc60de2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[24266, 532, 3122, 71, 504, "Input",ExpressionUUID->"f50b1448-aef6-4199-b282-5fc140414419",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[27391, 605, 3387, 93, 393, "Output",ExpressionUUID->"2f14a8ad-07f8-4e7d-a500-289c73a5a84b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[30781, 700, 674, 14, 41, "Input",ExpressionUUID->"78e329ec-6de2-45c2-9fbb-7e1a8647d133",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31492, 719, 362, 6, 55, "Section",ExpressionUUID->"24f9fa01-3db0-48d5-90b6-93e03f85b403",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[31857, 727, 1659, 41, 126, "Input",ExpressionUUID->"0a69254e-277f-482a-ae41-16fd55283375",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[33519, 770, 1055, 26, 84, "Input",ExpressionUUID->"f7d56e4e-3d36-43e6-b563-60666534ce64",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[34611, 801, 335, 7, 55, "Section",ExpressionUUID->"387cc18f-36c3-44ec-a8f2-8dbb65df886e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34949, 810, 1418, 39, 108, "Input",ExpressionUUID->"503acf40-28dd-4bd2-a662-25bb9f5017e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36370, 851, 1155, 34, 62, "Output",ExpressionUUID->"2b67eda6-0061-49e8-b3f7-03f802d0e947",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37528, 887, 714, 15, 105, "Input",ExpressionUUID->"83ed1a4d-37c0-4767-b9d4-f29e91a30681",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38245, 904, 2366, 67, 143, "Output",ExpressionUUID->"364a83a8-4401-440b-a6ec-27a30bea2688",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40614, 973, 1106, 27, 178, "Input",ExpressionUUID->"8b70ee88-a6db-4095-9adc-af703d3b703a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41723, 1002, 1243, 37, 79, "Output",ExpressionUUID->"24d7b2e8-ae45-4f55-b6d4-3f3f78f94710",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42969, 1041, 850, 17, 147, "Input",ExpressionUUID->"6d308a19-9beb-40fb-800a-39e566af771d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43822, 1060, 922, 27, 69, "Output",ExpressionUUID->"1ab31f8d-a1e1-4a85-97a0-c7696d7e3c9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44747, 1089, 2487, 61, 231, "Input",ExpressionUUID->"ed14b836-5fd2-412d-9658-807bc7215b3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[47237, 1152, 4672, 135, 310, "Output",ExpressionUUID->"8338c6a2-40a6-4973-b709-8726c73c9424",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[51912, 1289, 732, 14, 63, "Input",ExpressionUUID->"f32c9c78-76c8-45f2-9d20-2e88dd0f4982",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[52647, 1305, 2916, 80, 151, "Output",ExpressionUUID->"3e2a1cd9-0f1c-48bf-8918-3482cce0a95a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[55566, 1387, 1039, 24, 86, "Input",ExpressionUUID->"81b5b170-56b6-4e96-a93a-999d1d4c1308",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[56608, 1413, 350, 8, 45, "Output",ExpressionUUID->"66902318-4ae8-4382-8370-1ce95015460d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[56961, 1423, 993, 20, 126, "Input",ExpressionUUID->"2c49d5d2-9a59-4c20-85ca-346e21847124",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[57957, 1445, 819, 16, 126, "Input",ExpressionUUID->"78246334-7baf-4ae9-adc4-d87443ffe09f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[58779, 1463, 727, 14, 63, "Input",ExpressionUUID->"3a8ad2d6-ec5c-4e91-bcbd-5dd3cbe52da3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[59509, 1479, 4177, 120, 185, "Output",ExpressionUUID->"85c8e2b8-1c08-4c91-bcaf-12bbf0083eb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[63689, 1601, 963, 23, 86, "Input",ExpressionUUID->"97f5ef4f-d78a-4e34-849e-1bccefa96d43",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[64655, 1626, 349, 8, 45, "Output",ExpressionUUID->"f39b1f82-2096-4e72-971d-39228b764ad5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[65041, 1639, 233, 4, 55, "Section",ExpressionUUID->"9f001c23-864f-420e-9c38-8eef074a4948",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[65277, 1645, 670, 14, 84, "Input",ExpressionUUID->"7165e4de-a9ab-4342-acbe-e5f1dae4e9d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[65950, 1661, 343, 7, 45, "Output",ExpressionUUID->"c3b45e3a-142c-4696-9a97-ac4e0d94e509",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[66296, 1670, 541, 10, 84, "Input",ExpressionUUID->"00aa3c06-47c2-48a2-a777-5408ac0a37dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[66840, 1682, 343, 7, 45, "Output",ExpressionUUID->"65699c7f-b942-47ae-a447-95da42459255",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[67186, 1691, 528, 10, 84, "Input",ExpressionUUID->"f9f2c1ee-626f-46dc-ab1d-af7a7f1a5bee",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[67717, 1703, 339, 7, 45, "Output",ExpressionUUID->"a06ce8c0-0506-4b5e-a64e-21eb3ac1cfc9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[68059, 1712, 526, 10, 84, "Input",ExpressionUUID->"0222730e-3dcb-4aa9-bf3f-5d099093f099",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[68588, 1724, 288, 6, 41, "Output",ExpressionUUID->"b6b96785-ba1f-46ff-ae07-d2fd324cf5f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[68879, 1732, 491, 9, 84, "Input",ExpressionUUID->"4b07bc35-1476-4f41-9a24-8b8df1af973b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[69373, 1743, 342, 7, 45, "Output",ExpressionUUID->"7aa863d5-bebd-4ce9-b445-783e96ab5506",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[69752, 1755, 273, 6, 55, "Section",ExpressionUUID->"8d994199-0ec1-4970-a4db-89616153bc61",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[70028, 1763, 2036, 51, 289, "Input",ExpressionUUID->"0f501b20-8d4b-42d9-85a9-c9f30a987534",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[72067, 1816, 4172, 122, 193, "Output",ExpressionUUID->"ce3e55c7-858c-40a6-8ba4-90e6a3e35975",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[76242, 1940, 1037, 23, 84, "Input",ExpressionUUID->"004b1018-06d0-417f-817b-fb15a74d3cff",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77282, 1965, 336, 7, 45, "Output",ExpressionUUID->"62f79e04-7183-4a8b-8b69-10d64f62144d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77621, 1974, 990, 23, 84, "Input",ExpressionUUID->"ca13316f-818a-481f-86d6-d7498ed2af63",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78614, 1999, 335, 7, 45, "Output",ExpressionUUID->"45fe03a3-5df7-4423-b0b3-5de8605b27e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78952, 2008, 1019, 23, 84, "Input",ExpressionUUID->"9e23b358-ced4-4a24-84db-efbb8818575c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79974, 2033, 345, 7, 45, "Output",ExpressionUUID->"59f5f3b4-1927-440f-9837-0198c7593dfd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80322, 2042, 1009, 23, 84, "Input",ExpressionUUID->"8318c559-7f94-453f-a7e3-d19f84098bd2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81334, 2067, 339, 7, 45, "Output",ExpressionUUID->"b38c3cd8-6694-4b20-9e74-2539c4b23edb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81676, 2076, 481, 9, 84, "Input",ExpressionUUID->"fc73d6a7-7b93-4402-ab45-bf305ac8b9f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[82160, 2087, 640, 18, 45, "Output",ExpressionUUID->"7c68ac36-7754-4f73-929e-3d7da3a76c43",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[82803, 2107, 1166, 30, 41, "Input",ExpressionUUID->"cc5c969c-c886-4cb2-868b-d4ecbcd2d703",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83972, 2139, 872, 25, 101, "Output",ExpressionUUID->"055d91fb-2f3d-49c3-b79a-cffcd1689e58",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[84847, 2166, 670, 15, 163, "Input",ExpressionUUID->"4742eab8-cd5f-4881-ac86-bbc367d4f6fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85520, 2183, 817, 24, 101, "Output",ExpressionUUID->"3b8e9683-7e81-4e05-b09a-ba4c86675bd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[86340, 2209, 1359, 30, 189, "Input",ExpressionUUID->"90ae7a3c-57c9-41d6-bf1e-2ea69d34249c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[87702, 2241, 5686, 168, 245, "Output",ExpressionUUID->"d786bd0b-f905-46ab-bb7b-68d9497b8823",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[93391, 2411, 1642, 38, 126, "Input",ExpressionUUID->"1665c606-d0ff-43bf-806a-8a1473e30d72",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[95036, 2451, 5118, 145, 209, "Output",ExpressionUUID->"c074e769-7856-4cb6-a743-b47ac6ae2fb3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100157, 2598, 648, 14, 41, "Input",ExpressionUUID->"425959c0-8433-4e27-bba4-461f8296c001",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100808, 2614, 987, 37, 305, "Output",ExpressionUUID->"9ed1b895-f2f2-4785-9acf-35deaa6fd6b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[101832, 2656, 292, 7, 55, "Section",ExpressionUUID->"0e3c84b5-5a73-4d2e-a3dd-e9e1e12fd3d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[102127, 2665, 1030, 25, 124, "Input",ExpressionUUID->"baa38903-2467-436a-ac64-f69a454dd4fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[103160, 2692, 489, 11, 58, "Output",ExpressionUUID->"739fb5ba-b03b-43fb-a58e-12a14813a28d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[103652, 2705, 432, 10, 41, "Input",ExpressionUUID->"95e93944-8c55-4877-8180-375757170778",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[104087, 2717, 405, 10, 60, "Output",ExpressionUUID->"bba29472-ce73-4646-aaee-56a0eb830175",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[104495, 2729, 302, 6, 41, "Input",ExpressionUUID->"d82ac34b-fd8a-43bf-be15-8c39921c9eaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[104800, 2737, 632, 17, 63, "Output",ExpressionUUID->"b7357f53-d60e-41c9-866f-10d66ab9973f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[105435, 2756, 694, 18, 41, "Input",ExpressionUUID->"753292bf-4301-4868-b282-0902701e6ed9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[106132, 2776, 543, 14, 65, "Output",ExpressionUUID->"c29804e2-a246-4253-9fce-3306443b1458",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[106712, 2795, 186, 3, 55, "Section",ExpressionUUID->"a5747955-f4ed-4138-8538-fae6461d43bc"],
Cell[CellGroupData[{
Cell[106923, 2802, 1745, 47, 105, "Input",ExpressionUUID->"fa511bb9-209a-40fb-9e8c-3a461724e42f"],
Cell[108671, 2851, 705, 21, 74, "Output",ExpressionUUID->"32f31def-4d2c-405f-a0b1-6f48a22dfb3f"],
Cell[109379, 2874, 443, 12, 68, "Output",ExpressionUUID->"64229bf3-ed61-43ba-9c7c-8e7c366f3b44"],
Cell[109825, 2888, 456, 12, 68, "Output",ExpressionUUID->"6f3b0599-38e1-4f59-b3de-b0775c2fbf55"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[110330, 2906, 340, 8, 55, "Section",ExpressionUUID->"04bf73cf-3470-4d8d-a4e9-07c15f9ab2cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[110673, 2916, 1695, 39, 105, "Input",ExpressionUUID->"038349fe-0354-4ca9-869c-196f1255d24f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[112371, 2957, 4218, 121, 223, "Output",ExpressionUUID->"1427260b-f8f8-4530-b0a6-9ab9f224e7cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[116592, 3080, 1769, 46, 63, "Input",ExpressionUUID->"51494ac8-68f6-4bbf-ac9f-97bb7ea71068",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[118364, 3128, 675, 16, 68, "Output",ExpressionUUID->"f9e8f280-ba3c-4cf8-bcae-ac604b9d4e3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[119042, 3146, 603, 13, 68, "Output",ExpressionUUID->"9626a6e6-9e94-40c3-bd39-1e7b131f425c",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[119648, 3161, 1829, 48, 63, "Input",ExpressionUUID->"c8b65f17-c03f-4066-93aa-c1dd34ab029a",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[121480, 3211, 582, 16, 68, "Output",ExpressionUUID->"0706b3ee-8d38-4ea4-8dee-355a20729f80",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[122065, 3229, 508, 13, 68, "Output",ExpressionUUID->"75f63aa9-7b77-4970-97d4-78f8a029dfc2",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[122576, 3244, 1118, 28, 63, "Input",ExpressionUUID->"3bc96f05-f6ad-4d3d-951d-ea33024ea058",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[123697, 3274, 699, 18, 68, "Output",ExpressionUUID->"74b39d4f-6e68-44bd-9959-99485f77c685",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[124399, 3294, 1120, 28, 63, "Input",ExpressionUUID->"9db5ece8-7aaa-458c-9949-d9c1b26fd71d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[125522, 3324, 624, 17, 68, "Output",ExpressionUUID->"821d96a8-fe61-4e41-80eb-7c224eff604d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[126183, 3346, 286, 6, 55, "Section",ExpressionUUID->"28f8272e-7efe-4487-9b88-d6348b629300",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[126472, 3354, 1561, 38, 105, "Input",ExpressionUUID->"c51dfc66-082f-4398-9f88-1fad0a2774b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[128036, 3394, 4083, 116, 223, "Output",ExpressionUUID->"9e71f51e-1572-4286-b863-ffb6d8e12dca",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[132122, 3512, 1113, 28, 63, "Input",ExpressionUUID->"10b0f760-3e2d-45f0-a7af-2348c87b57e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[133238, 3542, 652, 18, 68, "Output",ExpressionUUID->"114d5a82-9f5f-4fe7-8001-7423c0ced68f",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[133893, 3562, 1114, 28, 63, "Input",ExpressionUUID->"7a168734-e026-493a-8750-88e65efd8043",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[135010, 3592, 596, 16, 68, "Output",ExpressionUUID->"993b6d9b-86ff-46ae-8673-3f977cb02224",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[135609, 3610, 1901, 52, 63, "Input",ExpressionUUID->"5131406c-a45e-42f6-9f48-695029a37568",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[137513, 3664, 528, 14, 68, "Output",ExpressionUUID->"3c75e7b3-ddaf-4022-b98b-effd1c9ea704",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[138044, 3680, 457, 11, 68, "Output",ExpressionUUID->"1e25d58c-f966-42d6-92e9-0398140ef43a",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[138504, 3693, 1801, 50, 63, "Input",ExpressionUUID->"2e44c897-eb16-4bc3-b001-691a7eb8ca13",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[140308, 3745, 553, 14, 68, "Output",ExpressionUUID->"7416f22c-deb4-4239-8a7d-a7710e81e0b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[140864, 3761, 482, 11, 68, "Output",ExpressionUUID->"61666a71-0e2c-4576-8f2c-52aa9a3871b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Closed]],
Cell[CellGroupData[{
Cell[141383, 3777, 273, 6, 55, "Section",ExpressionUUID->"3843658c-eb01-4e1e-8191-6417df843cd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.}],
Cell[141659, 3785, 2139, 53, 105, "Input",ExpressionUUID->"e0a165d0-a61b-4805-af16-34f47c78c912",
 CellGroupingRules->{"GroupTogetherGrouping", 10009.}],
Cell[CellGroupData[{
Cell[143823, 3842, 602, 12, 84, "Input",ExpressionUUID->"46cb2218-e33c-4f24-9295-92967e019af9"],
Cell[144428, 3856, 1937, 55, 76, "Output",ExpressionUUID->"1c064cc0-a05f-4b82-98a5-9e3ffae14688"],
Cell[146368, 3913, 880, 22, 63, "Input",ExpressionUUID->"18297114-1adf-4444-8e08-1acef1272b78"],
Cell[147251, 3937, 1745, 51, 76, "Output",ExpressionUUID->"ee2eaf3a-95a9-42a7-afea-6cf25a2569a1"],
Cell[CellGroupData[{
Cell[149021, 3992, 531, 11, 84, "Input",ExpressionUUID->"05a0a1ee-42b5-4bb7-8fbf-8449fb541f56"],
Cell[149555, 4005, 2088, 62, 111, "Output",ExpressionUUID->"ae329b9b-a033-426c-8b1a-c68422d2f678"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151680, 4072, 1139, 30, 84, "Input",ExpressionUUID->"1e66b0dd-5bb8-4c0c-93f7-ae0b6f4dadbb"],
Cell[152822, 4104, 3221, 98, 125, "Output",ExpressionUUID->"c80950bd-7c5e-466b-8ac3-cedc8ed5eaa9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156080, 4207, 532, 11, 84, "Input",ExpressionUUID->"16b1cd8b-cf31-48e6-b31e-b17f962002ab"],
Cell[156615, 4220, 983, 29, 76, "Output",ExpressionUUID->"bc87e043-074b-4f71-85ba-6bdef5fb7bca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157635, 4254, 917, 24, 63, "Input",ExpressionUUID->"1169e9a3-c3f5-4bd1-be97-ff966895f602"],
Cell[158555, 4280, 1248, 39, 76, "Output",ExpressionUUID->"40756db5-db9f-483a-923f-d9e19cd75bc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159840, 4324, 529, 11, 84, "Input",ExpressionUUID->"eaecb7bb-21f9-45fd-8e01-4f6a594bf177"],
Cell[160372, 4337, 781, 24, 76, "Output",ExpressionUUID->"28d92309-d10f-4039-9af6-57abfe0f87fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161190, 4366, 965, 25, 63, "Input",ExpressionUUID->"f925ad78-df56-4e73-adb1-6b4473601323"],
Cell[162158, 4393, 934, 29, 76, "Output",ExpressionUUID->"cfddbf3b-3e33-4e76-8443-611321c5e5fd"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[163153, 4429, 257, 4, 55, "Section",ExpressionUUID->"ab4d3ccf-8113-41b9-bd06-4a4a8f383691",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[163413, 4435, 2189, 55, 105, "Input",ExpressionUUID->"1e1c409a-aab6-44d4-bcaa-c84ebf3ca50a",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[165605, 4492, 521, 11, 84, "Input",ExpressionUUID->"00f3ebbe-2fcb-47f3-afd1-5d5e34600b9a"],
Cell[166129, 4505, 1949, 55, 76, "Output",ExpressionUUID->"fb7cb612-f851-4c75-a3d5-46bda530f0e5"],
Cell[CellGroupData[{
Cell[168103, 4564, 516, 11, 84, "Input",ExpressionUUID->"ebc027e5-e579-44d1-a71b-f3857d314b5e"],
Cell[168622, 4577, 1907, 55, 76, "Output",ExpressionUUID->"f0676ac0-9823-4648-b91f-122d0f7b37d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170566, 4637, 521, 11, 84, "Input",ExpressionUUID->"3a5bfb66-f8ad-47a4-abb1-5b9889a714f7"],
Cell[171090, 4650, 1734, 52, 101, "Output",ExpressionUUID->"8e8b1391-2cef-435e-98a5-6a6ebe8f7b34"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[172873, 4708, 200, 3, 55, "Section",ExpressionUUID->"d2609da1-dc8d-4761-bd7e-921fafa27182"],
Cell[CellGroupData[{
Cell[173098, 4715, 371, 8, 41, "Input",ExpressionUUID->"d81b5977-0169-47e4-98e6-6b6b1b026c9b"],
Cell[173472, 4725, 354, 6, 41, "Output",ExpressionUUID->"b031e07d-b9c3-41c4-a9ed-101755b04377"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173863, 4736, 437, 8, 41, "Input",ExpressionUUID->"78cb7dd7-d8a3-410a-b0fc-d1623cb74fff"],
Cell[174303, 4746, 427, 7, 41, "Output",ExpressionUUID->"5fced03d-4914-4506-8e73-226aa46a1f41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174767, 4758, 266, 5, 41, "Input",ExpressionUUID->"683015e9-fde3-4438-b823-6256e459603a"],
Cell[175036, 4765, 4237, 103, 102, "Output",ExpressionUUID->"85f12df6-e278-44ee-a703-b422ce9baaff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179310, 4873, 200, 4, 41, "Input",ExpressionUUID->"17c508c7-163e-4165-acb8-d7ebef29d5c6"],
Cell[179513, 4879, 3096, 79, 102, "Output",ExpressionUUID->"bcd1b0e5-0a8d-43f3-b515-7e824ae23933"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182646, 4963, 203, 4, 41, "Input",ExpressionUUID->"d27a34f6-38f7-4891-9208-4cec294e4e57"],
Cell[182852, 4969, 3102, 79, 102, "Output",ExpressionUUID->"f8d40623-2189-4dd2-9452-26b641380f69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185991, 5053, 197, 4, 41, "Input",ExpressionUUID->"7f5944f3-da76-43fc-9f50-4e3299611bd9"],
Cell[186191, 5059, 3084, 79, 102, "Output",ExpressionUUID->"823ec568-8a9f-4166-838c-9d568714d69f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[189324, 5144, 823, 18, 102, "Input",ExpressionUUID->"660826d1-65aa-4218-b7f6-c71eeddb8ac3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[190150, 5164, 184, 3, 41, "Output",ExpressionUUID->"bc2c67fc-da94-4736-aa70-5cc3f34dabec"]
}, Open  ]]
}
]
*)