Kerr-Newman with GA - Boyer-Lindquist.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    202458,       5112]
NotebookOptionsPosition[    184941,       4843]
NotebookOutlinePosition[    185542,       4865]
CellTagsIndexPosition[    185499,       4862]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Kerr-Newman Black Hole with GA", "Title",
 CellChangeTimes->{{3.908263534366136*^9, 3.908263536875058*^9}, {
   3.909493222441277*^9, 3.909493226300096*^9}, 3.909538267388522*^9, {
   3.9095533490236483`*^9, 3.909553352746928*^9}, {3.909805454760293*^9, 
   3.909805462463484*^9}, {3.909814712501429*^9, 3.909814713656392*^9}, {
   3.910416120384549*^9, 3.910416128087104*^9}, {3.911451752343511*^9, 
   3.91145175282717*^9}, 3.911453037522512*^9, 3.911453375544658*^9, 
   3.911453532239443*^9, {3.911536657163364*^9, 3.911536662664792*^9}, {
   3.939608108766881*^9, 
   3.9396081098660316`*^9}},ExpressionUUID->"5ed80a38-7e4d-460d-a7d7-\
4b6c0698337c"],

Cell[CellGroupData[{

Cell["Run first", "Section",
 CellChangeTimes->{{3.90981448231054*^9, 
  3.909814487191287*^9}},ExpressionUUID->"d6301719-3266-4b91-9521-\
888fc692f6b8"],

Cell["\<\
The following cells need to be run one by one, individually, before the rest \
of the notebook. Otherwise, sometimes the products are not well defined.
Import the package cliffordBasic.m \
\>", "Text",
 CellChangeTimes->{{3.909814489697*^9, 3.909814511257724*^9}, {
  3.935819855526161*^9, 3.935819883871038*^9}, {3.936068151531273*^9, 
  3.936068164358486*^9}},ExpressionUUID->"410843f0-0d90-4cba-9d62-\
f4104c321ff1"],

Cell[BoxData[
 RowBox[{"<<", "\"\<CliffordBasic.m\>\""}]], "Input",
 CellChangeTimes->{{3.907917542959506*^9, 3.907917543040244*^9}, {
  3.911362400802463*^9, 3.911362405380542*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"c756ce16-38ed-4286-be02-efddc2006da4"],

Cell["Define the signature", "Text",
 CellChangeTimes->{{3.9360681670432167`*^9, 
  3.93606817343244*^9}},ExpressionUUID->"1e12b8c9-b6cb-49e9-877f-\
7cc4b2c6b006"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$SetSignature", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.907916566293947*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"7b408fdc-d3b4-4855-acc2-018e5ef35336"],

Cell["Check that the signature has been implemented correctly", "Text",
 CellChangeTimes->{{3.93606817701088*^9, 
  3.936068188961419*^9}},ExpressionUUID->"65acbb5e-580a-4dd7-8466-\
dca75e508c5f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{"InnerProduct", "[", 
     RowBox[{
      RowBox[{"e", "[", "i", "]"}], ",", 
      RowBox[{"e", "[", "i", "]"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9096396317413893`*^9, 3.909639638184587*^9}, {
  3.90981457360636*^9, 3.909814583450346*^9}, {3.9098146360031967`*^9, 
  3.909814648407485*^9}, {3.9360681928689613`*^9, 3.936068194696933*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"77778e80-afd7-448e-b420-d95b8dcca464"],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.910152225464408*^9, 3.910154187804837*^9, 
  3.910337753881386*^9, 3.910416166425867*^9, 3.911362234750484*^9, 
  3.9113624609864483`*^9, 3.91136745702524*^9, 3.9113713856726837`*^9, 
  3.911450738540913*^9, 3.911451872411084*^9, 3.91145318576957*^9, 
  3.911453433777203*^9, 3.911453536240399*^9, 3.911536515239661*^9, 
  3.911537862665009*^9, 3.911538208477619*^9, 3.911625155093528*^9, 
  3.918200431737803*^9, 3.918202126164927*^9, 3.918797686312391*^9, 
  3.919918786842504*^9, 3.924316932467756*^9, 3.924320534778997*^9, 
  3.93572116830685*^9, 3.935809353833026*^9, 3.9360691122287397`*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"3ed27be0-0255-405b-a648-7ce822c8d759"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Print",
 CellChangeTimes->{3.910152225464408*^9, 3.910154187804837*^9, 
  3.910337753881386*^9, 3.910416166425867*^9, 3.911362234750484*^9, 
  3.9113624609864483`*^9, 3.91136745702524*^9, 3.9113713856726837`*^9, 
  3.911450738540913*^9, 3.911451872411084*^9, 3.91145318576957*^9, 
  3.911453433777203*^9, 3.911453536240399*^9, 3.911536515239661*^9, 
  3.911537862665009*^9, 3.911538208477619*^9, 3.911625155093528*^9, 
  3.918200431737803*^9, 3.918202126164927*^9, 3.918797686312391*^9, 
  3.919918786842504*^9, 3.924316932467756*^9, 3.924320534778997*^9, 
  3.93572116830685*^9, 3.935809353833026*^9, 3.936069112229352*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"14817599-fb12-4768-bf11-6465c38ccdad"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Print",
 CellChangeTimes->{3.910152225464408*^9, 3.910154187804837*^9, 
  3.910337753881386*^9, 3.910416166425867*^9, 3.911362234750484*^9, 
  3.9113624609864483`*^9, 3.91136745702524*^9, 3.9113713856726837`*^9, 
  3.911450738540913*^9, 3.911451872411084*^9, 3.91145318576957*^9, 
  3.911453433777203*^9, 3.911453536240399*^9, 3.911536515239661*^9, 
  3.911537862665009*^9, 3.911538208477619*^9, 3.911625155093528*^9, 
  3.918200431737803*^9, 3.918202126164927*^9, 3.918797686312391*^9, 
  3.919918786842504*^9, 3.924316932467756*^9, 3.924320534778997*^9, 
  3.93572116830685*^9, 3.935809353833026*^9, 3.9360691122307177`*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"3a5de306-c7f8-447a-be91-5f01293188cb"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Print",
 CellChangeTimes->{3.910152225464408*^9, 3.910154187804837*^9, 
  3.910337753881386*^9, 3.910416166425867*^9, 3.911362234750484*^9, 
  3.9113624609864483`*^9, 3.91136745702524*^9, 3.9113713856726837`*^9, 
  3.911450738540913*^9, 3.911451872411084*^9, 3.91145318576957*^9, 
  3.911453433777203*^9, 3.911453536240399*^9, 3.911536515239661*^9, 
  3.911537862665009*^9, 3.911538208477619*^9, 3.911625155093528*^9, 
  3.918200431737803*^9, 3.918202126164927*^9, 3.918797686312391*^9, 
  3.919918786842504*^9, 3.924316932467756*^9, 3.924320534778997*^9, 
  3.93572116830685*^9, 3.935809353833026*^9, 3.936069112231168*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"f15575e6-bdac-4c32-9ca3-37d1f40be803"],

Cell[BoxData[
 RowBox[{"InnerProduct", "[", 
  RowBox[{
   RowBox[{"e", "[", "5", "]"}], ",", 
   RowBox[{"e", "[", "5", "]"}]}], "]"}]], "Print",
 CellChangeTimes->{3.910152225464408*^9, 3.910154187804837*^9, 
  3.910337753881386*^9, 3.910416166425867*^9, 3.911362234750484*^9, 
  3.9113624609864483`*^9, 3.91136745702524*^9, 3.9113713856726837`*^9, 
  3.911450738540913*^9, 3.911451872411084*^9, 3.91145318576957*^9, 
  3.911453433777203*^9, 3.911453536240399*^9, 3.911536515239661*^9, 
  3.911537862665009*^9, 3.911538208477619*^9, 3.911625155093528*^9, 
  3.918200431737803*^9, 3.918202126164927*^9, 3.918797686312391*^9, 
  3.919918786842504*^9, 3.924316932467756*^9, 3.924320534778997*^9, 
  3.93572116830685*^9, 3.935809353833026*^9, 3.936069112231628*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"e2392a13-099f-4120-8ae3-666d14281ba1"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Check that the outer products are correctly performed. Sometimes the package \
does not load correctly and many outer products are 0\
\>", "Text",
 CellChangeTimes->{{3.936068205860607*^9, 
  3.9360682087427063`*^9}},ExpressionUUID->"5586ce33-2699-4293-a261-\
b3d18b3307cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j"}], "}"}], ",", "\"\<->\>\"", ",", 
     RowBox[{"OuterProduct", "[", 
      RowBox[{
       RowBox[{"e", "[", "i", "]"}], ",", 
       RowBox[{"e", "[", "j", "]"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"j", ",", "i", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.909639417022383*^9, 3.909639481026237*^9}, {
  3.909639610556711*^9, 3.9096396489078817`*^9}, {3.909814588211165*^9, 
  3.909814622765467*^9}, {3.9360682016749897`*^9, 3.9360682038675833`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b9a46f4a-e368-482d-a2b7-eb330f8baf36"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{1, 1}, "->", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.93606911223497*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"21b1400d-b128-46b5-9e79-35db604ae849"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"1", ",", "2"}], "]"}]}],
  SequenceForm[{1, 2}, "->", 
   CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.9360691122355423`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"c2a7b5f9-ba67-4cea-b89a-9152250f1d45"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"1", ",", "3"}], "]"}]}],
  SequenceForm[{1, 3}, "->", 
   CliffordBasic`e[1, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112236251*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"66ff76bc-6185-4c2a-a2a5-c61884dae277"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"1", ",", "4"}], "]"}]}],
  SequenceForm[{1, 4}, "->", 
   CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.9360691122367277`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"8b493eb2-2eb8-4411-b842-f6ffee562b4d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "5"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"OuterProduct", "[", 
    RowBox[{
     RowBox[{"e", "[", "1", "]"}], ",", 
     RowBox[{"e", "[", "5", "]"}]}], "]"}]}],
  SequenceForm[{1, 5}, "->", 
   CliffordBasic`OuterProduct[
    CliffordBasic`e[1], 
    CliffordBasic`e[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112237196*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"a0116b61-5faf-4795-9c4e-43c504696f20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{2, 2}, "->", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112237649*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"cba76a76-9efa-40dd-a9fd-49f4a1fb8751"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"2", ",", "3"}], "]"}]}],
  SequenceForm[{2, 3}, "->", 
   CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112238109*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"4680d97d-2c44-4afa-b703-fd371c2b9f75"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"2", ",", "4"}], "]"}]}],
  SequenceForm[{2, 4}, "->", 
   CliffordBasic`e[2, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112238566*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"75d736a6-7ccb-4424-81df-2a6b13911968"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "5"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"OuterProduct", "[", 
    RowBox[{
     RowBox[{"e", "[", "2", "]"}], ",", 
     RowBox[{"e", "[", "5", "]"}]}], "]"}]}],
  SequenceForm[{2, 5}, "->", 
   CliffordBasic`OuterProduct[
    CliffordBasic`e[2], 
    CliffordBasic`e[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112239029*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"985da97c-8917-4648-85f7-7765e5da3b9a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{3, 3}, "->", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.9360691122394867`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"9c172961-f725-41d7-8a2e-e0d65c4f82e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"e", "[", 
    RowBox[{"3", ",", "4"}], "]"}]}],
  SequenceForm[{3, 4}, "->", 
   CliffordBasic`e[3, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112239954*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"79673c14-1d08-47c6-83b9-a6a34a1be757"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "5"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"OuterProduct", "[", 
    RowBox[{
     RowBox[{"e", "[", "3", "]"}], ",", 
     RowBox[{"e", "[", "5", "]"}]}], "]"}]}],
  SequenceForm[{3, 5}, "->", 
   CliffordBasic`OuterProduct[
    CliffordBasic`e[3], 
    CliffordBasic`e[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.9360691122404203`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"1012c713-4229-4185-abcd-d4e6363b91ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{4, 4}, "->", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112240878*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"8b5b804d-b4a2-437d-9b00-a41b90a40326"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4", ",", "5"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"OuterProduct", "[", 
    RowBox[{
     RowBox[{"e", "[", "4", "]"}], ",", 
     RowBox[{"e", "[", "5", "]"}]}], "]"}]}],
  SequenceForm[{4, 5}, "->", 
   CliffordBasic`OuterProduct[
    CliffordBasic`e[4], 
    CliffordBasic`e[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112241345*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"72c10ed7-4f8d-4a96-824b-34d795f91b15"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], "\[InvisibleSpace]", "\<\"->\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"OuterProduct", "[", 
    RowBox[{
     RowBox[{"e", "[", "5", "]"}], ",", 
     RowBox[{"e", "[", "5", "]"}]}], "]"}]}],
  SequenceForm[{5, 5}, "->", 
   CliffordBasic`OuterProduct[
    CliffordBasic`e[5], 
    CliffordBasic`e[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.910152225470372*^9, 3.9101541878124*^9, 
  3.910337756859047*^9, 3.9104161664361353`*^9, 3.911362235515473*^9, 
  3.911367457040182*^9, 3.91137138568113*^9, 3.9114507385605907`*^9, 
  3.911451872431074*^9, 3.911453185789579*^9, 3.911453433783813*^9, 
  3.911453536262616*^9, 3.911536515247251*^9, 3.911537862685762*^9, 
  3.911538208486341*^9, 3.911625155101452*^9, 3.918200431757609*^9, 
  3.918202126171171*^9, 3.918797686319199*^9, 3.919918786850902*^9, 
  3.924316932489995*^9, 3.924320534787315*^9, 3.935721168315394*^9, 
  3.935809353842774*^9, 3.936069112241866*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"a50ca11b-3c37-42c2-b861-fd7c9b70b536"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boyer-Lindquist Coordinates", "Chapter",
 CellChangeTimes->{{3.9095488224954348`*^9, 3.909548826179711*^9}, {
   3.909808927372326*^9, 3.909808930821182*^9}, {3.909814658212935*^9, 
   3.9098146726254053`*^9}, 3.911536512439853*^9, {3.911537193038425*^9, 
   3.911537198893317*^9}},ExpressionUUID->"18adf5b9-3e82-4bd7-876f-\
909cb52e348c"],

Cell[CellGroupData[{

Cell["Coordinates, vierbein and metric", "Section",
 CellChangeTimes->{{3.9113666161320143`*^9, 
  3.911366623917943*^9}},ExpressionUUID->"7438912c-1ae8-4480-bc43-\
95ddf1f5f9b2"],

Cell[TextData[{
 "We define the Boyer-Lindquist ",
 StyleBox["coordinates",
  FontWeight->"Bold"],
 " and select our ",
 StyleBox["vierbein",
  FontWeight->"Bold"],
 ".\nThese two elements should be the only modifiable elements of the \
notebook."
}], "Text",
 CellChangeTimes->{{3.93581989366277*^9, 3.935819909134623*^9}, {
  3.935819986081792*^9, 
  3.935820036843007*^9}},ExpressionUUID->"e947da39-bdcb-4400-9f6f-\
7a40f03c4192"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["SetAttributes"]], "paclet:ref/SetAttributes"},
    "RefLink",
    BaseStyle->{"DefinitionBox", CellFrame -> 0}], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "M", ",", "Q"}], "}"}], ",", 
    TemplateBox[{
      Cell[
       TextData["Constant"]], "paclet:ref/Constant"},
     "RefLink",
     BaseStyle->{"DefinitionBox", CellFrame -> 0}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{
  3.911537423923701*^9, {3.911537663579768*^9, 3.911537666241452*^9}, {
   3.9115382259956017`*^9, 3.911538226432914*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"889e780b-b8f9-4e2a-89ae-e6d570366cd4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coords", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.907917153861174*^9, 3.907917165342017*^9}, {
   3.909548620800784*^9, 3.909548620925702*^9}, {3.909552214874805*^9, 
   3.9095522161365643`*^9}, 3.91145338670912*^9, 3.911453503109223*^9, 
   3.911536507697263*^9, {3.911537250051654*^9, 3.911537254021377*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"00aa77fa-1c39-4c54-92ce-f36a48baa373"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "r_", "]"}], ":=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     SuperscriptBox["a", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Rho]", "[", 
    RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], 
      SuperscriptBox[
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]", "[", "r_", "]"}], ":=", " ", 
  RowBox[{"1", "-", " ", 
   FractionBox[
    RowBox[{"2", "M", " ", "r"}], 
    SuperscriptBox[
     RowBox[{"R", "[", "r", "]"}], "2"]], "+", 
   FractionBox[
    SuperscriptBox["Q", "2"], 
    SuperscriptBox[
     RowBox[{"R", "[", "r", "]"}], "2"]]}]}]}], "Input",
 CellChangeTimes->{{3.9115366271724253`*^9, 3.911536644129797*^9}, {
  3.911537264384291*^9, 3.9115373933728943`*^9}, {3.911538233723744*^9, 
  3.911538248217061*^9}, {3.911538346540992*^9, 3.911538357545491*^9}, {
  3.911539809318179*^9, 3.911539855217557*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"3a4b13f5-dbda-4998-831d-61fce0018c44"],

Cell[TextData[{
 "The vierbein is defined as ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox[
          StyleBox["g", "TI"], "\[Mu]"], "\[LongEqual]", 
         SubsuperscriptBox[
          StyleBox["e", "TI"], "\[CenterDot]\[Mu]", 
          StyleBox["m", "TI"]], 
         SubscriptBox["\[Gamma]", 
          StyleBox["m", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
     "$g_\\mu = e^m_{\\cdot \\mu}\\gamma_m$", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "06b1411c-ce2d-4142-b5e1-27e943ada1ac"]
}], "Text",
 CellChangeTimes->{{3.9082550941997123`*^9, 3.908255098995888*^9}, {
  3.908255155951009*^9, 
  3.908255166576273*^9}},ExpressionUUID->"fffa9754-ad24-47ba-9df4-\
d37eb8c347b2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vierbein", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"R", "[", "r", "]"}], " ", 
         SqrtBox[
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}]]}], 
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]], ",", "0", ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "a"}], 
        FractionBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
          RowBox[{"R", "[", "r", "]"}], " ", 
          SqrtBox[
           RowBox[{"\[CapitalDelta]", "[", "r", "]"}]]}], 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], 
        RowBox[{
         RowBox[{"R", "[", "r", "]"}], " ", 
         SqrtBox[
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}]]}]], ",", "0", ",", 
       "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "a"}], 
        FractionBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]]}], ",", "0", ",", "0", ",", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"R", "[", "r", "]"}], "2"], 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vierbein", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.907916186594914*^9, 3.907916354817284*^9}, {
  3.909548836422708*^9, 3.909548863679564*^9}, {3.909550614381167*^9, 
  3.909550614850664*^9}, {3.909552372222092*^9, 3.9095523978859253`*^9}, {
  3.9098149124852448`*^9, 3.909814948513964*^9}, {3.909815003528072*^9, 
  3.909815003770565*^9}, {3.909815494087447*^9, 3.909815496837964*^9}, {
  3.9114535114714603`*^9, 3.911453512860927*^9}, {3.911536676976033*^9, 
  3.911536679250906*^9}, {3.911537466833386*^9, 3.911537755067944*^9}, {
  3.911624290702215*^9, 3.91162432321504*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b79cdfd6-b2bb-4a7d-9cfa-21379f12524a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          FractionBox[
           SuperscriptBox["Q", "2"], 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]], "-", 
          FractionBox[
           RowBox[{"2", " ", "M", " ", "r"}], 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]]}]]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"]}]], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           FractionBox[
            SuperscriptBox["Q", "2"], 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}]], "-", 
           FractionBox[
            RowBox[{"2", " ", "M", " ", "r"}], 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}]]}]], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]]}]},
     {"0", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          FractionBox[
           SuperscriptBox["Q", "2"], 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]], "-", 
          FractionBox[
           RowBox[{"2", " ", "M", " ", "r"}], 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]]}]]}]], "0", "0"},
     {"0", "0", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]], "0"},
     {
      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" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.910337776298457*^9, 3.911451872500239*^9, 3.911451921172567*^9, {
   3.911453185819215*^9, 3.911453207500402*^9}, {3.911453262594255*^9, 
   3.911453269095835*^9}, 3.911453433813878*^9, 3.911453536292495*^9, {
   3.911536680085808*^9, 3.9115366948935747`*^9}, {3.911537737726056*^9, 
   3.91153775800202*^9}, 3.91153783149724*^9, 3.911538257920018*^9, 
   3.911538361669977*^9, {3.911539836738262*^9, 3.911539860147821*^9}, 
   3.91162432554214*^9, 3.911625162080912*^9, 3.911634486369347*^9, 
   3.918200431801762*^9, 3.918202126206747*^9, 3.924316941318144*^9, 
   3.924320537119686*^9, 3.93572116835721*^9, 3.935811685325721*^9, 
   3.936069112325179*^9},
 CellLabel->
  "Out[11]//MatrixForm=",ExpressionUUID->"58c1feb9-434e-4173-bee8-\
0e072c201109"]
}, Open  ]],

Cell[TextData[{
 "The inverse vierbein is defined from the conditions ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          RowBox[{".", "\[Nu]"}], 
          StyleBox["m", "TI"]], 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], 
          RowBox[{".", "\[Mu]"}]], "\[LongEqual]", 
         SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Mu]"]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "$ e^m_{.\\nu} e_m^{.\\mu} = \\delta^\\mu_\\nu $", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "24cc39d1-e530-49f9-aab3-e20c7e3162e8"],
 " and ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          RowBox[{".", "\[Mu]"}], 
          StyleBox["m", "TI"]], 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["n", "TI"], 
          RowBox[{".", "\[Mu]"}]], "\[LongEqual]", 
         SubsuperscriptBox["\[Delta]", 
          StyleBox["n", "TI"], 
          StyleBox["m", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
     "$ e^m_ {.\\mu} e_n^{.\\mu} = \\delta^m_n $", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "57c43c7a-707f-450a-b8a8-d489dcd6e53f"],
 ". Such that ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox["\[Gamma]", 
          StyleBox["m", "TI"]], "\[LongEqual]", 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], "\[CenterDot]\[Mu]"], 
         SubscriptBox[
          StyleBox["g", "TI"], "\[Mu]"]}], TraditionalForm], "errors" -> {}, 
     "input" -> "$\\gamma_m = e_m^{\\cdot \\mu}g_\\mu$", "state" -> "Boxes"|>,
    
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "c5cc6bdd-9ea7-474a-ab54-315bb15284bd"]
}], "Text",
 CellChangeTimes->{{3.908255290734111*^9, 3.908255296675975*^9}, {
  3.908255355314457*^9, 
  3.9082554722284107`*^9}},ExpressionUUID->"3aa168ac-0130-49dd-accf-\
d0af2c76b271"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"vierbeinInv", " ", "=", " ", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"Inverse", "[", "vierbein", "]"}], "]"}], "//", "Simplify"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vierbeinInv", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.907916301015448*^9, 3.907916315896318*^9}, {
   3.907916356863757*^9, 3.907916357099779*^9}, {3.9079164150708103`*^9, 
   3.907916416738924*^9}, {3.909550617525868*^9, 3.909550622273594*^9}, {
   3.909550665567015*^9, 3.9095506970284157`*^9}, 3.9104167381895638`*^9, 
   3.911453089618563*^9, 3.91153668398846*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"112306e7-a78f-4fe8-a480-03bc1ed38411"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}], 
       RowBox[{
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"]}]]], " ", 
        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"], " ", "a"}], 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"]}]]], " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]"}], "]"}]}]}]]}]]},
     {"0", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"]}]]]}], 
       SqrtBox[
        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",
 CellChangeTimes->{{3.90955067294372*^9, 3.909550697744983*^9}, 
   3.909552407438476*^9, 3.909552470199698*^9, 3.909552732453341*^9, 
   3.9095552736045237`*^9, 3.909639606931308*^9, 3.909646185206153*^9, 
   3.9097178598147*^9, 3.909804057874296*^9, {3.9098055180751247`*^9, 
   3.909805533353256*^9}, 3.909805692354767*^9, 3.909811482468053*^9, 
   3.909811625551634*^9, 3.910152225573147*^9, 3.910154187901599*^9, 
   3.910337779193991*^9, 3.911451872515324*^9, 3.911451921175658*^9, {
   3.911453185834236*^9, 3.911453207503499*^9}, {3.91145326260627*^9, 
   3.911453269099289*^9}, 3.911453433828506*^9, 3.911453536308888*^9, 
   3.911536695562256*^9, 3.911537772473298*^9, 3.911537835090934*^9, 
   3.911538262121458*^9, 3.911538361787396*^9, {3.911539836941945*^9, 
   3.911539860240193*^9}, 3.911625162212521*^9, 3.911634486515417*^9, 
   3.918200431942606*^9, 3.918202126274322*^9, 3.924316941481532*^9, 
   3.924320537262538*^9, 3.9357211684973807`*^9, 3.9358116854578753`*^9, 
   3.9360691124813347`*^9},
 CellLabel->
  "Out[13]//MatrixForm=",ExpressionUUID->"ac947e66-6520-4808-bdbe-\
2981db489362"]
}, Open  ]],

Cell[TextData[{
 "The inverse vierbein is defined from the conditions ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["e", "TI"], 
         SubsuperscriptBox["\[Null]", "\[Nu]", 
          StyleBox["m", "TI"]], 
         StyleBox["e", "TI"], 
         SubsuperscriptBox["\[Null]", 
          StyleBox["m", "TI"], "\[Mu]"], "\[LongEqual]", 
         SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Mu]"]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "$ \\T{e}{^m_\\nu} \\T{e}{_m^\\mu} = \\delta^\\mu_\\nu $", "state" -> 
     "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "d462adeb-6caf-4393-8865-7fde0695b34e"],
 " and ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["e", "TI"], 
         SubsuperscriptBox["\[Null]", "\[Mu]", 
          StyleBox["m", "TI"]], 
         StyleBox["e", "TI"], 
         SubsuperscriptBox["\[Null]", 
          StyleBox["n", "TI"], "\[Mu]"], "\[LongEqual]", 
         SubsuperscriptBox["\[Delta]", 
          StyleBox["n", "TI"], 
          StyleBox["m", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
     "$ \\T{e}{^m_ \\mu} \\T{e}{_n^\\mu} = \\delta^m_n $", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "77a007cf-7c8c-428a-87c6-27dc0c31c9d9"],
 ". Such that ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox["\[Gamma]", 
          StyleBox["m", "TI"]], "\[LongEqual]", 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], "\[CenterDot]\[Mu]"], 
         SubscriptBox[
          StyleBox["g", "TI"], "\[Mu]"]}], TraditionalForm], "errors" -> {}, 
     "input" -> "$\\gamma_m = e_m^{\\cdot \\mu}g_\\mu$", "state" -> "Boxes"|>,
    
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "60ea6f87-1cb6-4acc-833b-7a95473f6fd8"]
}], "Text",
 CellChangeTimes->{{3.908255290734111*^9, 3.908255296675975*^9}, {
  3.908255355314457*^9, 
  3.9082554722284107`*^9}},ExpressionUUID->"05f1d855-d8a6-43aa-bccf-\
4a0726b84e34"],

Cell["We define the tetrad metric to be Minkowskian", "Text",
 CellChangeTimes->{{3.936068237773518*^9, 
  3.9360682511313562`*^9}},ExpressionUUID->"0d5fea13-5359-4f11-ba70-\
3722528fce58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Minkowski", "=", " ", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.908265473723888*^9, 3.9082655123590593`*^9}, {
  3.908601197112088*^9, 3.908601197369265*^9}, {3.911625136235196*^9, 
  3.911625143730625*^9}, {3.935819955835045*^9, 3.935819956203693*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"a298c392-17ee-48d6-9261-97771ca7dac8"],

Cell["\<\
From the vierbein and the tetrad metric we can recover the metric tensor (Not \
the other way around!)\
\>", "Text",
 CellChangeTimes->{{3.936068254534984*^9, 
  3.936068281966181*^9}},ExpressionUUID->"68e03deb-2918-4600-b167-\
63702fab5921"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"metric", " ", "=", " ", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Sum", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"vierbein", "[", 
         RowBox[{"[", 
          RowBox[{"m", ",", "mu"}], "]"}], "]"}], "*", 
        RowBox[{"vierbein", "[", 
         RowBox[{"[", 
          RowBox[{"n", ",", "nu"}], "]"}], "]"}], "*", 
        RowBox[{"Minkowski", "[", 
         RowBox[{"[", 
          RowBox[{"m", ",", "n"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"m", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric", "//", "Simplify"}], "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.923030217403058*^9, 3.923030770416388*^9}, {
   3.923030841107572*^9, 3.923030841203276*^9}, {3.9230311656731*^9, 
   3.923031167522932*^9}, {3.923031467240644*^9, 3.923031469022644*^9}, {
   3.923031610101163*^9, 3.923031763753529*^9}, {3.923032990141788*^9, 
   3.923032991915648*^9}, 3.924316988227949*^9, {3.936067992858198*^9, 
   3.936068000837886*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"480adeff-e167-414e-b778-f15332493ef4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["Q", "2"], "-", 
        RowBox[{"2", " ", "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[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}]},
     {"0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}], "+", 
         SuperscriptBox["r", "2"]}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]]}], "0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}], ")"}], "2"]}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}], "+", 
           SuperscriptBox["r", "2"]}], ")"}], " ", 
         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",
 CellChangeTimes->{3.924316989502488*^9, 3.924320537368683*^9, 
  3.935721168610737*^9, 3.935811685559408*^9, 3.9360691125662394`*^9},
 CellLabel->
  "Out[16]//MatrixForm=",ExpressionUUID->"a6ed264a-5b3e-4a15-8035-\
932e8f4b23ac"]
}, Open  ]],

Cell["Calculate the inverse metric", "Text",
 CellChangeTimes->{{3.936068293987689*^9, 
  3.936068297519458*^9}},ExpressionUUID->"57430f66-8841-46cf-973b-\
8157e1873327"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metricInv", " ", "=", " ", 
   RowBox[{"Inverse", "[", "metric", "]"}]}], ";"}]], "Input",
 CellLabel->"In[17]:=",ExpressionUUID->"d7259ab9-2e54-412b-936a-0f3f008b5636"],

Cell["Observe the metric and its inverse for the equatorial plane", "Text",
 CellChangeTimes->{{3.9360683043501596`*^9, 
  3.9360683175183487`*^9}},ExpressionUUID->"371695c6-333a-4304-81d7-\
beff22173234"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"metric", "/.", 
    RowBox[{"\[Theta]", "->", 
     RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "Simplify"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{3.924320560517601*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"ae7f316e-27b1-48b9-af44-fa1c5c819a59"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["Q", "2"], "-", 
        RowBox[{"2", " ", "M", " ", "r"}], "+", 
        SuperscriptBox["r", "2"]}], 
       SuperscriptBox["r", "2"]], "0", "0", 
      FractionBox[
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["Q", "2"]}], "+", 
          RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}], 
       SuperscriptBox["r", "2"]]},
     {"0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["r", "2"], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["Q", "2"], "+", 
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}]}]]}], "0", 
      "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {
      FractionBox[
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["Q", "2"]}], "+", 
          RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}], 
       SuperscriptBox["r", "2"]], "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "M"}], "+", "r"}], ")"}]}]}], ")"}]}], 
        SuperscriptBox["r", "2"]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.924320561718652*^9, 3.93572116865047*^9, 
  3.935811685594348*^9, 3.936069112602167*^9},
 CellLabel->
  "Out[18]//MatrixForm=",ExpressionUUID->"e65183b6-6c3d-479b-81f9-\
e5afee38a562"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"metricInv", "/.", 
    RowBox[{"\[Theta]", "->", 
     RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "Simplify"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.924323018460457*^9, 3.924323021173779*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"5c48ab59-91c8-46cc-a41d-99cf962fb3d0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["Q", "2"]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "M"}], "+", "r"}], ")"}]}]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["Q", "2"], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}]}], ")"}]}]],
       "0", "0", 
      FractionBox[
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["Q", "2"]}], "+", 
          RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["Q", "2"], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}]}], ")"}]}]]},
     {"0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}], "+", 
         SuperscriptBox["r", "2"]}], 
        SuperscriptBox["r", "2"]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["r", "2"]]}], "0"},
     {
      FractionBox[
       RowBox[{"a", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["Q", "2"]}], "+", 
          RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["Q", "2"], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}]}], ")"}]}]],
       "0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", "r"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["Q", "2"], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}]}], 
         ")"}]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.924323021722959*^9, 3.935721168664431*^9, 
  3.9358116856049833`*^9, 3.936069112613246*^9},
 CellLabel->
  "Out[19]//MatrixForm=",ExpressionUUID->"337cd1ff-2c6f-4a92-9dc9-\
886fe1c3b66e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Connection coefficients", "Section",
 CellChangeTimes->{{3.907918960938006*^9, 
  3.907918964086634*^9}},ExpressionUUID->"2a7eeb07-0aae-4e6c-bd32-\
4b041fd169e7"],

Cell["\<\
We calculate the connection bivectors with the two expressions found in \
literature to compare the calculation time and their result.\
\>", "Text",
 CellChangeTimes->{{3.909646249878212*^9, 3.909646280666605*^9}, {
  3.935820050808177*^9, 3.935820051629203*^9}, {3.935820088251511*^9, 
  3.935820120697694*^9}, {3.9360683316637506`*^9, 
  3.93606834152944*^9}},ExpressionUUID->"63b83a11-1b7d-406f-83f4-\
f222e889ab0b"],

Cell[TextData[{
 "Notice the ",
 StyleBox["covariant expression for the basis vectors",
  FontWeight->"Bold"],
 ". The module ",
 StyleBox["Clifford ",
  FontSlant->"Italic"],
 "does not allow for contravariant basis vectors."
}], "Text",
 CellChangeTimes->{{3.90791870369296*^9, 3.907918745825663*^9}, {
  3.9358200694193172`*^9, 3.935820075660243*^9}, {3.9360659369965687`*^9, 
  3.936065938361598*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"ce299571-c36a-4c1e-a69e-861fd58fb3da"],

Cell[CellGroupData[{

Cell["Expression 1 - Snygg:", "Subsubsection",
 CellChangeTimes->{{3.907918968819849*^9, 3.907918971502138*^9}, {
  3.907919570694008*^9, 3.907919570908669*^9}, {3.911366945982985*^9, 
  3.911366946817143*^9}, {3.923030078194697*^9, 3.923030084720109*^9}, {
  3.935820124148416*^9, 3.935820127974958*^9}, {3.936065955923951*^9, 
  3.936065975818638*^9}, {3.93606903386515*^9, 
  3.936069034537745*^9}},ExpressionUUID->"1a36299f-8ebd-46ae-b977-\
577dbdb468e9"],

Cell[TextData[{
 "Calculate the connection bivectors using the expression found in ",
 StyleBox["A New Approach to Differential Geometry using Clifford\
\[CloseCurlyQuote]s Geometric Algebra, byn John Snygg, 2012, p.156.",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.936068325173869*^9, 3.936068358421726*^9}, 
   3.9360684771978188`*^9, {3.936068690920833*^9, 3.936068692177396*^9}, {
   3.936068783390212*^9, 3.936068811124256*^9}, {3.936068958416465*^9, 
   3.936069101614706*^9}},ExpressionUUID->"093bf9a2-4d0c-469a-afdf-\
09fbb8b221f1"],

Cell[TextData[Cell[BoxData[
 FormBox[
  TemplateBox[<|"boxes" -> FormBox[
      RowBox[{
        SubscriptBox["\[Omega]", "\[Mu]"], "\[LongEqual]", "\[Omega]", 
        RowBox[{"(", 
          SubscriptBox[
           StyleBox["g", "TI"], "\[Mu]"], ")"}], "\[LongEqual]", 
        FractionBox["1", "2"], 
        RowBox[{"[", 
          RowBox[{
            SuperscriptBox[
             StyleBox["g", "TI"], "\[Nu]"], "\[Wedge]", 
            StyleBox["D", "TI"], 
            RowBox[{"(", 
              RowBox[{
                SubscriptBox[
                 StyleBox["g", "TI"], "\[Mu]"], "\[CenterDot]", 
                SubscriptBox[
                 StyleBox["g", "TI"], "\[Nu]"]}], ")"}], "+", 
            SuperscriptBox[
             StyleBox["g", "TI"], "\[Sigma]"], "\[Wedge]", 
            SubscriptBox["\[PartialD]", "\[Mu]"], 
            SubscriptBox[
             StyleBox["g", "TI"], "\[Sigma]"]}], "]"}]}], TraditionalForm], 
    "errors" -> {}, "input" -> 
    "\\omega_{\\mu}=\\omega\\left( \
g_{\\mu}\\right)=\\frac{1}{2}\\left[g^{\\nu} \\wedge D\\left(g_{\\mu} \\cdot \
g_{\\nu}\\right)+g^{\\sigma} \\wedge \\partial_\\mu g_\\sigma \\right]", 
    "state" -> "Boxes"|>,
   "TeXAssistantTemplate"], 
  TraditionalForm]],ExpressionUUID->"900ceb9a-e2ee-4600-922c-ff7a8003bf41"]], \
"Text",
 CellChangeTimes->{3.907918571167731*^9, 
  3.908255054421785*^9},ExpressionUUID->"59278906-7acb-47b6-9073-\
121f805fa702"],

Cell["The result is given in the form", "Text",
 CellChangeTimes->{{3.90791860717034*^9, 
  3.907918613913926*^9}},ExpressionUUID->"0fcca95d-7942-4dbc-85d7-\
bc9d6ed0f594"],

Cell[TextData[Cell[BoxData[
 FormBox[
  TemplateBox[<|"boxes" -> FormBox[
      RowBox[{
        SubscriptBox["\[Omega]", "\[Mu]"], "\[LongEqual]", 
        UnderscriptBox["\[Sum]", 
         RowBox[{
           StyleBox["l", "TI"], ",", 
           StyleBox["m", "TI"]}], LimitsPositioning -> True], 
        SubscriptBox["\[Omega]", 
         RowBox[{
           StyleBox["l", "TI"], 
           StyleBox["m", "TI"], "\[Mu]"}]], 
        SubscriptBox["\[Gamma]", 
         StyleBox["l", "TI"]], "\[Wedge]", 
        SubscriptBox["\[Gamma]", 
         StyleBox["m", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
    "\\omega_\\mu = \\sum_{l,m} \\omega_{l m \\mu} \\gamma_l \\wedge \
\\gamma_m", "state" -> "Boxes"|>,
   "TeXAssistantTemplate"], 
  TraditionalForm]],ExpressionUUID->"f88df6b5-f782-4c1d-8174-186cab6f62b5"]], \
"Text",
 CellChangeTimes->{
  3.907918618949807*^9},ExpressionUUID->"7af4433b-9477-4f3b-926c-\
71724db5bef9"],

Cell[TextData[{
 "Notice the ",
 StyleBox["covariant expression for the basis vectors",
  FontWeight->"Bold"],
 ". This is because the module ",
 StyleBox["Clifford ",
  FontSlant->"Italic"],
 "does not include contravariant basis vectors."
}], "Text",
 CellChangeTimes->{{3.90791870369296*^9, 
  3.907918745825663*^9}},ExpressionUUID->"7d985cad-731e-4835-94dd-\
6e5b64a5bf0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]", "[", "mu_", "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], "*", 
     RowBox[{"Sum", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"vierbeinInv", "[", 
         RowBox[{"[", 
          RowBox[{"n", ",", "nu"}], "]"}], "]"}], "*", "\[IndentingNewLine]", 
        
        RowBox[{"vierbeinInv", "[", 
         RowBox[{"[", 
          RowBox[{"l", ",", "lambda"}], "]"}], "]"}], "*", 
        "\[IndentingNewLine]", 
        RowBox[{"InnerProduct", "[", 
         RowBox[{
          RowBox[{"e", "[", "l", "]"}], ",", 
          RowBox[{"e", "[", "l", "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
        RowBox[{"InnerProduct", "[", 
         RowBox[{
          RowBox[{"e", "[", "n", "]"}], ",", 
          RowBox[{"e", "[", "n", "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
        RowBox[{"OuterProduct", "[", 
         RowBox[{
          RowBox[{"e", "[", "n", "]"}], ",", 
          RowBox[{"e", "[", "l", "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"metric", "[", 
           RowBox[{"[", 
            RowBox[{"mu", ",", "nu"}], "]"}], "]"}], ",", 
          RowBox[{"coords", "[", 
           RowBox[{"[", "lambda", "]"}], "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"l", ",", "1", ",", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"lambda", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", "+", 
    "\[IndentingNewLine]", 
    RowBox[{
     FractionBox["1", "2"], "*", 
     RowBox[{"Sum", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"InnerProduct", "[", 
         RowBox[{
          RowBox[{"e", "[", "s", "]"}], ",", 
          RowBox[{"e", "[", "s", "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
        RowBox[{"vierbeinInv", "[", 
         RowBox[{"[", 
          RowBox[{"s", ",", "sigma"}], "]"}], "]"}], "*", 
        "\[IndentingNewLine]", 
        RowBox[{"OuterProduct", "[", 
         RowBox[{
          RowBox[{"e", "[", "s", "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"vierbein", "[", 
              RowBox[{"[", 
               RowBox[{"lambda", ",", "sigma"}], "]"}], "]"}], ",", 
             RowBox[{"coords", "[", 
              RowBox[{"[", "mu", "]"}], "]"}]}], "]"}], 
           RowBox[{"e", "[", "lambda", "]"}]}]}], "\[IndentingNewLine]", 
         "]"}]}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"s", ",", "1", ",", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"sigma", ",", "1", ",", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"lambda", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.907916587545137*^9, 3.907916590641689*^9}, {
   3.9079167326545486`*^9, 3.9079167474936056`*^9}, 3.9079169175300417`*^9, {
   3.907916999676002*^9, 3.90791721983609*^9}, {3.907917251830879*^9, 
   3.90791728917531*^9}, {3.907917612427099*^9, 3.907917614428174*^9}, {
   3.907917671976471*^9, 3.907917676019729*^9}, {3.907917852752596*^9, 
   3.907917856641169*^9}, {3.907918192297025*^9, 3.907918194940096*^9}, {
   3.907918261336916*^9, 3.907918311024551*^9}, {3.907918502065145*^9, 
   3.907918526252634*^9}, {3.907919160200523*^9, 3.907919166561559*^9}, {
   3.907919228110407*^9, 3.907919427331336*^9}, {3.907919476520093*^9, 
   3.907919550292824*^9}, 3.9095493967085133`*^9, 3.9113626803465233`*^9, {
   3.911366950778148*^9, 3.911366953656279*^9}, {3.911702051832765*^9, 
   3.911702052373796*^9}, {3.911702472596143*^9, 3.9117025238063374`*^9}, 
   3.923033404232493*^9, 3.923034630583934*^9, 3.92303487414286*^9, 
   3.9230355950648317`*^9, 3.924317008889391*^9, {3.935820140253925*^9, 
   3.9358201654993687`*^9}, {3.936067927370948*^9, 3.936067982883912*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"c669d205-d1c0-488f-8347-a6659edba804"],

Cell[TextData[{
 "Evaluating the connection coefficients for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "5951bb45-28c5-4df1-8431-a4ecfd5f84ca"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"924f3999-89fe-4d76-b049-94639b7ec745"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AbsoluteTiming", "[", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", "\"\< -> \>\"", ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Omega]", "[", "i", "]"}], "/.", 
        RowBox[{"\[Theta]", "->", 
         RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.907917862263558*^9, 3.907917939382279*^9}, {
   3.907918053914275*^9, 3.907918054717291*^9}, {3.908253608401143*^9, 
   3.908253610796425*^9}, {3.9082564528547297`*^9, 3.90825645557028*^9}, {
   3.909644190267976*^9, 3.909644190701668*^9}, 3.910417162476346*^9, 
   3.9113623270443974`*^9, 3.9113623689237137`*^9, 3.911366589598331*^9, {
   3.911366956621567*^9, 3.911366967726979*^9}, {3.911702056553274*^9, 
   3.911702057351944*^9}, {3.911702389933743*^9, 3.911702390583748*^9}, {
   3.911703368432514*^9, 3.911703368677963*^9}, {3.9117034343210373`*^9, 
   3.91170343488972*^9}, {3.911703478712939*^9, 3.911703479188843*^9}, {
   3.923029958648061*^9, 3.923029958710156*^9}, 3.923030094076174*^9, {
   3.92303081294385*^9, 3.923030813566566*^9}, 3.935820166313743*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"0f691f31-9336-46ac-ad48-171305e61658"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["Q", "2"], "-", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], 
    SuperscriptBox["r", "3"]]}],
  SequenceForm[
  1, " -> ", $CellContext`r^(-3) ($CellContext`Q^2 - $CellContext`M \
$CellContext`r) CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9117022402216673`*^9, {3.9117023684720087`*^9, 3.911702394429244*^9}, 
   3.911702496586632*^9, 3.911703369578131*^9, {3.911703420139866*^9, 
   3.911703435414683*^9}, 3.911703480046783*^9, 3.911703540477415*^9, 
   3.911703662512712*^9, {3.91170415306421*^9, 3.911704173946991*^9}, {
   3.911704657964397*^9, 3.9117046756946287`*^9}, 3.911704712533064*^9, 
   3.911704756125511*^9, {3.92302994707568*^9, 3.92302997312925*^9}, 
   3.923030004383946*^9, 3.923030112529874*^9, {3.92303080355825*^9, 
   3.923030816528843*^9}, 3.92303084954547*^9, 3.923031173590847*^9, 
   3.9230314753490057`*^9, 3.923031776637537*^9, 3.9230328919547653`*^9, 
   3.923033407099457*^9, 3.924317017170001*^9, 3.924320537508372*^9, 
   3.935721168783782*^9, 3.935811698832337*^9, 3.9360691127299347`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"cf9f938a-8330-481e-a43c-dd460ff827e7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"a", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    RowBox[{"r", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]]}]]}],
  SequenceForm[
  2, " -> ", $CellContext`a $CellContext`r^(-1) ($CellContext`a^2 + \
$CellContext`r^2)^
    Rational[-1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9117022402216673`*^9, {3.9117023684720087`*^9, 3.911702394429244*^9}, 
   3.911702496586632*^9, 3.911703369578131*^9, {3.911703420139866*^9, 
   3.911703435414683*^9}, 3.911703480046783*^9, 3.911703540477415*^9, 
   3.911703662512712*^9, {3.91170415306421*^9, 3.911704173946991*^9}, {
   3.911704657964397*^9, 3.9117046756946287`*^9}, 3.911704712533064*^9, 
   3.911704756125511*^9, {3.92302994707568*^9, 3.92302997312925*^9}, 
   3.923030004383946*^9, 3.923030112529874*^9, {3.92303080355825*^9, 
   3.923030816528843*^9}, 3.92303084954547*^9, 3.923031173590847*^9, 
   3.9230314753490057`*^9, 3.923031776637537*^9, 3.9230328919547653`*^9, 
   3.923033407099457*^9, 3.924317017170001*^9, 3.924320537508372*^9, 
   3.935721168783782*^9, 3.935811698832337*^9, 3.9360691129773397`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"8f88aad9-9bda-4d83-a00d-7ed23228d107"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], "r"]}],
  SequenceForm[
  3, " -> ", $CellContext`r^(-1) ($CellContext`a^2 + $CellContext`r^2)^
    Rational[1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9117022402216673`*^9, {3.9117023684720087`*^9, 3.911702394429244*^9}, 
   3.911702496586632*^9, 3.911703369578131*^9, {3.911703420139866*^9, 
   3.911703435414683*^9}, 3.911703480046783*^9, 3.911703540477415*^9, 
   3.911703662512712*^9, {3.91170415306421*^9, 3.911704173946991*^9}, {
   3.911704657964397*^9, 3.9117046756946287`*^9}, 3.911704712533064*^9, 
   3.911704756125511*^9, {3.92302994707568*^9, 3.92302997312925*^9}, 
   3.923030004383946*^9, 3.923030112529874*^9, {3.92303080355825*^9, 
   3.923030816528843*^9}, 3.92303084954547*^9, 3.923031173590847*^9, 
   3.9230314753490057`*^9, 3.923031776637537*^9, 3.9230328919547653`*^9, 
   3.923033407099457*^9, 3.924317017170001*^9, 3.924320537508372*^9, 
   3.935721168783782*^9, 3.935811698832337*^9, 3.936069113107978*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"b1f13844-ca59-46d4-b675-e8d75eff9c6d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"M", "+", "r"}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "3"]]}],
  SequenceForm[
  4, " -> ", $CellContext`r^(-3) ($CellContext`a (-$CellContext`Q^2 + \
$CellContext`r ($CellContext`M + $CellContext`r)) 
     CliffordBasic`e[
      1, 2] + $CellContext`r^2 ($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[2, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9117022402216673`*^9, {3.9117023684720087`*^9, 3.911702394429244*^9}, 
   3.911702496586632*^9, 3.911703369578131*^9, {3.911703420139866*^9, 
   3.911703435414683*^9}, 3.911703480046783*^9, 3.911703540477415*^9, 
   3.911703662512712*^9, {3.91170415306421*^9, 3.911704173946991*^9}, {
   3.911704657964397*^9, 3.9117046756946287`*^9}, 3.911704712533064*^9, 
   3.911704756125511*^9, {3.92302994707568*^9, 3.92302997312925*^9}, 
   3.923030004383946*^9, 3.923030112529874*^9, {3.92303080355825*^9, 
   3.923030816528843*^9}, 3.92303084954547*^9, 3.923031173590847*^9, 
   3.9230314753490057`*^9, 3.923031776637537*^9, 3.9230328919547653`*^9, 
   3.923033407099457*^9, 3.924317017170001*^9, 3.924320537508372*^9, 
   3.935721168783782*^9, 3.935811698832337*^9, 3.936069113280423*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0ca3ea88-141f-4157-bb3a-cf36deeaac7f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.661536`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.911702240390139*^9, {3.911702368635179*^9, 3.911702394587616*^9}, 
   3.911702496757215*^9, 3.911703371439418*^9, {3.911703420835928*^9, 
   3.911703439240103*^9}, 3.911703480131547*^9, 3.911703540558331*^9, 
   3.911703662598703*^9, {3.911704153148467*^9, 3.911704174031069*^9}, {
   3.911704658060315*^9, 3.911704675779422*^9}, 3.911704712617519*^9, 
   3.9117047562108793`*^9, {3.923029947079204*^9, 3.923029973436625*^9}, 
   3.923030004660952*^9, 3.923030112916833*^9, {3.923030803989438*^9, 
   3.923030817228236*^9}, 3.923030849927781*^9, 3.923031173982256*^9, 
   3.923031475731468*^9, 3.923031777012858*^9, 3.923032892545807*^9, 
   3.923033407707699*^9, 3.924317017747643*^9, 3.924320538112238*^9, 
   3.935721169361438*^9, 3.93581169938397*^9, 3.9360691132812653`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"a3f5b54f-687a-4847-b3d3-2e56cb1edb48"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Expression 2 - Hestenes: ", "Subsubsection",
 CellChangeTimes->{{3.907918968819849*^9, 3.907918971502138*^9}, {
   3.907919570694008*^9, 3.907919570908669*^9}, {3.908253931775571*^9, 
   3.908253935463658*^9}, {3.90825429144674*^9, 3.908254302083493*^9}, 
   3.911541392571766*^9, {3.935820131761351*^9, 3.935820132113402*^9}, {
   3.936069028421843*^9, 
   3.9360690292437468`*^9}},ExpressionUUID->"fd8b9c44-b406-4b92-a908-\
cbd3a724063e"],

Cell[TextData[{
 "Calculate the connection bivectors using the expression found in ",
 StyleBox["Clifford Algebra to Geometric Calculus, David Hestenes and Garret \
Sobczyk, 1984, p.235.",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.936068325173869*^9, 3.936068358421726*^9}, 
   3.9360684771978188`*^9, {3.936068690920833*^9, 3.936068692177396*^9}, {
   3.936068783390212*^9, 3.936068811124256*^9}, {3.936068958416465*^9, 
   3.936069020066476*^9}},ExpressionUUID->"828b22ea-5046-4a1b-a9f7-\
db72c9da0467"],

Cell[TextData[Cell[BoxData[
 FormBox[
  TemplateBox[<|"boxes" -> FormBox[
      RowBox[{
        SubscriptBox["\[Omega]", "\[Mu]"], "\[LongEqual]", "\[Omega]", 
        RowBox[{"(", 
          SubscriptBox[
           StyleBox["g", "TI"], "\[Mu]"], ")"}], "\[LongEqual]", 
        FractionBox["1", "2"], 
        RowBox[{"[", 
          RowBox[{
            RowBox[{"(", 
              RowBox[{
                SubscriptBox["\[Gamma]", "\[Alpha]"], "\[Wedge]", 
                StyleBox["D", "TI"], "\[Wedge]", 
                SubscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}], "\[CenterDot]", 
            SubscriptBox[
             StyleBox["g", "TI"], "\[Mu]"]}], "]"}], "-", 
        SubsuperscriptBox[
         StyleBox["h", "TI"], "\[Mu]", "\[Nu]"], 
        StyleBox["D", "TI"], "\[Wedge]", 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], TraditionalForm], "errors" -> {},
     "input" -> 
    "\\omega_{\\mu}=\\omega ( g_{\\mu})=\\frac{1}{2}\\left[ (\\gamma_\\alpha \
\\wedge D \\wedge \\gamma_\\alpha) \\cdot g_\\mu\\right] - h^\\nu_\\mu D \
\\wedge \\gamma_\\nu", "state" -> "Boxes"|>,
   "TeXAssistantTemplate"], 
  TraditionalForm]],ExpressionUUID->"7408fd8d-c92a-4ac6-a820-7f7260d0d0fa"]], \
"Text",
 CellChangeTimes->{3.907918571167731*^9, 
  3.908254451869863*^9},ExpressionUUID->"3c5a0c95-0250-432d-b8cc-\
ba029e11adcc"],

Cell[TextData[{
 "The result is given in the form ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox["\[Omega]", "\[Mu]"], "\[LongEqual]", 
         UnderscriptBox["\[Sum]", 
          RowBox[{
            StyleBox["l", "TI"], ",", 
            StyleBox["m", "TI"]}], LimitsPositioning -> True], 
         SubscriptBox["\[Omega]", 
          RowBox[{
            StyleBox["l", "TI"], 
            StyleBox["m", "TI"], "\[Mu]"}]], 
         SubscriptBox["\[Gamma]", 
          StyleBox["l", "TI"]], "\[Wedge]", 
         SubscriptBox["\[Gamma]", 
          StyleBox["m", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
     "\\omega_\\mu = \\sum_{l,m} \\omega_{l m \\mu} \\gamma_l \\wedge \
\\gamma_m", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "931f385e-1830-4e03-9c42-2951549c886b"]
}], "Text",
 CellChangeTimes->{{3.90791860717034*^9, 3.907918613913926*^9}, {
  3.936067899171084*^9, 
  3.936067899432646*^9}},ExpressionUUID->"c5942b9a-4d53-47a9-9251-\
90986b343380"],

Cell[TextData[{
 "We start by creating the function ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["D", "TI"], "\[Wedge]", 
         SubscriptBox["\[Gamma]", 
          StyleBox["l", "TI"]], "\[LongEqual]", 
         UnderoverscriptBox["\[Sum]", 
          RowBox[{
            StyleBox["m", "TI"], ",", "\[Mu]", ",", "\[Nu]", ",", 
            StyleBox["n", "TI"], "\[LongEqual]", "1"}], "4", 
          LimitsPositioning -> True], 
         SubscriptBox["\[Eta]", 
          RowBox[{
            StyleBox["l", "TI"], 
            StyleBox["l", "TI"]}]], 
         SuperscriptBox["\[Eta]", 
          RowBox[{
            StyleBox["m", "TI"], 
            StyleBox["m", "TI"]}]], 
         SuperscriptBox["\[Eta]", 
          RowBox[{
            StyleBox["n", "TI"], 
            StyleBox["n", "TI"]}]], 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["m", "TI"], 
          RowBox[{".", "\[Mu]"}]], 
         SubsuperscriptBox[
          StyleBox["e", "TI"], 
          StyleBox["n", "TI"], 
          RowBox[{".", "\[Nu]"}]], 
         RowBox[{"(", 
           RowBox[{
             SubscriptBox["\[PartialD]", "\[Mu]"], 
             SubsuperscriptBox[
              StyleBox["e", "TI"], 
              RowBox[{".", "\[Nu]"}], 
              StyleBox["l", "TI"]]}], ")"}], 
         SubscriptBox["\[Gamma]", 
          StyleBox["m", "TI"]], "\[Wedge]", 
         SubscriptBox["\[Gamma]", 
          StyleBox["n", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> 
     "D \\wedge \\gamma_l = \
\\sum_{m,\\mu,\\nu,n=1}^4\\eta_{ll}\\eta^{mm}\\eta^{nn}e_m^{.\\mu}e_n^{.\\nu}(\
\\partial_\\mu e^l_{.\\nu})\\gamma_m\\wedge \\gamma_n", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "268e861e-92b0-4bd7-a036-f6a2a33526b3"],
 "\nWhere we used the fact that the Minkowski metric is diagonal."
}], "Text",
 CellChangeTimes->{
  3.907918571167731*^9, 3.908254451869863*^9, {3.936066205002205*^9, 
   3.936066238205062*^9}, {3.936067651911031*^9, 3.9360676519110813`*^9}, {
   3.9360678679174013`*^9, 
   3.9360678797124233`*^9}},ExpressionUUID->"5db0f984-1071-460b-987e-\
6d6f84f15b4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dgamma", "[", "l_", "]"}], ":=", 
   RowBox[{"Sum", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"InnerProduct", "[", 
       RowBox[{
        RowBox[{"e", "[", "l", "]"}], ",", 
        RowBox[{"e", "[", "l", "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
      RowBox[{"InnerProduct", "[", 
       RowBox[{
        RowBox[{"e", "[", "m", "]"}], ",", 
        RowBox[{"e", "[", "m", "]"}]}], "]"}], "*", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"InnerProduct", "[", 
       RowBox[{
        RowBox[{"e", "[", "n", "]"}], ",", 
        RowBox[{"e", "[", "n", "]"}]}], "]"}], "*", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"vierbeinInv", "[", 
       RowBox[{"[", 
        RowBox[{"m", ",", " ", "mu"}], "]"}], "]"}], "*", 
      "\[IndentingNewLine]", 
      RowBox[{"vierbeinInv", "[", 
       RowBox[{"[", 
        RowBox[{"n", ",", "nu"}], "]"}], "]"}], "*", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"vierbein", "[", 
         RowBox[{"[", 
          RowBox[{"l", ",", " ", "nu"}], "]"}], "]"}], ",", " ", 
        RowBox[{"coords", "[", 
         RowBox[{"[", "mu", "]"}], "]"}]}], "]"}], "*", "\[IndentingNewLine]", 
      RowBox[{"OuterProduct", "[", 
       RowBox[{
        RowBox[{"e", "[", "m", "]"}], ",", 
        RowBox[{"e", "[", "n", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
     " ", 
     RowBox[{"{", 
      RowBox[{"m", ",", "1", ",", "4"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.908255884070923*^9, 3.908255903241625*^9}, {
   3.90825616406431*^9, 3.908256195214732*^9}, {3.908256399327327*^9, 
   3.908256404190527*^9}, {3.908256979454609*^9, 3.908256983386265*^9}, 
   3.911365750642086*^9, {3.936066132400976*^9, 3.9360661808493223`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"501afe5d-4e1d-4158-8428-f387f71b01f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"omega", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], "*", 
        RowBox[{"InnerProduct", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"InnerProduct", "[", 
              RowBox[{
               RowBox[{"e", "[", "alpha", "]"}], ",", 
               RowBox[{"e", "[", "alpha", "]"}]}], "]"}], "*", 
             RowBox[{"OuterProduct", "[", 
              RowBox[{
               RowBox[{"e", "[", "alpha", "]"}], ",", 
               RowBox[{"Dgamma", "[", "alpha", "]"}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"alpha", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"vierbein", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", "mu"}], "]"}], "]"}], "*", 
             RowBox[{"e", "[", "m", "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "-", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"vierbein", "[", 
           RowBox[{"[", 
            RowBox[{"nu", ",", "mu"}], "]"}], "]"}], "*", 
          RowBox[{"Dgamma", "[", "nu", "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.908254994342418*^9, 3.908255046169374*^9}, {
  3.908255501408528*^9, 3.908255673007678*^9}, {3.908255784472465*^9, 
  3.908255874652782*^9}, {3.9082559122413387`*^9, 3.908256002253413*^9}, {
  3.908256104945126*^9, 3.908256145276607*^9}, {3.908257015763555*^9, 
  3.908257018724278*^9}, {3.908257469774089*^9, 3.908257497937392*^9}, {
  3.9113657576882687`*^9, 3.911365760418095*^9}, {3.911371873332327*^9, 
  3.911371896065001*^9}, {3.9360660932646437`*^9, 3.9360661243718767`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"cd41f063-4e33-487d-b4ca-69e069d00143"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AbsoluteTiming", "[", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", "\"\< -> \>\"", ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"omega", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "/.", 
        RowBox[{"\[Theta]", "->", 
         RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.908256148937449*^9, 3.908256152288261*^9}, {
   3.908256209800102*^9, 3.9082562128869*^9}, {3.908256432903682*^9, 
   3.908256443639055*^9}, {3.908257104902745*^9, 3.9082571108583508`*^9}, {
   3.908257510343785*^9, 3.908257513732364*^9}, {3.909643344408655*^9, 
   3.909643360748576*^9}, 3.909643414610002*^9, 3.910417165355827*^9, 
   3.911362316155972*^9, 3.9113623717015*^9, {3.911371901159051*^9, 
   3.911371913017919*^9}, {3.911538320873155*^9, 3.911538321436479*^9}, {
   3.911538444806576*^9, 3.911538461639573*^9}, {3.935820189912906*^9, 
   3.935820194369073*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"007b12a7-36bd-472f-bbe3-8717c5e3fbc0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["Q", "2"], "-", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], 
    SuperscriptBox["r", "3"]]}],
  SequenceForm[
  1, " -> ", $CellContext`r^(-3) ($CellContext`Q^2 - $CellContext`M \
$CellContext`r) CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.908256213823601*^9, 3.908256409317491*^9, {3.908256439689622*^9, 
   3.908256444776325*^9}, 3.908256986255589*^9, 3.908257047890008*^9, {
   3.9082571061762667`*^9, 3.908257113761949*^9}, 3.908257472346698*^9, 
   3.908257515212219*^9, 3.909549474674917*^9, 3.909550812732444*^9, 
   3.909552470335707*^9, 3.909555273761182*^9, 3.909555387346212*^9, 
   3.9096396070944633`*^9, {3.909643344819856*^9, 3.909643361734027*^9}, {
   3.909643409590783*^9, 3.909643429180712*^9}, 3.9096442103789597`*^9, 
   3.9096461853483763`*^9, 3.909717860059847*^9, 3.909804058091835*^9, {
   3.909805518235494*^9, 3.909805533557703*^9}, 3.909805692587679*^9, 
   3.909811482658864*^9, 3.909811625747177*^9, 3.910152225807024*^9, 
   3.910154188138412*^9, 3.910417072617452*^9, 3.910417173381799*^9, 
   3.911362274319575*^9, 3.911362317077464*^9, 3.911362471042349*^9, 
   3.911366633639494*^9, 3.91136747928835*^9, 3.911367527862179*^9, 
   3.911371401188995*^9, {3.911371908520983*^9, 3.9113719151220493`*^9}, 
   3.911372061832258*^9, 3.911450749867134*^9, 3.911451872724719*^9, 
   3.911451921274032*^9, {3.911453188654587*^9, 3.911453211980999*^9}, 
   3.911453269207922*^9, 3.911453433937947*^9, 3.911453536419537*^9, 
   3.911537817152319*^9, 3.911537848979225*^9, 3.911538285500499*^9, 
   3.911538322962072*^9, 3.91153836645303*^9, 3.9115384629596987`*^9, {
   3.911539839151978*^9, 3.91153986155591*^9}, 3.911625166168002*^9, 
   3.911634614856559*^9, 3.918200433300744*^9, 3.918202127631117*^9, 
   3.924320542067337*^9, 3.935721170691152*^9, 3.935811703692902*^9, 
   3.9360691189090643`*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"28446f0f-a681-4366-9fec-d38cfe30f292"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"a", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    RowBox[{"r", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]]}]]}],
  SequenceForm[
  2, " -> ", $CellContext`a $CellContext`r^(-1) ($CellContext`a^2 + \
$CellContext`r^2)^
    Rational[-1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.908256213823601*^9, 3.908256409317491*^9, {3.908256439689622*^9, 
   3.908256444776325*^9}, 3.908256986255589*^9, 3.908257047890008*^9, {
   3.9082571061762667`*^9, 3.908257113761949*^9}, 3.908257472346698*^9, 
   3.908257515212219*^9, 3.909549474674917*^9, 3.909550812732444*^9, 
   3.909552470335707*^9, 3.909555273761182*^9, 3.909555387346212*^9, 
   3.9096396070944633`*^9, {3.909643344819856*^9, 3.909643361734027*^9}, {
   3.909643409590783*^9, 3.909643429180712*^9}, 3.9096442103789597`*^9, 
   3.9096461853483763`*^9, 3.909717860059847*^9, 3.909804058091835*^9, {
   3.909805518235494*^9, 3.909805533557703*^9}, 3.909805692587679*^9, 
   3.909811482658864*^9, 3.909811625747177*^9, 3.910152225807024*^9, 
   3.910154188138412*^9, 3.910417072617452*^9, 3.910417173381799*^9, 
   3.911362274319575*^9, 3.911362317077464*^9, 3.911362471042349*^9, 
   3.911366633639494*^9, 3.91136747928835*^9, 3.911367527862179*^9, 
   3.911371401188995*^9, {3.911371908520983*^9, 3.9113719151220493`*^9}, 
   3.911372061832258*^9, 3.911450749867134*^9, 3.911451872724719*^9, 
   3.911451921274032*^9, {3.911453188654587*^9, 3.911453211980999*^9}, 
   3.911453269207922*^9, 3.911453433937947*^9, 3.911453536419537*^9, 
   3.911537817152319*^9, 3.911537848979225*^9, 3.911538285500499*^9, 
   3.911538322962072*^9, 3.91153836645303*^9, 3.9115384629596987`*^9, {
   3.911539839151978*^9, 3.91153986155591*^9}, 3.911625166168002*^9, 
   3.911634614856559*^9, 3.918200433300744*^9, 3.918202127631117*^9, 
   3.924320542067337*^9, 3.935721170691152*^9, 3.935811703692902*^9, 
   3.9360691189145613`*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"6e970fe8-a271-455b-a36b-a8e220b02bcf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], "r"]}],
  SequenceForm[
  3, " -> ", $CellContext`r^(-1) ($CellContext`a^2 + $CellContext`r^2)^
    Rational[1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.908256213823601*^9, 3.908256409317491*^9, {3.908256439689622*^9, 
   3.908256444776325*^9}, 3.908256986255589*^9, 3.908257047890008*^9, {
   3.9082571061762667`*^9, 3.908257113761949*^9}, 3.908257472346698*^9, 
   3.908257515212219*^9, 3.909549474674917*^9, 3.909550812732444*^9, 
   3.909552470335707*^9, 3.909555273761182*^9, 3.909555387346212*^9, 
   3.9096396070944633`*^9, {3.909643344819856*^9, 3.909643361734027*^9}, {
   3.909643409590783*^9, 3.909643429180712*^9}, 3.9096442103789597`*^9, 
   3.9096461853483763`*^9, 3.909717860059847*^9, 3.909804058091835*^9, {
   3.909805518235494*^9, 3.909805533557703*^9}, 3.909805692587679*^9, 
   3.909811482658864*^9, 3.909811625747177*^9, 3.910152225807024*^9, 
   3.910154188138412*^9, 3.910417072617452*^9, 3.910417173381799*^9, 
   3.911362274319575*^9, 3.911362317077464*^9, 3.911362471042349*^9, 
   3.911366633639494*^9, 3.91136747928835*^9, 3.911367527862179*^9, 
   3.911371401188995*^9, {3.911371908520983*^9, 3.9113719151220493`*^9}, 
   3.911372061832258*^9, 3.911450749867134*^9, 3.911451872724719*^9, 
   3.911451921274032*^9, {3.911453188654587*^9, 3.911453211980999*^9}, 
   3.911453269207922*^9, 3.911453433937947*^9, 3.911453536419537*^9, 
   3.911537817152319*^9, 3.911537848979225*^9, 3.911538285500499*^9, 
   3.911538322962072*^9, 3.91153836645303*^9, 3.9115384629596987`*^9, {
   3.911539839151978*^9, 3.91153986155591*^9}, 3.911625166168002*^9, 
   3.911634614856559*^9, 3.918200433300744*^9, 3.918202127631117*^9, 
   3.924320542067337*^9, 3.935721170691152*^9, 3.935811703692902*^9, 
   3.9360691189159946`*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"d0a82c98-c8da-4878-add9-4241a13c9e2c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"(", 
          RowBox[{"M", "+", "r"}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "3"]]}],
  SequenceForm[
  4, " -> ", $CellContext`r^(-3) ($CellContext`a (-$CellContext`Q^2 + \
$CellContext`r ($CellContext`M + $CellContext`r)) 
     CliffordBasic`e[
      1, 2] + $CellContext`r^2 ($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[2, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.908256213823601*^9, 3.908256409317491*^9, {3.908256439689622*^9, 
   3.908256444776325*^9}, 3.908256986255589*^9, 3.908257047890008*^9, {
   3.9082571061762667`*^9, 3.908257113761949*^9}, 3.908257472346698*^9, 
   3.908257515212219*^9, 3.909549474674917*^9, 3.909550812732444*^9, 
   3.909552470335707*^9, 3.909555273761182*^9, 3.909555387346212*^9, 
   3.9096396070944633`*^9, {3.909643344819856*^9, 3.909643361734027*^9}, {
   3.909643409590783*^9, 3.909643429180712*^9}, 3.9096442103789597`*^9, 
   3.9096461853483763`*^9, 3.909717860059847*^9, 3.909804058091835*^9, {
   3.909805518235494*^9, 3.909805533557703*^9}, 3.909805692587679*^9, 
   3.909811482658864*^9, 3.909811625747177*^9, 3.910152225807024*^9, 
   3.910154188138412*^9, 3.910417072617452*^9, 3.910417173381799*^9, 
   3.911362274319575*^9, 3.911362317077464*^9, 3.911362471042349*^9, 
   3.911366633639494*^9, 3.91136747928835*^9, 3.911367527862179*^9, 
   3.911371401188995*^9, {3.911371908520983*^9, 3.9113719151220493`*^9}, 
   3.911372061832258*^9, 3.911450749867134*^9, 3.911451872724719*^9, 
   3.911451921274032*^9, {3.911453188654587*^9, 3.911453211980999*^9}, 
   3.911453269207922*^9, 3.911453433937947*^9, 3.911453536419537*^9, 
   3.911537817152319*^9, 3.911537848979225*^9, 3.911538285500499*^9, 
   3.911538322962072*^9, 3.91153836645303*^9, 3.9115384629596987`*^9, {
   3.911539839151978*^9, 3.91153986155591*^9}, 3.911625166168002*^9, 
   3.911634614856559*^9, 3.918200433300744*^9, 3.918202127631117*^9, 
   3.924320542067337*^9, 3.935721170691152*^9, 3.935811703692902*^9, 
   3.936069118932734*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"f039ae83-b078-486f-9c4c-9920b83ec24d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.041964`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.9360691189336863`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"aaba5c8a-08c4-4a57-aa44-946111cffcf4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Riemann curvature", "Section",
 CellChangeTimes->{{3.908423044228541*^9, 
  3.908423048218079*^9}},ExpressionUUID->"f6c46e41-34cb-4be7-90a1-\
bca0267981da"],

Cell[CellGroupData[{

Cell["Riemann in coordinate components", "Subsection",
 CellChangeTimes->{{3.909551124745296*^9, 
  3.909551130816853*^9}},ExpressionUUID->"f89f91c8-2abb-4e64-8acc-\
fe314e433d0b"],

Cell[TextData[{
 "We calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "\[Mu]\[Nu]"], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["\[Omega]", "\[Nu]"]}], "-", 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SubscriptBox["\[Omega]", "\[Mu]"]}], "+", 
      RowBox[{"[", 
       RowBox[{
        SubscriptBox["\[Omega]", "\[Mu]"], ",", 
        SubscriptBox["\[Omega]", "\[Nu]"]}], "]"}]}], "  ", "=", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         SubscriptBox["R", "\[Mu]\[Nu]"], ")"}], "mn"], 
       SubscriptBox["\[Gamma]", "m"]}], "\[And]", 
      SubscriptBox["\[Gamma]", "n"]}]}]}], TraditionalForm]],ExpressionUUID->
  "6a7e97b3-c5ba-40c3-8f9d-78110136ed7a"]
}], "Text",
 CellChangeTimes->{{3.909551133106524*^9, 3.909551187899315*^9}, {
  3.909804880501234*^9, 3.909804880501266*^9}, {3.909804918335541*^9, 
  3.909805033664979*^9}, {3.9358148037914953`*^9, 
  3.935814821033519*^9}},ExpressionUUID->"5faf0305-7e52-451d-8b3a-\
468dce16c559"],

Cell[BoxData[
 RowBox[{"Riemann", ":=", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"omega", "[", 
         RowBox[{"[", "nu", "]"}], "]"}], ",", " ", 
        RowBox[{"coords", "[", 
         RowBox[{"[", "mu", "]"}], "]"}]}], "]"}], "-", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"omega", "[", 
         RowBox[{"[", "mu", "]"}], "]"}], ",", " ", 
        RowBox[{"coords", "[", 
         RowBox[{"[", "nu", "]"}], "]"}]}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"GeometricProduct", "[", 
          RowBox[{
           RowBox[{"omega", "[", 
            RowBox[{"[", "mu", "]"}], "]"}], ",", 
           RowBox[{"omega", "[", 
            RowBox[{"[", "nu", "]"}], "]"}]}], "]"}], "-", 
         RowBox[{"GeometricProduct", "[", 
          RowBox[{
           RowBox[{"omega", "[", 
            RowBox[{"[", "nu", "]"}], "]"}], ",", 
           RowBox[{"omega", "[", 
            RowBox[{"[", "mu", "]"}], "]"}]}], "]"}]}], ")"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.911371464341753*^9, 3.911371515763017*^9}, 
   3.911371557777543*^9, {3.911371930108825*^9, 3.9113720188483343`*^9}, {
   3.9360660806794157`*^9, 3.9360660852295732`*^9}, {3.9360681052800903`*^9, 
   3.9360681068758507`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"d50ee889-7227-4e91-973d-4c781542acb0"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "a5dcda28-d3db-4ece-a8c4-5a382fcb3d64"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"8abe56ec-e308-4dd8-999a-fb45aa2d1db7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"coords", "[", 
        RowBox[{"[", "mu", "]"}], "]"}], ",", 
       RowBox[{"coords", "[", 
        RowBox[{"[", "nu", "]"}], "]"}]}], "}"}], ",", "\"\< -> \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Riemann", "[", 
        RowBox[{"[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "]"}], "/.", 
       RowBox[{"\[Theta]", "->", 
        RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"nu", ",", "mu", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.908423318899673*^9, 3.9084233418737297`*^9}, {
   3.908423389849701*^9, 3.9084233937328787`*^9}, {3.909550034630787*^9, 
   3.909550044149012*^9}, {3.909559961233286*^9, 3.909559983519274*^9}, {
   3.909561491875272*^9, 3.909561502840383*^9}, {3.911371525998487*^9, 
   3.911371527754692*^9}, {3.911371924510419*^9, 3.911371926204384*^9}, 
   3.911538634353883*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"d8a480af-b0c5-4d93-85a1-b691c4ade7aa"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "t"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`t, $CellContext`t}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"334ec3f3-cbc6-4103-b49c-0798459a5c9b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", 
         RowBox[{"e", "[", 
          RowBox[{"1", ",", "2"}], "]"}]}], "-", 
        FractionBox[
         RowBox[{"a", " ", 
          RowBox[{"e", "[", 
           RowBox[{"2", ",", "4"}], "]"}]}], 
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["Q", "2"], "-", 
              RowBox[{"2", " ", "M", " ", "r"}]}], 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              SuperscriptBox["r", "2"]}]]}]]}]]}], ")"}]}], "+", 
     RowBox[{"M", " ", "r", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"e", "[", 
          RowBox[{"1", ",", "2"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"a", " ", 
          RowBox[{"e", "[", 
           RowBox[{"2", ",", "4"}], "]"}]}], 
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["Q", "2"], "-", 
              RowBox[{"2", " ", "M", " ", "r"}]}], 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              SuperscriptBox["r", "2"]}]]}]]}]]}], ")"}]}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", $CellContext`r^(-4) ($CellContext`Q^2 (
      3 CliffordBasic`e[
        1, 2] - $CellContext`a ($CellContext`a^2 + $CellContext`r^2)^
       Rational[-1, 2] (
        1 + ($CellContext`Q^2 - 
          2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] 
      CliffordBasic`e[2, 4]) + $CellContext`M $CellContext`r ((-2) 
       CliffordBasic`e[
        1, 2] + $CellContext`a ($CellContext`a^2 + $CellContext`r^2)^
        Rational[-1, 2] (
         1 + ($CellContext`Q^2 - 
           2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] CliffordBasic`e[2, 4]))],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417998913*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"88e1021b-6eef-4dbc-b484-3c68977d7f24"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["Q", "2"]}], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "3"}], "]"}]}], "+", 
     RowBox[{"M", " ", "r", " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "3"}], "]"}]}], "+", 
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Q", "2"], "-", 
        RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 ($CellContext`a^2 + \
$CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] 
     CliffordBasic`e[
      1, 3] + $CellContext`M $CellContext`r ($CellContext`a^2 + \
$CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] 
     CliffordBasic`e[1, 3] + $CellContext`a ($CellContext`Q^2 - 
      2 $CellContext`M $CellContext`r) CliffordBasic`e[3, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069418331957*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"9473d945-a9b5-4821-a285-d46bce36c278"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) ($CellContext`a^2 + $CellContext`r^2)^
    Rational[1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069418383359*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"5ab5ba4f-2155-440e-91c7-08f7fe97daca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`r, $CellContext`r}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069418387288*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"c5a18385-5cef-45dd-ad11-383f929d23c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-2) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) ($CellContext`a^2 + $CellContext`r^2)^
    Rational[-1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069418439638*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"de7e822b-fbad-45cb-8475-83b8c50b2107"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", 
         SuperscriptBox["Q", "2"]}], "-", 
        RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}]}], 
    RowBox[{
     SuperscriptBox["r", "4"], " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) ($CellContext`a^2 + $CellContext`r^2)^
    Rational[-1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^
    Rational[-1, 2] ($CellContext`a (3 $CellContext`Q^2 - 
      2 $CellContext`M $CellContext`r) ($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] 
     CliffordBasic`e[
      1, 2] + $CellContext`a^2 (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) 
     CliffordBasic`e[
      2, 4] + $CellContext`r^2 (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[2, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.93606941876506*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"769498f5-da5a-4e91-b2cf-cd5e8932fa4c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Theta]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069418768435*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"f140927b-d92e-47c8-ab84-e5a5eba44d84"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"M", " ", "r"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], "-", 
          RowBox[{"2", " ", "M", " ", "r"}]}], 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Q", "2"], "-", 
        RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["Q", "2"], "-", 
        RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) ($CellContext`a (-$CellContext`Q^2 + \
$CellContext`M $CellContext`r) ($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] 
     CliffordBasic`e[1, 3] + $CellContext`a^2 ($CellContext`Q^2 - 
      2 $CellContext`M $CellContext`r) 
     CliffordBasic`e[3, 4] + $CellContext`r^2 ($CellContext`Q^2 - 
      2 $CellContext`M $CellContext`r) CliffordBasic`e[3, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069419142127*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"c08d868c-e4ad-4f3e-b7b4-8f9d51185971"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Phi], $CellContext`\[Phi]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.909550044751489*^9, 3.909550817742406*^9, 3.909552470408029*^9, 
   3.9095552738440523`*^9, 3.909559984845992*^9, 3.909561503826259*^9, 
   3.909639607205393*^9, 3.909645120210458*^9, 3.909645191137283*^9, 
   3.909646185450086*^9, 3.909646346410232*^9, 3.9096470591809587`*^9, 
   3.909717860221548*^9, 3.909804058232498*^9, {3.909805518327345*^9, 
   3.909805533732375*^9}, 3.90980569274827*^9, 3.9098109179506273`*^9, 
   3.909811482795288*^9, 3.9098116258891068`*^9, 3.910152225959869*^9, 
   3.910154188297065*^9, 3.9104172034201193`*^9, 3.911362473733802*^9, 
   3.91136495605742*^9, 3.911365009158271*^9, 3.911366904872607*^9, 
   3.911367485695154*^9, 3.911367532582869*^9, 3.911371531870882*^9, 
   3.911371562073423*^9, {3.911371955559816*^9, 3.911371960342618*^9}, 
   3.911372008861698*^9, 3.911372062167757*^9, 3.91145075024426*^9, 
   3.911451873087622*^9, 3.911451921653097*^9, 3.911453193589316*^9, 
   3.911453269542666*^9, 3.911453434285163*^9, 3.911453536777244*^9, 
   3.911538808151647*^9, 3.911540160776413*^9, 3.9116254652807994`*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069419146508*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"4975d07a-1ce4-41f8-9ab7-eb5113506f3d"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Here calculate the components of the Riemann acting over the coordinate \
basis and expressed in the coordinate basis ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "\[Mu]\[Nu]"], "=", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        SubscriptBox["R", "\[Mu]\[Nu]"], ")"}], "\[Alpha]\[Beta]"], 
      SubscriptBox["g", "\[Alpha]"]}], "\[And]", 
     SubscriptBox["g", "\[Beta]"]}]}], TraditionalForm]],ExpressionUUID->
  "c280a79b-32dd-466e-adf4-d5dec356edd5"]
}], "Text",
 CellChangeTimes->{{3.935814624774116*^9, 
  3.935814703874806*^9}},ExpressionUUID->"202ae255-c756-4538-8415-\
8de20ec30343"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannCoordCoord", " ", "=", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", 
     RowBox[{
      RowBox[{"Sum", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Coeff", "[", 
          RowBox[{
           RowBox[{"Riemann", "[", 
            RowBox[{"[", 
             RowBox[{"mu", ",", "nu"}], "]"}], "]"}], ",", 
           RowBox[{"e", "[", 
            RowBox[{"alpha", ",", "beta"}], "]"}]}], "]"}], "*", 
         "\[IndentingNewLine]", 
         RowBox[{"OuterProduct", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"vierbeinInv", "[", 
               RowBox[{"[", 
                RowBox[{"alpha", ",", "\[Mu]"}], "]"}], "]"}], 
              RowBox[{"e", "[", "\[Mu]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Mu]", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"vierbeinInv", "[", 
               RowBox[{"[", 
                RowBox[{"beta", ",", "\[Mu]"}], "]"}], "]"}], 
              RowBox[{"e", "[", "\[Mu]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Mu]", ",", "1", ",", "4"}], "}"}]}], "]"}]}], 
          "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"alpha", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"beta", ",", 
          RowBox[{"alpha", "+", "1"}], ",", "4"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.935814432053493*^9, 3.935814463614339*^9}, {
  3.935816200782527*^9, 3.935816204702605*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"e33a7218-1623-4cec-a1a3-940c0d5c85e5"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "ee63d3a2-20db-4a9c-91a1-39fe8364bcc2"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"7d306ba9-c8ad-4556-90d9-44c4a7a7ea40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"coords", "[", 
        RowBox[{"[", "mu", "]"}], "]"}], ",", 
       RowBox[{"coords", "[", 
        RowBox[{"[", "nu", "]"}], "]"}]}], "}"}], ",", "\"\< -> \>\"", ",", 
     " ", 
     RowBox[{
      RowBox[{
       RowBox[{"RiemannCoordCoord", "[", 
        RowBox[{"[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "]"}], "/.", 
       RowBox[{"\[Theta]", "->", 
        RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"nu", ",", "mu", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.935814606608945*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"86d86e3c-77e6-4636-b383-649001c2c5dc"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "t"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`t, $CellContext`t}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f3d907ab-25b3-4948-a241-898aed23727e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["Q", "2"]}], "-", 
           RowBox[{"3", " ", "M", " ", "r"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["Q", "2"]}], "-", 
           RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", 
         SuperscriptBox["Q", "2"]}], "+", 
        RowBox[{"3", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "6"]]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", $CellContext`r^(-6) (($CellContext`a^2 (4 $CellContext`Q^2 - 
        3 $CellContext`M $CellContext`r) + $CellContext`r^2 (
        3 $CellContext`Q^2 - 2 $CellContext`M $CellContext`r)) 
     CliffordBasic`e[1, 2] + $CellContext`a ((-4) $CellContext`Q^2 + 
      3 $CellContext`M $CellContext`r) CliffordBasic`e[2, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439273406*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"d1431793-341f-456c-a2ed-a284e6a247fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["Q", "2"]}], "+", 
           RowBox[{"M", " ", "r"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["Q", "2"]}], "+", 
           RowBox[{"3", " ", "M", " ", "r"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "3"}], "]"}]}], "+", 
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["Q", "2"]}], "-", 
        RowBox[{"3", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "6"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-6) (($CellContext`r^2 (-$CellContext`Q^2 + \
$CellContext`M $CellContext`r) + $CellContext`a^2 ((-2) $CellContext`Q^2 + 
        3 $CellContext`M $CellContext`r)) 
     CliffordBasic`e[1, 3] + $CellContext`a (2 $CellContext`Q^2 - 
      3 $CellContext`M $CellContext`r) CliffordBasic`e[3, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439327433*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"e0288fc3-b4d0-473a-9b2e-a7259d6ff224"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439355297*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"ebea3abe-e205-4e61-8a78-2dab565b269a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`r, $CellContext`r}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.9360694393565063`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"bf356970-2ee4-4f15-8182-07ec4fecc36d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439358176*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"ef26c637-c98b-4eb2-8276-704fc7ccbafe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["Q", "2"]}], "-", 
        RowBox[{"3", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["Q", "2"]}], "+", 
           RowBox[{"M", " ", "r"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            SuperscriptBox["Q", "2"]}], "+", 
           RowBox[{"3", " ", "M", " ", "r"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"2", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "6"]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-6) ($CellContext`a (4 $CellContext`Q^2 - 
      3 $CellContext`M $CellContext`r) ($CellContext`a^2 + $CellContext`r^2) 
     CliffordBasic`e[
      1, 2] + ($CellContext`r^2 (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) + $CellContext`a^2 ((-4) $CellContext`Q^2 + 
        3 $CellContext`M $CellContext`r)) CliffordBasic`e[2, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439408189*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"a9ea4694-de74-4436-ad8a-7fb48fb0dbc3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Theta]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439411854*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"a273edf4-1c56-40ba-aea4-c428af2de455"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "a"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["Q", "2"]}], "-", 
        RowBox[{"3", " ", "M", " ", "r"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["r", "2"]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["Q", "2"]}], "-", 
           RowBox[{"3", " ", "M", " ", "r"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["Q", "2"], "-", 
           RowBox[{"2", " ", "M", " ", "r"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}]}], 
    SuperscriptBox["r", "6"]]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-6) (-$CellContext`a (2 $CellContext`Q^2 - 
      3 $CellContext`M $CellContext`r) ($CellContext`a^2 + $CellContext`r^2) 
     CliffordBasic`e[
      1, 3] + ($CellContext`a^2 (2 $CellContext`Q^2 - 
        3 $CellContext`M $CellContext`r) + $CellContext`r^2 ($CellContext`Q^2 - 
        2 $CellContext`M $CellContext`r)) CliffordBasic`e[3, 4])],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439465068*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"300b74c1-984c-46f0-93f6-9f3cec1d2a3d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Phi], $CellContext`\[Phi]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439469005*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"feb714fc-8012-46c7-a6f9-f5272cd85bac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Riemann in tetrad components", "Subsection",
 CellChangeTimes->{{3.909549858963996*^9, 3.909549863617202*^9}, {
  3.9115414475133142`*^9, 
  3.9115414490588202`*^9}},ExpressionUUID->"d564bb69-0298-4623-a723-\
d4b7b6557ee6"],

Cell[TextData[{
 "We calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "mn"], "=", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       SubscriptBox["e", "m"], "\[Mu]"], 
      SuperscriptBox[
       SubscriptBox["e", "n"], "\[Nu]"], 
      SubscriptBox["R", "\[Mu]\[Nu]"]}], "=", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         SubscriptBox["R", "mn"], ")"}], "lk"], 
       SubscriptBox["\[Gamma]", "l"]}], "\[And]", 
      SubscriptBox["\[Gamma]", "k"]}]}]}], TraditionalForm]],ExpressionUUID->
  "01fb05d9-7a1b-4e80-bd5d-310f356e1288"]
}], "Text",
 CellChangeTimes->{{3.909551199385782*^9, 3.9095512151996613`*^9}, {
  3.909804803950117*^9, 3.909804804370089*^9}, {3.90980488570782*^9, 
  3.909804911538417*^9}, {3.93581472343895*^9, 
  3.935814781722187*^9}},ExpressionUUID->"a90b907f-a926-4f5f-b213-\
3695bab10e01"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RiemannTetrad", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"vierbeinInv", "[", 
          RowBox[{"[", 
           RowBox[{"m", ",", "mu"}], "]"}], "]"}], 
         RowBox[{"vierbeinInv", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "nu"}], "]"}], "]"}], "*", 
         RowBox[{"Riemann", "[", 
          RowBox[{"[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "]"}]}], ",", 
        "\[IndentingNewLine]", " ", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"m", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.909549679532711*^9, 3.9095497837346363`*^9}, 
   3.909807752140683*^9, 3.911365695831236*^9, 3.911367899090094*^9, {
   3.911368626811853*^9, 3.91136862783942*^9}, 3.911371420973645*^9, {
   3.911371578154945*^9, 3.911371693575526*^9}, {3.9360660682653112`*^9, 
   3.936066073889359*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"fc78e460-889f-4ca6-8c13-83c1fac13443"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "69797ce2-b9da-4e8a-88d6-c3e712a498da"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"5c7ec34d-86df-4e6a-9e6b-fcb056f08173"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"coords", "[", 
         RowBox[{"[", "m", "]"}], "]"}], ",", 
        RowBox[{"coords", "[", 
         RowBox[{"[", "n", "]"}], "]"}]}], "}"}], ",", "\"\< -> \>\"", ",", 
      " ", 
      RowBox[{
       RowBox[{
        RowBox[{"RiemannTetrad", "[", 
         RowBox[{"[", 
          RowBox[{"m", ",", "n"}], "]"}], "]"}], "/.", 
        RowBox[{"\[Theta]", "->", 
         RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "m", ",", "4"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.909549793397162*^9, 3.9095498327294273`*^9}, {
   3.9095500066473*^9, 3.9095500070016613`*^9}, {3.909559996153894*^9, 
   3.909560000400115*^9}, 3.909561486309696*^9, {3.909647281861952*^9, 
   3.909647282947273*^9}, {3.909647386295648*^9, 3.909647386916427*^9}, {
   3.911371622856629*^9, 3.9113716257800407`*^9}, {3.911372025821636*^9, 
   3.9113720280652733`*^9}, 3.911538638145376*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"4b258e55-b336-4e24-8149-a3284d77387c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "t"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`t, $CellContext`t}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"29c79a00-abe5-4769-bff4-e3e0a4757dda"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", 
        SuperscriptBox["Q", "2"]}], "-", 
       RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", $CellContext`r^(-4) (3 $CellContext`Q^2 - 
    2 $CellContext`M $CellContext`r) CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444141859*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"3efd2946-c9b8-4fef-b74b-2eaa4f3239d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[1, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444208768*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"c79271be-c401-4592-8e24-7e6d5cd6b7d5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444241503*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"0a55bdad-06fa-4070-a2d6-6ec7f4b6e3c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`r, $CellContext`r}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444244472*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"2fd2b9a3-c9ce-4d5e-9cd6-e93d00257a8f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.93606944424724*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"4edebca3-b399-454e-a9b7-3945d63cc405"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["Q", "2"]}], "+", 
       RowBox[{"M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "4"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) (-$CellContext`Q^2 + $CellContext`M \
$CellContext`r) CliffordBasic`e[2, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444488505*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"60bbf3f2-3c04-4cac-8499-889e629c0ead"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Theta]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444490797*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e71bf316-4be5-4c38-8ee2-22ed77110d2a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["Q", "2"], "-", 
       RowBox[{"2", " ", "M", " ", "r"}]}], ")"}], " ", 
     RowBox[{"e", "[", 
      RowBox[{"3", ",", "4"}], "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", $CellContext`r^(-4) ($CellContext`Q^2 - 
    2 $CellContext`M $CellContext`r) CliffordBasic`e[3, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444539503*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"080a2a37-0272-43d1-bc72-7179686a7ef8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[{$CellContext`\[Phi], $CellContext`\[Phi]}, " -> ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069444564159*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"fb36644f-b623-4533-97ea-c81c038e6487"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ricci", "Section",
 CellChangeTimes->{{3.908423455067814*^9, 
  3.90842345588518*^9}},ExpressionUUID->"7f91ddbc-4577-49df-a5d3-\
12bad4208f23"],

Cell[CellGroupData[{

Cell["Ricci in coordinate components", "Subsection",
 CellChangeTimes->{{3.909551255197525*^9, 
  3.909551259566475*^9}},ExpressionUUID->"9785fbb3-6186-4b5b-8772-\
08178c3634da"],

Cell[TextData[{
 "We calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "\[Nu]"], "=", " ", 
    RowBox[{
     SuperscriptBox["g", "\[Mu]"], "\[CenterDot]", 
     SubscriptBox["R", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID->
  "3abe9b8a-3762-49c3-af4d-e500cb4d2c0e"]
}], "Text",
 CellChangeTimes->{{3.909551133106524*^9, 3.909551187899315*^9}, {
  3.909551239396989*^9, 3.909551239782785*^9}, {3.90980504491316*^9, 
  3.90980505389472*^9}, {3.909805089549563*^9, 3.909805145805274*^9}, {
  3.909814255443761*^9, 3.9098143942897367`*^9}, {3.9358202485300927`*^9, 
  3.9358203032705*^9}},ExpressionUUID->"a8d15346-13ae-4d27-b428-6b810de34994"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ricci", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Sum", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Sum", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"vierbeinInv", "[", 
            RowBox[{"[", 
             RowBox[{"m", ",", "mu"}], "]"}], "]"}], "*", 
           RowBox[{"InnerProduct", "[", 
            RowBox[{
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"InnerProduct", "[", 
                 RowBox[{
                  RowBox[{"e", "[", "m", "]"}], ",", 
                  RowBox[{"e", "[", "n", "]"}]}], "]"}], "*", 
                RowBox[{"e", "[", "n", "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
             RowBox[{"Riemann", "[", 
              RowBox[{"[", 
               RowBox[{"mu", ",", "nu"}], "]"}], "]"}]}], "]"}]}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "1", ",", "4"}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.90842346200976*^9, 3.908423512581589*^9}, {
   3.909805659444047*^9, 3.909805660601152*^9}, {3.911365685561841*^9, 
   3.911365688549264*^9}, 3.911367039618932*^9, {3.911371702371904*^9, 
   3.9113717502884493`*^9}, 3.9357211513222857`*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"5c6dd670-7ed8-44f7-87d0-f13f68c8f6e7"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "63890097-1a14-4d21-8914-7f02148998c5"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"ba5d607a-b2d7-4e8d-ae09-1e0178701d6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"coords", "[", 
      RowBox[{"[", "mu", "]"}], "]"}], ",", "\"\< -> \>\"", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Ricci", "[", 
        RowBox[{"[", "mu", "]"}], "]"}], "/.", 
       RowBox[{"\[Theta]", "->", 
        RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"mu", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.908423522135534*^9, 3.908423533090062*^9}, {
   3.909560006791113*^9, 3.909560009906032*^9}, {3.911371734914754*^9, 
   3.9113717367287807`*^9}, {3.91137203134474*^9, 3.911372033023247*^9}, 
   3.911538641756323*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"85dde8dc-8fb8-4f93-9e48-b9cbbef67d6d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["Q", "2"], "-", 
            RowBox[{"2", " ", "M", " ", "r"}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["r", "2"]}]]}]], " ", 
        RowBox[{"e", "[", "1", "]"}]}], "+", 
       RowBox[{"a", " ", 
        RowBox[{"e", "[", "4", "]"}]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["r", "4"], " ", 
     SqrtBox[
      SuperscriptBox["r", "2"]]}]]}],
  SequenceForm[$CellContext`t, 
   " -> ", $CellContext`Q^2 $CellContext`r^(-4) ($CellContext`r^2)^
    Rational[-1, 2] (($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[1] + $CellContext`a 
     CliffordBasic`e[4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9113686969421577`*^9, {3.911371742961886*^9, 3.911371752646486*^9}, {
   3.911372041397296*^9, 3.911372062254725*^9}, 3.911450750542262*^9, 
   3.911451873393526*^9, 3.911451921901045*^9, 3.911453195309717*^9, 
   3.911453269686174*^9, 3.9114534343906574`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955523182*^9},
 CellLabel->
  "During evaluation of \
In[32]:=",ExpressionUUID->"1a6be25d-7a93-40da-b700-5b60714e203a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"e", "[", "2", "]"}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       SuperscriptBox["r", "2"], ")"}], 
      RowBox[{"3", "/", "2"}]], " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["r", "2"]}]], " ", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], "-", 
         RowBox[{"2", " ", "M", " ", "r"}]}], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["r", "2"]}]]}]]}]]}],
  SequenceForm[$CellContext`r, 
   " -> ", $CellContext`Q^2 ($CellContext`r^2)^
    Rational[-3, 2] ($CellContext`a^2 + $CellContext`r^2)^
    Rational[-1, 2] (
     1 + ($CellContext`Q^2 - 
       2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[-1, 2] CliffordBasic`e[2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9113686969421577`*^9, {3.911371742961886*^9, 3.911371752646486*^9}, {
   3.911372041397296*^9, 3.911372062254725*^9}, 3.911450750542262*^9, 
   3.911451873393526*^9, 3.911451921901045*^9, 3.911453195309717*^9, 
   3.911453269686174*^9, 3.9114534343906574`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.9360699556350946`*^9},
 CellLabel->
  "During evaluation of \
In[32]:=",ExpressionUUID->"dea724dc-ee19-43bc-aea4-527bd9acaf93"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"e", "[", "3", "]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       SuperscriptBox["r", "2"], ")"}], 
      RowBox[{"3", "/", "2"}]]]}]}],
  SequenceForm[$CellContext`\[Theta], 
   " -> ", -$CellContext`Q^2 ($CellContext`r^2)^Rational[-3, 2] 
   CliffordBasic`e[3]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9113686969421577`*^9, {3.911371742961886*^9, 3.911371752646486*^9}, {
   3.911372041397296*^9, 3.911372062254725*^9}, 3.911450750542262*^9, 
   3.911451873393526*^9, 3.911451921901045*^9, 3.911453195309717*^9, 
   3.911453269686174*^9, 3.9114534343906574`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.9360699556929092`*^9},
 CellLabel->
  "During evaluation of \
In[32]:=",ExpressionUUID->"8272070b-5d79-4c0c-9002-e67c31213cd2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["r", "2"]}]], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["Q", "2"], "-", 
             RowBox[{"2", " ", "M", " ", "r"}]}], 
            RowBox[{
             SuperscriptBox["a", "2"], "+", 
             SuperscriptBox["r", "2"]}]]}]], " ", 
         RowBox[{"e", "[", "1", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"e", "[", "4", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"e", "[", "4", "]"}]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SqrtBox[
       SuperscriptBox["r", "2"]]}]]}]}],
  SequenceForm[$CellContext`\[Phi], 
   " -> ", -$CellContext`Q^2 $CellContext`r^(-4) ($CellContext`r^2)^
    Rational[-1, 2] ($CellContext`a ($CellContext`a^2 + $CellContext`r^2)^
      Rational[1, 2] (
       1 + ($CellContext`Q^2 - 
         2 $CellContext`M $CellContext`r)/($CellContext`a^2 + \
$CellContext`r^2))^Rational[1, 2] CliffordBasic`e[1] + $CellContext`a^2 
     CliffordBasic`e[4] + $CellContext`r^2 CliffordBasic`e[4])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9113686969421577`*^9, {3.911371742961886*^9, 3.911371752646486*^9}, {
   3.911372041397296*^9, 3.911372062254725*^9}, 3.911450750542262*^9, 
   3.911451873393526*^9, 3.911451921901045*^9, 3.911453195309717*^9, 
   3.911453269686174*^9, 3.9114534343906574`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955849934*^9},
 CellLabel->
  "During evaluation of \
In[32]:=",ExpressionUUID->"10b0bf7e-47e6-4ef1-a8a7-c992bfd0c54a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ricci in tetrad components", "Subsection",
 CellChangeTimes->{{3.909549848080713*^9, 3.909549874815044*^9}, 
   3.909551249758306*^9},ExpressionUUID->"d3d7e811-fa6a-41d0-9045-\
e2f06e5e4f53"],

Cell[TextData[{
 "We calculate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "m"], "=", 
    RowBox[{
     SuperscriptBox["\[Gamma]", "n"], "\[CenterDot]", 
     SubscriptBox["R", "nm"]}]}], TraditionalForm]],ExpressionUUID->
  "9172cb44-0eda-4df0-8f21-cf4536b60cb5"]
}], "Text",
 CellChangeTimes->{{3.909551133106524*^9, 3.909551187899315*^9}, {
   3.9095512454381332`*^9, 3.909551247638391*^9}, {3.909805165632835*^9, 
   3.909805195061517*^9}, {3.909814399707891*^9, 3.909814400027638*^9}, 
   3.9358202729657803`*^9, {3.935820340808383*^9, 
   3.935820349423987*^9}},ExpressionUUID->"7f69d196-2423-4773-a22d-\
f0c583865f55"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciTetrad", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Sum", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"InnerProduct", "[", 
          RowBox[{
           RowBox[{"e", "[", "n", "]"}], ",", 
           RowBox[{"e", "[", "n", "]"}]}], "]"}], "*", 
         RowBox[{"InnerProduct", "[", 
          RowBox[{
           RowBox[{"e", "[", "n", "]"}], ",", 
           RowBox[{"RiemannTetrad", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "m"}], "]"}], "]"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.909549879875597*^9, 3.909549899112953*^9}, {
   3.909551059975086*^9, 3.909551067533275*^9}, {3.909804693293657*^9, 
   3.9098047057890797`*^9}, 3.909810724865206*^9, {3.911365643275446*^9, 
   3.911365644584715*^9}, {3.911367008362852*^9, 3.911367008754075*^9}, {
   3.911371757149557*^9, 3.91137178741767*^9}, {3.936066028256876*^9, 
   3.936066041949068*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"4ff482a6-5d7f-4445-9370-ea10ceb13995"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "95c2216c-07af-45f2-a100-5baa723aa564"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"05f07783-64ab-4c00-90cc-d82e1a54a9f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{"coords", "[", 
       RowBox[{"[", "m", "]"}], "]"}], ",", "\"\< -> \>\"", ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"RicciTetrad", "[", 
         RowBox[{"[", "m", "]"}], "]"}], "/.", 
        RowBox[{"\[Theta]", "->", 
         RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.909549908552597*^9, 3.90954992183755*^9}, {
   3.909560012714743*^9, 3.909560015877524*^9}, {3.909648918370332*^9, 
   3.909648926596992*^9}, {3.911371779515557*^9, 3.911371780613687*^9}, {
   3.911372045873719*^9, 3.911372048756681*^9}, 3.911538644138205*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"c734cad6-3d0e-4cd0-99f1-b4bd231fa721"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"e", "[", "1", "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[$CellContext`t, " -> ", $CellContext`Q^2 $CellContext`r^(-4) 
   CliffordBasic`e[1]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9113686497544518`*^9, 3.911368750979003*^9, 
  3.9113717905468407`*^9, 3.911372062314878*^9, 3.911450750646132*^9, 
  3.9114518735143538`*^9, 3.911451922594691*^9, 3.91145319650749*^9, 
  3.911453269727863*^9, 3.911453434551139*^9, 3.9114535411497583`*^9, 
  3.911539305874335*^9, 3.911540914885933*^9, 3.911626538203106*^9, 
  3.918204719475618*^9, 3.93572272730453*^9, 3.9360703670118*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"bbcb1644-be4b-45b2-b391-8389e4b7bc86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"e", "[", "2", "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[$CellContext`r, " -> ", $CellContext`Q^2 $CellContext`r^(-4) 
   CliffordBasic`e[2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9113686497544518`*^9, 3.911368750979003*^9, 
  3.9113717905468407`*^9, 3.911372062314878*^9, 3.911450750646132*^9, 
  3.9114518735143538`*^9, 3.911451922594691*^9, 3.91145319650749*^9, 
  3.911453269727863*^9, 3.911453434551139*^9, 3.9114535411497583`*^9, 
  3.911539305874335*^9, 3.911540914885933*^9, 3.911626538203106*^9, 
  3.918204719475618*^9, 3.93572272730453*^9, 3.9360703670430527`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"95931fdf-4649-42a5-aec2-020341e23b53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"e", "[", "3", "]"}]}], 
     SuperscriptBox["r", "4"]]}]}],
  SequenceForm[$CellContext`\[Theta], 
   " -> ", -$CellContext`Q^2 $CellContext`r^(-4) CliffordBasic`e[3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9113686497544518`*^9, 3.911368750979003*^9, 
  3.9113717905468407`*^9, 3.911372062314878*^9, 3.911450750646132*^9, 
  3.9114518735143538`*^9, 3.911451922594691*^9, 3.91145319650749*^9, 
  3.911453269727863*^9, 3.911453434551139*^9, 3.9114535411497583`*^9, 
  3.911539305874335*^9, 3.911540914885933*^9, 3.911626538203106*^9, 
  3.918204719475618*^9, 3.93572272730453*^9, 3.936070367047073*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"0871c349-2881-4253-9a88-e493fd4cf1c7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"e", "[", "4", "]"}]}], 
     SuperscriptBox["r", "4"]]}]}],
  SequenceForm[$CellContext`\[Phi], 
   " -> ", -$CellContext`Q^2 $CellContext`r^(-4) CliffordBasic`e[4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9113686497544518`*^9, 3.911368750979003*^9, 
  3.9113717905468407`*^9, 3.911372062314878*^9, 3.911450750646132*^9, 
  3.9114518735143538`*^9, 3.911451922594691*^9, 3.91145319650749*^9, 
  3.911453269727863*^9, 3.911453434551139*^9, 3.9114535411497583`*^9, 
  3.911539305874335*^9, 3.911540914885933*^9, 3.911626538203106*^9, 
  3.918204719475618*^9, 3.93572272730453*^9, 3.936070367056093*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"5043daac-e169-4c94-82f0-7c1ce4248380"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ricci Scalar", "Section",
 CellChangeTimes->{{3.908423601856989*^9, 
  3.908423610561426*^9}},ExpressionUUID->"e44d81de-26d4-4a23-b4c9-\
37b0b22ed383"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "6948c7fb-e3cc-4937-86c7-4ca64b897872"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"8604d87e-2854-4525-9a66-55118cb0186d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RicciScalar", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"InnerProduct", "[", 
        RowBox[{
         RowBox[{"e", "[", "n", "]"}], ",", 
         RowBox[{"e", "[", "n", "]"}]}], "]"}], "*", 
       RowBox[{"InnerProduct", "[", 
        RowBox[{
         RowBox[{"e", "[", "n", "]"}], ",", 
         RowBox[{"RicciTetrad", "[", 
          RowBox[{"[", "n", "]"}], "]"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", 
    RowBox[{"\[Theta]", "->", 
     RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.911365464166379*^9, 3.911365495502802*^9}, {
   3.911365632340562*^9, 3.911365636782658*^9}, 3.9113687733859053`*^9, {
   3.911371797319874*^9, 3.911371801287408*^9}, 3.9115386476831503`*^9, {
   3.9360660497711363`*^9, 3.9360660534679937`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"c704a678-f55d-444b-a77c-06196907186b"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.911365598365391*^9, 3.911365846717007*^9, 3.91136703158394*^9, 
   3.911367620305563*^9, {3.9113687685736227`*^9, 3.9113687773091373`*^9}, 
   3.9113718024798317`*^9, 3.9113720623354683`*^9, 3.9114507506643887`*^9, 
   3.911451873535733*^9, 3.911451922626899*^9, 3.911453197129778*^9, 
   3.91145326974859*^9, 3.911453434572318*^9, 3.911453541297016*^9, 
   3.911539655072029*^9, 3.911541195830543*^9, 3.911626931169624*^9, 
   3.9182051185227757`*^9, 3.935723123414555*^9, 3.9360706469582787`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"de4111db-b4be-480f-a8ec-569a62d67876"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Einstein tensor", "Section",
 CellChangeTimes->{{3.909551568107811*^9, 
  3.909551572436393*^9}},ExpressionUUID->"bf217d0b-2b73-4176-9356-\
44824780e85b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EinsteinTetrad", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"ParallelTable", "[", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"RicciTetrad", "[", 
        RowBox[{"[", "m", "]"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], "RicciScalar", "*", 
        RowBox[{"e", "[", "m", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.909551579852914*^9, 3.909551671912263*^9}, {
  3.911371805752928*^9, 3.911371845728431*^9}, {3.936066057003035*^9, 
  3.936066058722547*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"a8425a1b-64e2-425b-b653-5ce2640cc780"],

Cell[TextData[{
 "Evaluating for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", " ", "=", 
    FractionBox["\[Pi]", "2"]}], TraditionalForm]],ExpressionUUID->
  "10c9b4d7-bd08-4e1f-a94d-7e05ab98f530"],
 ", for simplicity."
}], "Text",
 CellChangeTimes->{{3.911538540807068*^9, 3.911538583803188*^9}, {
  3.911538665345889*^9, 3.911538665723042*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"a98fa6d2-657b-4942-a934-487b4fa5101d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"coords", "[", 
      RowBox[{"[", "m", "]"}], "]"}], ",", "\"\< -> \>\"", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"EinsteinTetrad", "[", 
        RowBox[{"[", "m", "]"}], "]"}], "/.", 
       RowBox[{"\[Theta]", "->", 
        RowBox[{"\[Pi]", "/", "2"}]}]}], "//", "FullSimplify"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.909551682968296*^9, 3.9095516923842583`*^9}, {
   3.909560021073112*^9, 3.9095600236109257`*^9}, {3.9096402500529346`*^9, 
   3.909640250524211*^9}, {3.90964933883907*^9, 3.909649343649335*^9}, {
   3.911371849420197*^9, 3.911371850563425*^9}, {3.91137205273389*^9, 
   3.911372055572013*^9}, 3.911538650943001*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"7800a4fb-c983-4cbf-b3c7-932e76a7ee73"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"e", "[", "1", "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[$CellContext`t, " -> ", $CellContext`Q^2 $CellContext`r^(-4) 
   CliffordBasic`e[1]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9098055469686213`*^9, 3.909805705718961*^9, 
  3.909811494168086*^9, 3.9098116393322067`*^9, 3.9101542016212*^9, 
  3.910417247131867*^9, 3.911365871047567*^9, 3.911367621151235*^9, 
  3.911368785355747*^9, 3.911371854389646*^9, 3.911372062357319*^9, 
  3.911450750680531*^9, 3.911451873569993*^9, 3.911451922645018*^9, 
  3.91145319726082*^9, 3.911453269786415*^9, 3.911453434594836*^9, 
  3.911453541329973*^9, 3.911539707345872*^9, 3.911541198027231*^9, 
  3.911627220636809*^9, 3.918205406917821*^9, 3.935723412905697*^9, 
  3.936070649797641*^9},
 CellLabel->
  "During evaluation of \
In[37]:=",ExpressionUUID->"87dc2678-a71e-41ce-a692-9b9bc7e425ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SuperscriptBox["Q", "2"], " ", 
     RowBox[{"e", "[", "2", "]"}]}], 
    SuperscriptBox["r", "4"]]}],
  SequenceForm[$CellContext`r, " -> ", $CellContext`Q^2 $CellContext`r^(-4) 
   CliffordBasic`e[2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9098055469686213`*^9, 3.909805705718961*^9, 
  3.909811494168086*^9, 3.9098116393322067`*^9, 3.9101542016212*^9, 
  3.910417247131867*^9, 3.911365871047567*^9, 3.911367621151235*^9, 
  3.911368785355747*^9, 3.911371854389646*^9, 3.911372062357319*^9, 
  3.911450750680531*^9, 3.911451873569993*^9, 3.911451922645018*^9, 
  3.91145319726082*^9, 3.911453269786415*^9, 3.911453434594836*^9, 
  3.911453541329973*^9, 3.911539707345872*^9, 3.911541198027231*^9, 
  3.911627220636809*^9, 3.918205406917821*^9, 3.935723412905697*^9, 
  3.936070649807476*^9},
 CellLabel->
  "During evaluation of \
In[37]:=",ExpressionUUID->"0a783c70-b7aa-46e1-9768-bb24206d9569"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"e", "[", "3", "]"}]}], 
     SuperscriptBox["r", "4"]]}]}],
  SequenceForm[$CellContext`\[Theta], 
   " -> ", -$CellContext`Q^2 $CellContext`r^(-4) CliffordBasic`e[3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9098055469686213`*^9, 3.909805705718961*^9, 
  3.909811494168086*^9, 3.9098116393322067`*^9, 3.9101542016212*^9, 
  3.910417247131867*^9, 3.911365871047567*^9, 3.911367621151235*^9, 
  3.911368785355747*^9, 3.911371854389646*^9, 3.911372062357319*^9, 
  3.911450750680531*^9, 3.911451873569993*^9, 3.911451922645018*^9, 
  3.91145319726082*^9, 3.911453269786415*^9, 3.911453434594836*^9, 
  3.911453541329973*^9, 3.911539707345872*^9, 3.911541198027231*^9, 
  3.911627220636809*^9, 3.918205406917821*^9, 3.935723412905697*^9, 
  3.936070649824214*^9},
 CellLabel->
  "During evaluation of \
In[37]:=",ExpressionUUID->"ad249491-0b83-48e1-abc2-5dfe960ea322"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"e", "[", "4", "]"}]}], 
     SuperscriptBox["r", "4"]]}]}],
  SequenceForm[$CellContext`\[Phi], 
   " -> ", -$CellContext`Q^2 $CellContext`r^(-4) CliffordBasic`e[4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.9098055469686213`*^9, 3.909805705718961*^9, 
  3.909811494168086*^9, 3.9098116393322067`*^9, 3.9101542016212*^9, 
  3.910417247131867*^9, 3.911365871047567*^9, 3.911367621151235*^9, 
  3.911368785355747*^9, 3.911371854389646*^9, 3.911372062357319*^9, 
  3.911450750680531*^9, 3.911451873569993*^9, 3.911451922645018*^9, 
  3.91145319726082*^9, 3.911453269786415*^9, 3.911453434594836*^9, 
  3.911453541329973*^9, 3.911539707345872*^9, 3.911541198027231*^9, 
  3.911627220636809*^9, 3.918205406917821*^9, 3.935723412905697*^9, 
  3.936070649831114*^9},
 CellLabel->
  "During evaluation of \
In[37]:=",ExpressionUUID->"ec9ea3c3-00ca-4038-993d-0da1238368eb"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
PrintingStyleEnvironment->"Elegant",
WindowSize->{Full, Full},
WindowMargins->{{0, Automatic}, {0, Automatic}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrintingOptions->{"PaperOrientation"->"Portrait",
"PaperSize"->{850, 1202.857142857143}},
CellContext->Notebook,
FrontEndVersion->"14.0 for Mac OS X ARM (64-bit) (December 12, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"34c27208-6227-4b29-8447-edfe631960fe"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 661, 10, 98, "Title",ExpressionUUID->"5ed80a38-7e4d-460d-a7d7-4b6c0698337c"],
Cell[CellGroupData[{
Cell[1108, 29, 153, 3, 67, "Section",ExpressionUUID->"d6301719-3266-4b91-9521-888fc692f6b8"],
Cell[1264, 34, 429, 8, 58, "Text",ExpressionUUID->"410843f0-0d90-4cba-9d62-f4104c321ff1"],
Cell[1696, 44, 260, 4, 30, "Input",ExpressionUUID->"c756ce16-38ed-4286-be02-efddc2006da4"],
Cell[1959, 50, 163, 3, 35, "Text",ExpressionUUID->"1e12b8c9-b6cb-49e9-877f-7cc4b2c6b006"],
Cell[2125, 55, 248, 6, 30, "Input",ExpressionUUID->"7b408fdc-d3b4-4855-acc2-018e5ef35336"],
Cell[2376, 63, 196, 3, 35, "Text",ExpressionUUID->"65acbb5e-580a-4dd7-8466-dca75e508c5f"],
Cell[CellGroupData[{
Cell[2597, 70, 594, 13, 30, "Input",ExpressionUUID->"77778e80-afd7-448e-b420-d95b8dcca464"],
Cell[CellGroupData[{
Cell[3216, 87, 750, 12, 24, "Print",ExpressionUUID->"3ed27be0-0255-405b-a648-7ce822c8d759"],
Cell[3969, 101, 765, 13, 24, "Print",ExpressionUUID->"14817599-fb12-4768-bf11-6465c38ccdad"],
Cell[4737, 116, 767, 13, 24, "Print",ExpressionUUID->"3a5de306-c7f8-447a-be91-5f01293188cb"],
Cell[5507, 131, 765, 13, 24, "Print",ExpressionUUID->"f15575e6-bdac-4c32-9ca3-37d1f40be803"],
Cell[6275, 146, 867, 16, 24, "Print",ExpressionUUID->"e2392a13-099f-4120-8ae3-666d14281ba1"]
}, Open  ]]
}, Open  ]],
Cell[7169, 166, 284, 6, 35, "Text",ExpressionUUID->"5586ce33-2699-4293-a261-b3d18b3307cb"],
Cell[CellGroupData[{
Cell[7478, 176, 770, 18, 30, "Input",ExpressionUUID->"b9a46f4a-e368-482d-a2b7-eb330f8baf36"],
Cell[CellGroupData[{
Cell[8273, 198, 925, 19, 24, "Print",ExpressionUUID->"21b1400d-b128-46b5-9e79-35db604ae849"],
Cell[9201, 219, 1006, 22, 24, "Print",ExpressionUUID->"c2a7b5f9-ba67-4cea-b89a-9152250f1d45"],
Cell[10210, 243, 1004, 22, 24, "Print",ExpressionUUID->"66ff76bc-6185-4c2a-a2a5-c61884dae277"],
Cell[11217, 267, 1006, 22, 24, "Print",ExpressionUUID->"8b493eb2-2eb8-4411-b842-f6ffee562b4d"],
Cell[12226, 291, 1132, 26, 24, "Print",ExpressionUUID->"a0116b61-5faf-4795-9c4e-43c504696f20"],
Cell[13361, 319, 926, 19, 24, "Print",ExpressionUUID->"cba76a76-9efa-40dd-a9fd-49f4a1fb8751"],
Cell[14290, 340, 1004, 22, 24, "Print",ExpressionUUID->"4680d97d-2c44-4afa-b703-fd371c2b9f75"],
Cell[15297, 364, 1004, 22, 24, "Print",ExpressionUUID->"75d736a6-7ccb-4424-81df-2a6b13911968"],
Cell[16304, 388, 1132, 26, 24, "Print",ExpressionUUID->"985da97c-8917-4648-85f7-7765e5da3b9a"],
Cell[17439, 416, 928, 19, 24, "Print",ExpressionUUID->"9c172961-f725-41d7-8a2e-e0d65c4f82e8"],
Cell[18370, 437, 1004, 22, 24, "Print",ExpressionUUID->"79673c14-1d08-47c6-83b9-a6a34a1be757"],
Cell[19377, 461, 1134, 26, 24, "Print",ExpressionUUID->"1012c713-4229-4185-abcd-d4e6363b91ab"],
Cell[20514, 489, 926, 19, 24, "Print",ExpressionUUID->"8b5b804d-b4a2-437d-9b00-a41b90a40326"],
Cell[21443, 510, 1132, 26, 24, "Print",ExpressionUUID->"72c10ed7-4f8d-4a96-824b-34d795f91b15"],
Cell[22578, 538, 1132, 26, 24, "Print",ExpressionUUID->"a50ca11b-3c37-42c2-b861-fd7c9b70b536"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23771, 571, 345, 5, 69, "Chapter",ExpressionUUID->"18adf5b9-3e82-4bd7-876f-909cb52e348c"],
Cell[CellGroupData[{
Cell[24141, 580, 179, 3, 67, "Section",ExpressionUUID->"7438912c-1ae8-4480-bc43-95ddf1f5f9b2"],
Cell[24323, 585, 433, 13, 58, "Text",ExpressionUUID->"e947da39-bdcb-4400-9f6f-7a40f03c4192"],
Cell[24759, 600, 679, 19, 34, "Input",ExpressionUUID->"889e780b-b8f9-4e2a-89ae-e6d570366cd4"],
Cell[25441, 621, 527, 10, 30, "Input",ExpressionUUID->"00aa77fa-1c39-4c54-92ce-f36a48baa373"],
Cell[25971, 633, 1208, 35, 109, "Input",ExpressionUUID->"3a4b13f5-dbda-4998-831d-61fce0018c44"],
Cell[27182, 670, 799, 20, 38, "Text",ExpressionUUID->"fffa9754-ad24-47ba-9df4-d37eb8c347b2"],
Cell[CellGroupData[{
Cell[28006, 694, 2500, 64, 85, "Input",ExpressionUUID->"b79cdfd6-b2bb-4a7d-9cfa-21379f12524a"],
Cell[30509, 760, 4788, 141, 197, "Output",ExpressionUUID->"58c1feb9-434e-4173-bee8-0e072c201109"]
}, Open  ]],
Cell[35312, 904, 2187, 58, 38, "Text",ExpressionUUID->"3aa168ac-0130-49dd-accf-d0af2c76b271"],
Cell[CellGroupData[{
Cell[37524, 966, 692, 13, 52, "Input",ExpressionUUID->"112306e7-a78f-4fe8-a480-03bc1ed38411"],
Cell[38219, 981, 5137, 146, 197, "Output",ExpressionUUID->"ac947e66-6520-4808-bdbe-2981db489362"]
}, Open  ]],
Cell[43371, 1130, 2145, 55, 38, "Text",ExpressionUUID->"05f1d855-d8a6-43aa-bccf-4a0726b84e34"],
Cell[45519, 1187, 189, 3, 35, "Text",ExpressionUUID->"0d5fea13-5359-4f11-ba70-3722528fce58"],
Cell[45711, 1192, 550, 12, 30, "Input",ExpressionUUID->"a298c392-17ee-48d6-9261-97771ca7dac8"],
Cell[46264, 1206, 252, 6, 35, "Text",ExpressionUUID->"68e03deb-2918-4600-b167-63702fab5921"],
Cell[CellGroupData[{
Cell[46541, 1216, 1489, 35, 136, "Input",ExpressionUUID->"480adeff-e167-414e-b778-f15332493ef4"],
Cell[48033, 1253, 3881, 115, 155, "Output",ExpressionUUID->"a6ed264a-5b3e-4a15-8035-932e8f4b23ac"]
}, Open  ]],
Cell[51929, 1371, 170, 3, 35, "Text",ExpressionUUID->"57430f66-8841-46cf-973b-8157e1873327"],
Cell[52102, 1376, 204, 4, 30, "Input",ExpressionUUID->"d7259ab9-2e54-412b-936a-0f3f008b5636"],
Cell[52309, 1382, 205, 3, 35, "Text",ExpressionUUID->"371695c6-333a-4304-81d7-beff22173234"],
Cell[CellGroupData[{
Cell[52539, 1389, 307, 8, 30, "Input",ExpressionUUID->"ae7f316e-27b1-48b9-af44-fa1c5c819a59"],
Cell[52849, 1399, 2251, 72, 151, "Output",ExpressionUUID->"e65183b6-6c3d-479b-81f9-e5afee38a562"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55137, 1476, 334, 8, 30, "Input",ExpressionUUID->"5c48ab59-91c8-46cc-a41d-99cf962fb3d0"],
Cell[55474, 1486, 3584, 115, 167, "Output",ExpressionUUID->"337cd1ff-2c6f-4a92-9dc9-886fe1c3b66e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59107, 1607, 168, 3, 67, "Section",ExpressionUUID->"2a7eeb07-0aae-4e6c-bd32-4b041fd169e7"],
Cell[59278, 1612, 429, 8, 35, "Text",ExpressionUUID->"63b83a11-1b7d-406f-83f4-f222e889ab0b"],
Cell[59710, 1622, 498, 13, 51, "Text",ExpressionUUID->"ce299571-c36a-4c1e-a69e-861fd58fb3da"],
Cell[CellGroupData[{
Cell[60233, 1639, 459, 7, 45, "Subsubsection",ExpressionUUID->"1a36299f-8ebd-46ae-b977-577dbdb468e9"],
Cell[60695, 1648, 554, 10, 35, "Text",ExpressionUUID->"093bf9a2-4d0c-469a-afdf-09fbb8b221f1"],
Cell[61252, 1660, 1432, 35, 51, "Text",ExpressionUUID->"59278906-7acb-47b6-9073-121f805fa702"],
Cell[62687, 1697, 172, 3, 35, "Text",ExpressionUUID->"0fcca95d-7942-4dbc-85d7-bc9d6ed0f594"],
Cell[62862, 1702, 946, 24, 53, "Text",ExpressionUUID->"7af4433b-9477-4f3b-926c-71724db5bef9"],
Cell[63811, 1728, 377, 11, 35, "Text",ExpressionUUID->"7d985cad-731e-4835-94dd-6e5b64a5bf0d"],
Cell[64191, 1741, 4188, 95, 360, "Input",ExpressionUUID->"c669d205-d1c0-488f-8347-a6659edba804"],
Cell[68382, 1838, 426, 11, 56, "Text",ExpressionUUID->"924f3999-89fe-4d76-b049-94639b7ec745"],
Cell[CellGroupData[{
Cell[68833, 1853, 1326, 25, 30, "Input",ExpressionUUID->"0f691f31-9336-46ac-ad48-171305e61658"],
Cell[CellGroupData[{
Cell[70184, 1882, 1423, 30, 45, "Print",ExpressionUUID->"cf9f938a-8330-481e-a43c-dd460ff827e7"],
Cell[71610, 1914, 1833, 43, 60, "Print",ExpressionUUID->"8f88aad9-9bda-4d83-a00d-7ed23228d107"],
Cell[73446, 1959, 1787, 41, 58, "Print",ExpressionUUID->"b1f13844-ca59-46d4-b675-e8d75eff9c6d"],
Cell[75236, 2002, 2338, 57, 59, "Print",ExpressionUUID->"0ca3ea88-141f-4157-bb3a-cf36deeaac7f"]
}, Open  ]],
Cell[77589, 2062, 967, 15, 34, "Output",ExpressionUUID->"a3f5b54f-687a-4847-b3d3-2e56cb1edb48"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78605, 2083, 446, 7, 45, "Subsubsection",ExpressionUUID->"fd8b9c44-b406-4b92-a908-cbd3a724063e"],
Cell[79054, 2092, 520, 10, 35, "Text",ExpressionUUID->"828b22ea-5046-4a1b-a9f7-db72c9da0467"],
Cell[79577, 2104, 1331, 31, 51, "Text",ExpressionUUID->"3c5a0c95-0250-432d-b8cc-ba029e11adcc"],
Cell[80911, 2137, 1076, 27, 53, "Text",ExpressionUUID->"c5942b9a-4d53-47a9-9251-90986b343380"],
Cell[81990, 2166, 2212, 57, 87, "Text",ExpressionUUID->"5db0f984-1071-460b-987e-6d6f84f15b4c"],
Cell[84205, 2225, 2123, 52, 199, "Input",ExpressionUUID->"501afe5d-4e1d-4158-8428-f387f71b01f9"],
Cell[86331, 2279, 2352, 55, 188, "Input",ExpressionUUID->"cd41f063-4e33-487d-b4ca-69e069d00143"],
Cell[CellGroupData[{
Cell[88708, 2338, 1156, 24, 30, "Input",ExpressionUUID->"007b12a7-36bd-472f-bbe3-8717c5e3fbc0"],
Cell[CellGroupData[{
Cell[89889, 2366, 2227, 42, 45, "Print",ExpressionUUID->"28446f0f-a681-4366-9fec-d38cfe30f292"],
Cell[92119, 2410, 2637, 55, 60, "Print",ExpressionUUID->"6e970fe8-a271-455b-a36b-a8e220b02bcf"],
Cell[94759, 2467, 2593, 53, 58, "Print",ExpressionUUID->"d0a82c98-c8da-4878-add9-4241a13c9e2c"],
Cell[97355, 2522, 3142, 69, 59, "Print",ExpressionUUID->"f039ae83-b078-486f-9c4c-9920b83ec24d"]
}, Open  ]],
Cell[100512, 2594, 207, 4, 34, "Output",ExpressionUUID->"aaba5c8a-08c4-4a57-aa44-946111cffcf4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100780, 2605, 162, 3, 67, "Section",ExpressionUUID->"f6c46e41-34cb-4be7-90a1-bca0267981da"],
Cell[CellGroupData[{
Cell[100967, 2612, 180, 3, 54, "Subsection",ExpressionUUID->"f89f91c8-2abb-4e64-8acc-fe314e433d0b"],
Cell[101150, 2617, 1105, 31, 36, "Text",ExpressionUUID->"5faf0305-7e52-451d-8b3a-468dce16c559"],
Cell[102258, 2650, 1731, 43, 146, "Input",ExpressionUUID->"d50ee889-7227-4e91-973d-4c781542acb0"],
Cell[103992, 2695, 447, 12, 56, "Text",ExpressionUUID->"8abe56ec-e308-4dd8-999a-fb45aa2d1db7"],
Cell[CellGroupData[{
Cell[104464, 2711, 1190, 29, 30, "Input",ExpressionUUID->"d8a480af-b0c5-4d93-85a1-b691c4ade7aa"],
Cell[CellGroupData[{
Cell[105679, 2744, 1562, 28, 24, "Print",ExpressionUUID->"334ec3f3-cbc6-4103-b49c-0798459a5c9b"],
Cell[107244, 2774, 3851, 95, 91, "Print",ExpressionUUID->"88e1021b-6eef-4dbc-b484-3c68977d7f24"],
Cell[111098, 2871, 3520, 87, 59, "Print",ExpressionUUID->"9473d945-a9b5-4821-a285-d46bce36c278"],
Cell[114621, 2960, 2500, 57, 59, "Print",ExpressionUUID->"5ab5ba4f-2155-440e-91c7-08f7fe97daca"],
Cell[117124, 3019, 1562, 28, 24, "Print",ExpressionUUID->"c5a18385-5cef-45dd-ad11-383f929d23c4"],
Cell[118689, 3049, 2522, 58, 65, "Print",ExpressionUUID->"de7e822b-fbad-45cb-8475-83b8c50b2107"],
Cell[121214, 3109, 3941, 101, 79, "Print",ExpressionUUID->"769498f5-da5a-4e91-b2cf-cd5e8932fa4c"],
Cell[125158, 3212, 1590, 28, 24, "Print",ExpressionUUID->"f140927b-d92e-47c8-ab84-e5a5eba44d84"],
Cell[126751, 3242, 3313, 78, 59, "Print",ExpressionUUID->"c08d868c-e4ad-4f3e-b7b4-8f9d51185971"],
Cell[130067, 3322, 1582, 28, 24, "Print",ExpressionUUID->"4975d07a-1ce4-41f8-9ab7-eb5113506f3d"]
}, Open  ]]
}, Open  ]],
Cell[131676, 3354, 667, 18, 37, "Text",ExpressionUUID->"202ae255-c756-4538-8415-8de20ec30343"],
Cell[132346, 3374, 2025, 52, 136, "Input",ExpressionUUID->"e33a7218-1623-4cec-a1a3-940c0d5c85e5"],
Cell[134374, 3428, 447, 12, 56, "Text",ExpressionUUID->"7d306ba9-c8ad-4556-90d9-44c4a7a7ea40"],
Cell[CellGroupData[{
Cell[134846, 3444, 854, 24, 30, "Input",ExpressionUUID->"86d86e3c-77e6-4636-b383-649001c2c5dc"],
Cell[CellGroupData[{
Cell[135725, 3472, 478, 12, 24, "Print",ExpressionUUID->"f3d907ab-25b3-4948-a241-898aed23727e"],
Cell[136206, 3486, 1747, 48, 45, "Print",ExpressionUUID->"d1431793-341f-456c-a2ed-a284e6a247fd"],
Cell[137956, 3536, 1739, 48, 45, "Print",ExpressionUUID->"e0288fc3-b4d0-473a-9b2e-a7259d6ff224"],
Cell[139698, 3586, 851, 24, 45, "Print",ExpressionUUID->"ebea3abe-e205-4e61-8a78-2dab565b269a"],
Cell[140552, 3612, 480, 12, 24, "Print",ExpressionUUID->"bf356970-2ee4-4f15-8182-07ec4fecc36d"],
Cell[141035, 3626, 855, 24, 45, "Print",ExpressionUUID->"ef26c637-c98b-4eb2-8276-704fc7ccbafe"],
Cell[141893, 3652, 1905, 53, 45, "Print",ExpressionUUID->"a9ea4694-de74-4436-ad8a-7fb48fb0dbc3"],
Cell[143801, 3707, 506, 12, 24, "Print",ExpressionUUID->"a273edf4-1c56-40ba-aea4-c428af2de455"],
Cell[144310, 3721, 1901, 52, 45, "Print",ExpressionUUID->"300b74c1-984c-46f0-93f6-9f3cec1d2a3d"],
Cell[146214, 3775, 498, 12, 24, "Print",ExpressionUUID->"feb714fc-8012-46c7-a6f9-f5272cd85bac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[146773, 3794, 229, 4, 54, "Subsection",ExpressionUUID->"d564bb69-0298-4623-a723-d4b7b6557ee6"],
Cell[147005, 3800, 889, 26, 37, "Text",ExpressionUUID->"a90b907f-a926-4f5f-b213-3695bab10e01"],
Cell[147897, 3828, 1382, 34, 94, "Input",ExpressionUUID->"fc78e460-889f-4ca6-8c13-83c1fac13443"],
Cell[149282, 3864, 447, 12, 56, "Text",ExpressionUUID->"5c7ec34d-86df-4e6a-9e6b-fcb056f08173"],
Cell[CellGroupData[{
Cell[149754, 3880, 1273, 32, 30, "Input",ExpressionUUID->"4b258e55-b336-4e24-8149-a3284d77387c"],
Cell[CellGroupData[{
Cell[151052, 3916, 426, 11, 24, "Print",ExpressionUUID->"29c79a00-abe5-4769-bff4-e3e0a4757dda"],
Cell[151481, 3929, 810, 23, 45, "Print",ExpressionUUID->"3efd2946-c9b8-4fef-b74b-2eaa4f3239d4"],
Cell[152294, 3954, 803, 23, 45, "Print",ExpressionUUID->"c79271be-c401-4592-8e24-7e6d5cd6b7d5"],
Cell[153100, 3979, 799, 23, 45, "Print",ExpressionUUID->"0a55bdad-06fa-4070-a2d6-6ec7f4b6e3c4"],
Cell[153902, 4004, 426, 11, 24, "Print",ExpressionUUID->"2fd2b9a3-c9ce-4d5e-9cd6-e93d00257a8f"],
Cell[154331, 4017, 802, 23, 45, "Print",ExpressionUUID->"4edebca3-b399-454e-a9b7-3945d63cc405"],
Cell[155136, 4042, 799, 23, 45, "Print",ExpressionUUID->"60bbf3f2-3c04-4cac-8499-889e629c0ead"],
Cell[155938, 4067, 454, 11, 24, "Print",ExpressionUUID->"e71bf316-4be5-4c38-8ee2-22ed77110d2a"],
Cell[156395, 4080, 803, 22, 45, "Print",ExpressionUUID->"080a2a37-0272-43d1-bc72-7179686a7ef8"],
Cell[157201, 4104, 446, 11, 24, "Print",ExpressionUUID->"fb36644f-b623-4533-97ea-c81c038e6487"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[157720, 4123, 149, 3, 67, "Section",ExpressionUUID->"7f91ddbc-4577-49df-a5d3-12bad4208f23"],
Cell[CellGroupData[{
Cell[157894, 4130, 178, 3, 54, "Subsection",ExpressionUUID->"9785fbb3-6186-4b5b-8772-08178c3634da"],
Cell[158075, 4135, 673, 15, 37, "Text",ExpressionUUID->"a8d15346-13ae-4d27-b428-6b810de34994"],
Cell[158751, 4152, 1784, 43, 157, "Input",ExpressionUUID->"5c6dd670-7ed8-44f7-87d0-f13f68c8f6e7"],
Cell[160538, 4197, 447, 12, 56, "Text",ExpressionUUID->"ba5d607a-b2d7-4e8d-ae09-1e0178701d6a"],
Cell[CellGroupData[{
Cell[161010, 4213, 806, 19, 30, "Input",ExpressionUUID->"85dde8dc-8fb8-4f93-9e48-b9cbbef67d6d"],
Cell[CellGroupData[{
Cell[161841, 4236, 1826, 47, 65, "Print",ExpressionUUID->"1a6be25d-7a93-40da-b700-5b60714e203a"],
Cell[163670, 4285, 1615, 42, 63, "Print",ExpressionUUID->"dea724dc-ee19-43bc-aea4-527bd9acaf93"],
Cell[165288, 4329, 1073, 26, 48, "Print",ExpressionUUID->"8272070b-5d79-4c0c-9002-e67c31213cd2"],
Cell[166364, 4357, 2086, 53, 65, "Print",ExpressionUUID->"10b0bf7e-47e6-4ef1-a8a7-c992bfd0c54a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168511, 4417, 197, 3, 54, "Subsection",ExpressionUUID->"d3d7e811-fa6a-41d0-9045-e2f06e5e4f53"],
Cell[168711, 4422, 645, 16, 35, "Text",ExpressionUUID->"7f69d196-2423-4773-a22d-f0c583865f55"],
Cell[169359, 4440, 1363, 32, 115, "Input",ExpressionUUID->"4ff482a6-5d7f-4445-9370-ea10ceb13995"],
Cell[170725, 4474, 447, 12, 56, "Text",ExpressionUUID->"05f07783-64ab-4c00-90cc-d82e1a54a9f3"],
Cell[CellGroupData[{
Cell[171197, 4490, 905, 22, 30, "Input",ExpressionUUID->"c734cad6-3d0e-4cd0-99f1-b4bd231fa721"],
Cell[CellGroupData[{
Cell[172127, 4516, 893, 19, 43, "Print",ExpressionUUID->"bbcb1644-be4b-45b2-b391-8389e4b7bc86"],
Cell[173023, 4537, 897, 19, 43, "Print",ExpressionUUID->"95931fdf-4649-42a5-aec2-020341e23b53"],
Cell[173923, 4558, 937, 21, 43, "Print",ExpressionUUID->"0871c349-2881-4253-9a88-e493fd4cf1c7"],
Cell[174863, 4581, 933, 21, 43, "Print",ExpressionUUID->"5043daac-e169-4c94-82f0-7c1ce4248380"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[175869, 4610, 157, 3, 67, "Section",ExpressionUUID->"e44d81de-26d4-4a23-b4c9-37b0b22ed383"],
Cell[176029, 4615, 447, 12, 56, "Text",ExpressionUUID->"8604d87e-2854-4525-9a66-55118cb0186d"],
Cell[CellGroupData[{
Cell[176501, 4631, 1069, 25, 73, "Input",ExpressionUUID->"c704a678-f55d-444b-a77c-06196907186b"],
Cell[177573, 4658, 630, 9, 34, "Output",ExpressionUUID->"de4111db-b4be-480f-a8ec-569a62d67876"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[178252, 4673, 160, 3, 67, "Section",ExpressionUUID->"bf217d0b-2b73-4176-9356-44824780e85b"],
Cell[178415, 4678, 750, 18, 104, "Input",ExpressionUUID->"a8425a1b-64e2-425b-b653-5ce2640cc780"],
Cell[179168, 4698, 447, 12, 56, "Text",ExpressionUUID->"a98fa6d2-657b-4942-a934-487b4fa5101d"],
Cell[CellGroupData[{
Cell[179640, 4714, 911, 20, 30, "Input",ExpressionUUID->"7800a4fb-c983-4cbf-b3c7-932e76a7ee73"],
Cell[CellGroupData[{
Cell[180576, 4738, 1053, 22, 43, "Print",ExpressionUUID->"87dc2678-a71e-41ce-a692-9b9bc7e425ab"],
Cell[181632, 4762, 1053, 22, 43, "Print",ExpressionUUID->"0a783c70-b7aa-46e1-9768-bb24206d9569"],
Cell[182688, 4786, 1095, 24, 43, "Print",ExpressionUUID->"ad249491-0b83-48e1-abc2-5dfe960ea322"],
Cell[183786, 4812, 1091, 24, 43, "Print",ExpressionUUID->"ec9ea3c3-00ca-4038-993d-0da1238368eb"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)