Schwarzschild.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    165799,       3972]
NotebookOptionsPosition[    148417,       3704]
NotebookOutlinePosition[    149018,       3726]
CellTagsIndexPosition[    148975,       3723]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Schwarzschild 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.9396081098660307`*^9}, {3.939608712862268*^9, 
   3.9396087159589787`*^9}, 
   3.939608747916316*^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.9360681928689604`*^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.936069112228739*^9, 
  3.939608724766698*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"4235ad80-1a8e-4037-b373-f812239aea9e"],

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.936069112228739*^9, 
  3.93960872476919*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"17555cba-e9ec-47ae-9cc2-56527b9b8daa"],

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.936069112228739*^9, 
  3.939608724772793*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"73ddc529-9dd6-4bd1-9091-a52a5f16316c"],

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.936069112228739*^9, 
  3.9396087247739277`*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"51377724-8283-47af-9cf1-19fa100aa040"],

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.936069112228739*^9, 
  3.939608724775096*^9},
 CellLabel->
  "During evaluation of \
In[3]:=",ExpressionUUID->"3c63950d-935e-4fc0-a705-9a4543818739"]
}, 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.936068201674989*^9, 3.936068203867583*^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, 3.939608724792263*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"7c90aa05-8813-408e-8bb5-96a93baa77a1"],

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.93606911223497*^9, 3.939608724794305*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"26714ef4-c97b-46df-890e-e7c1f6b32b58"],

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.93606911223497*^9, 3.939608724797544*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"ef69f45f-bee8-4dfc-9110-3d01b23690fc"],

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.93606911223497*^9, 3.939608724798655*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"4cb75180-365a-4fb2-988f-60c56226efc9"],

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.93606911223497*^9, 3.939608724799687*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"3cb19688-4d2a-45d6-b158-38ec72aeeabb"],

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.93606911223497*^9, 3.939608724800764*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"2bdd3f24-292e-40df-bc7d-1c74c5da046f"],

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.93606911223497*^9, 3.939608724801861*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"46e6e831-b856-466b-9e09-6247f1d87cce"],

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.93606911223497*^9, 3.939608724802958*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"27952b98-4b99-4564-9e75-70cbf9ffe2f4"],

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.93606911223497*^9, 3.9396087248040867`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"713fd84f-ad6e-478d-9686-02f54a3c2c9d"],

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.93606911223497*^9, 3.9396087248052187`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"3dac0b44-091b-4f2e-b916-f1ce69bf4877"],

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.93606911223497*^9, 3.939608724806295*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"cdffeb08-d72c-4853-80cc-9f28be19a3b0"],

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.93606911223497*^9, 3.93960872480744*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"c3ba95d6-f883-457c-8f5a-47c20ebe4883"],

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.93606911223497*^9, 3.939608724808447*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"89bbfd04-2682-490a-92bf-79f359d14308"],

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.93606911223497*^9, 3.9396087248095093`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"a97e02ad-7181-4bc0-95e1-7419e97da2a9"],

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.93606911223497*^9, 3.939608724810701*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"42db556a-efb7-400e-94f1-d2984b2934da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Schwarzschild 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}, {3.939608706958273*^9, 
   3.939608710076419*^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 Schwarzschild ",
 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}, {3.9396087015067*^9, 
  3.939608704177023*^9}},ExpressionUUID->"e947da39-bdcb-4400-9f6f-\
7a40f03c4192"],

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}, {
   3.939608764557508*^9, 
   3.939608765579494*^9}},ExpressionUUID->"00aa77fa-1c39-4c54-92ce-\
f36a48baa373"],

Cell["rs is the Schwarzschild radius rs = 2GM/c^2", "Text",
 CellChangeTimes->{{3.939608768675349*^9, 
  3.939608814603437*^9}},ExpressionUUID->"e4da7367-dd87-44b7-b934-\
fcb28702cc98"],

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[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["rs", "r"]}], ")"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["rs", "r"]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}]}], "]"}], ",", "r", ",", 
      RowBox[{"r", "*", 
       RowBox[{"Sin", "[", "\[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}, {3.939608687146906*^9, 
  3.9396086882500887`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"b79cdfd6-b2bb-4a7d-9cfa-21379f12524a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox["rs", "r"]}]], "0", "0", "0"},
     {"0", 
      SqrtBox[
       FractionBox["1", 
        RowBox[{"1", "-", 
         FractionBox["rs", "r"]}]]], "0", "0"},
     {"0", "0", "r", "0"},
     {"0", "0", "0", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[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.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, 3.939608724847575*^9},
 CellLabel->
  "Out[7]//MatrixForm=",ExpressionUUID->"f7b95e6d-c606-4a4a-b355-\
c5a4e849b403"]
}, 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[8]:=",ExpressionUUID->"112306e7-a78f-4fe8-a480-03bc1ed38411"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       SqrtBox[
        RowBox[{"1", "-", 
         FractionBox["rs", "r"]}]]], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SqrtBox[
        FractionBox["r", 
         RowBox[{"r", "-", "rs"}]]]], "0", "0"},
     {"0", "0", 
      FractionBox["1", "r"], "0"},
     {"0", "0", "0", 
      FractionBox[
       RowBox[{"Csc", "[", "\[Theta]", "]"}], "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.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.935721168497381*^9, 3.9358116854578753`*^9, 
   3.9360691124813347`*^9, 3.939608724878837*^9},
 CellLabel->
  "Out[9]//MatrixForm=",ExpressionUUID->"ef0054d2-b697-4452-a7ea-\
ac34c894f592"]
}, 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[10]:=",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[11]:=",ExpressionUUID->"480adeff-e167-414e-b778-f15332493ef4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "-", 
       FractionBox["rs", "r"]}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["r", 
        RowBox[{"r", "-", "rs"}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.924316989502488*^9, 3.924320537368683*^9, 
  3.935721168610737*^9, 3.935811685559408*^9, 3.936069112566239*^9, 
  3.939608724892932*^9},
 CellLabel->
  "Out[12]//MatrixForm=",ExpressionUUID->"8650acae-df1b-4a92-b722-\
8979c95adf5a"]
}, 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[13]:=",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[14]:=",ExpressionUUID->"ae7f316e-27b1-48b9-af44-fa1c5c819a59"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "-", 
       FractionBox["rs", "r"]}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["r", 
        RowBox[{"r", "-", "rs"}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       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, 3.939608724900179*^9},
 CellLabel->
  "Out[14]//MatrixForm=",ExpressionUUID->"7f62dd40-d5c2-476b-8209-\
2fcd7769a203"]
}, 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[15]:=",ExpressionUUID->"5c48ab59-91c8-46cc-a41d-99cf962fb3d0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["r", 
       RowBox[{"r", "-", "rs"}]], "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox["rs", "r"]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["r", "2"]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        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.924323021722959*^9, 3.935721168664431*^9, 
  3.9358116856049833`*^9, 3.936069112613246*^9, 3.93960872491293*^9},
 CellLabel->
  "Out[15]//MatrixForm=",ExpressionUUID->"039f45a4-3d96-47f5-93ab-\
fb3ea8b16bc3"]
}, 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[16]:=",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[17]:=",ExpressionUUID->"0f691f31-9336-46ac-ad48-171305e61658"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SqrtBox[
       FractionBox["r", 
        RowBox[{"r", "-", "rs"}]]], " ", "rs", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox["rs", "r"]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}]]}]}],
  SequenceForm[
  1, " -> ", 
   Rational[-1, 
     2] $CellContext`r^(-2) ($CellContext`r/($CellContext`r - \
$CellContext`rs))^
    Rational[1, 2] $CellContext`rs (1 - $CellContext`r^(-1) $CellContext`rs)^
    Rational[1, 2] 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, 
   3.939608725059781*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"69982367-44ec-429a-b13b-cddf819badbe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[2, " -> ", 0],
  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, 
   3.939608725147296*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"fe85d176-ec43-46fe-9650-66103bb1794e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3"}], "]"}], 
    SqrtBox[
     FractionBox["r", 
      RowBox[{"r", "-", "rs"}]]]]}],
  SequenceForm[
  3, " -> ", ($CellContext`r/($CellContext`r - $CellContext`rs))^
    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.9360691127299347`*^9, 
   3.939608725246168*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"ed9806ab-1eb3-42c8-9351-bb41eeada85e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "4"}], "]"}], 
    SqrtBox[
     FractionBox["r", 
      RowBox[{"r", "-", "rs"}]]]]}],
  SequenceForm[
  4, " -> ", ($CellContext`r/($CellContext`r - $CellContext`rs))^
    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.9360691127299347`*^9, 
   3.939608725339046*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"bd3cbe7d-86d3-4970-99f4-db29591a573d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.417232`", ",", "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.9360691132812643`*^9, 
   3.939608725341215*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"f53b9a83-9076-4971-853e-9e07fd0060e1"]
}, 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.936066180849322*^9}},
 CellLabel->"In[18]:=",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.936066093264643*^9, 3.9360661243718762`*^9}},
 CellLabel->"In[19]:=",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[20]:=",ExpressionUUID->"007b12a7-36bd-472f-bbe3-8717c5e3fbc0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SqrtBox[
       FractionBox["r", 
        RowBox[{"r", "-", "rs"}]]], " ", "rs", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox["rs", "r"]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}]]}]}],
  SequenceForm[
  1, " -> ", 
   Rational[-1, 
     2] $CellContext`r^(-2) ($CellContext`r/($CellContext`r - \
$CellContext`rs))^
    Rational[1, 2] $CellContext`rs (1 - $CellContext`r^(-1) $CellContext`rs)^
    Rational[1, 2] 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.936069118909064*^9, 3.939608728488841*^9},
 CellLabel->
  "During evaluation of \
In[20]:=",ExpressionUUID->"933e4ffa-a7a3-435c-80d9-993f7d289a30"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[2, " -> ", 0],
  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.936069118909064*^9, 3.939608728492918*^9},
 CellLabel->
  "During evaluation of \
In[20]:=",ExpressionUUID->"824cb868-9b1b-4a71-9d06-c2c25c9ebfd4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "3"}], "]"}], 
    SqrtBox[
     FractionBox["r", 
      RowBox[{"r", "-", "rs"}]]]]}],
  SequenceForm[
  3, " -> ", ($CellContext`r/($CellContext`r - $CellContext`rs))^
    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.936069118909064*^9, 3.9396087284963293`*^9},
 CellLabel->
  "During evaluation of \
In[20]:=",ExpressionUUID->"a46b7fca-048a-4f4d-adeb-bb246d78193e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"e", "[", 
     RowBox[{"2", ",", "4"}], "]"}], 
    SqrtBox[
     FractionBox["r", 
      RowBox[{"r", "-", "rs"}]]]]}],
  SequenceForm[
  4, " -> ", ($CellContext`r/($CellContext`r - $CellContext`rs))^
    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.936069118909064*^9, 3.939608728497484*^9},
 CellLabel->
  "During evaluation of \
In[20]:=",ExpressionUUID->"75831c05-31e6-4236-a588-2c3ef7a90d6b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.000395`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.936069118933686*^9, 3.939608728498678*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"0d0be346-f846-4d90-b3a9-e6045150d06c"]
}, 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.936066080679415*^9, 3.936066085229573*^9}, {3.93606810528009*^9, 
   3.93606810687585*^9}},
 CellLabel->"In[21]:=",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[22]:=",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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728580741*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"90c48c9b-1ea1-42a4-be08-f4fc19eb2325"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SqrtBox[
       FractionBox["r", 
        RowBox[{"r", "-", "rs"}]]], " ", "rs", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox["rs", "r"]}]], " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], 
     SuperscriptBox["r", "3"]]}]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", -$CellContext`r^(-3) ($CellContext`r/($CellContext`r - \
$CellContext`rs))^
    Rational[1, 2] $CellContext`rs (1 - $CellContext`r^(-1) $CellContext`rs)^
    Rational[1, 2] CliffordBasic`e[1, 2]],
  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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728591926*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"57fd82f2-ea41-41e5-9b25-196779024596"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox["rs", "r"]}]], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-2) $CellContext`rs (
     1 - $CellContext`r^(-1) $CellContext`rs)^Rational[1, 2] 
   CliffordBasic`e[1, 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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728611038*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"3e86247d-e915-4f02-9e80-2c5c703651c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox["rs", "r"]}]], " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-2) $CellContext`rs (
     1 - $CellContext`r^(-1) $CellContext`rs)^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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728613324*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"231dbfe6-3727-4ae7-8e70-3f75683e50b0"],

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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.9396087286145353`*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"dd2e3f17-b582-4b7b-9376-79f5622d4d51"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SqrtBox[
      FractionBox["r", 
       RowBox[{"r", "-", "rs"}]]], " ", "rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 
     2] $CellContext`r^(-2) ($CellContext`r/($CellContext`r - \
$CellContext`rs))^Rational[1, 2] $CellContext`rs 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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.9396087286220818`*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"c382db9e-e0d3-4c7e-9ca6-45c80afab1e2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{
     SqrtBox[
      FractionBox["r", 
       RowBox[{"r", "-", "rs"}]]], " ", "rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 
     2] $CellContext`r^(-2) ($CellContext`r/($CellContext`r - \
$CellContext`rs))^Rational[1, 2] $CellContext`rs 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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.93960872862984*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"92a18ea8-ebc3-472e-981b-7ef44898ddaa"],

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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.9396087286317883`*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"408b7613-f0cd-45a7-bc12-e589b5b74b2b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"rs", " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}], "r"]}]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", -$CellContext`r^(-1) $CellContext`rs 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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728633007*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"24bc8f41-c0a6-45ff-8729-f86897333942"],

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.911625465280799*^9, 
   3.918200730792755*^9, 3.918202423233912*^9, 3.935721471502554*^9, 
   3.935812020064953*^9, 3.936069417127877*^9, 3.939608728634123*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"331019b8-2aec-4179-8a52-b9ba448c5f75"]
}, 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[23]:=",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[24]:=",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, 3.93960872877393*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"122287f0-77a1-4ffe-9030-ddd00975544d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"rs", " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], 
     SuperscriptBox["r", "3"]]}]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", -$CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728776224*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"dfb59d8d-c33c-4d2b-bcd0-68c64b1f45ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728779345*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"4daef3cd-1a6e-465e-a5e2-110ac4fea0e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728780507*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"38796fe0-d9f1-45dd-bb73-ca8876198d4a"],

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.936069439223634*^9, 3.939608728781602*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"659c2677-034d-43c6-b3d1-feb727861ed1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728782818*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"09b6cf93-85c6-468b-a2d6-5507bc470361"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[2, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728784017*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"9214c33b-7106-44ce-ac07-814cd56d66f8"],

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.936069439223634*^9, 3.939608728785121*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"2f2c0aa7-eb63-41a0-bc31-1b8aaa16ca95"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"rs", " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}], 
     SuperscriptBox["r", "3"]]}]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", -$CellContext`r^(-3) $CellContext`rs CliffordBasic`e[3, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.935814592825006*^9, 3.9358146079612103`*^9}, 
   3.935816246256627*^9, 3.936069439223634*^9, 3.939608728786214*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"3f1e61c7-0a40-4690-8f07-61e1f6e999f7"],

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.936069439223634*^9, 3.939608728787341*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"53dd6d74-71bb-4eb1-a2f6-5a845cdb9124"]
}, 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[25]:=",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[26]:=",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, 
  3.939608728818521*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"1d1ea7f1-70e8-4cbe-ba27-3195a3b1189b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "r"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"rs", " ", 
      RowBox[{"e", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], 
     SuperscriptBox["r", "3"]]}]}],
  SequenceForm[{$CellContext`t, $CellContext`r}, 
   " -> ", -$CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.939608728820633*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"31900813-6c3f-4076-9074-7a57714df413"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.939608728823638*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"97ca2f06-a8fe-4622-89b8-cd1085f7232a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"t", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"1", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`t, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[1, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.93960872882472*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"167664da-5f75-4cba-bbe7-ff171f544c71"],

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.936069443856166*^9, 
  3.939608728825851*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"98ad5e70-97c4-43f4-9b5f-586bc568d652"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Theta]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[2, 3]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.9396087288269444`*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"bfddc35d-b0cb-4b49-ab7e-21e872e1d08f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Phi]"}], "}"}], "\[InvisibleSpace]", "\<\" -> \"\>", 
   "\[InvisibleSpace]", 
   FractionBox[
    RowBox[{"rs", " ", 
     RowBox[{"e", "[", 
      RowBox[{"2", ",", "4"}], "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]]}],
  SequenceForm[{$CellContext`r, $CellContext`\[Phi]}, " -> ", 
   Rational[1, 2] $CellContext`r^(-3) $CellContext`rs CliffordBasic`e[2, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.939608728828033*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"b2b9a815-2146-4185-924b-1baa55c6e416"],

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.936069443856166*^9, 
  3.9396087288289957`*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"18a16a91-eb2f-4dce-8eaa-05ea7affe420"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], "}"}], 
   "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"rs", " ", 
      RowBox[{"e", "[", 
       RowBox[{"3", ",", "4"}], "]"}]}], 
     SuperscriptBox["r", "3"]]}]}],
  SequenceForm[{$CellContext`\[Theta], $CellContext`\[Phi]}, 
   " -> ", -$CellContext`r^(-3) $CellContext`rs CliffordBasic`e[3, 4]],
  Editable->False]], "Print",
 CellChangeTimes->{3.935812026139465*^9, 3.936069443856166*^9, 
  3.939608728830111*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"7b989ffb-8e37-4f93-8161-e2ea452f08f8"],

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.936069443856166*^9, 
  3.93960872883118*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"90538374-e238-45d2-abd0-b0b72056c222"]
}, 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[27]:=",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[28]:=",ExpressionUUID->"85dde8dc-8fb8-4f93-9e48-b9cbbef67d6d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`t, " -> ", 0],
  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.9114534343906565`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955523182*^9, 
   3.939608728899078*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"26dd1fd9-beac-44ea-b065-222a8a2972dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`r, " -> ", 0],
  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.9114534343906565`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955523182*^9, 
   3.9396087289012127`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"7e189ae6-80c3-4804-9f6b-857f3c568bcb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  
  SequenceForm[$CellContext`\[Theta], " -> ", 0],
  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.9114534343906565`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955523182*^9, 
   3.9396087289040956`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"76060762-36a5-4021-a25b-6f7d6f6afaf6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`\[Phi], " -> ", 0],
  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.9114534343906565`*^9, 3.911453538051038*^9, 
   3.911539052787891*^9, 3.911540500839085*^9, 3.911626123074304*^9, 
   3.918204305562167*^9, 3.935722316285008*^9, 3.936069955523182*^9, 
   3.939608728905244*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"f4bed0c7-000c-47ea-960f-8a6115358273"]
}, 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[29]:=",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[30]:=",ExpressionUUID->"c734cad6-3d0e-4cd0-99f1-b4bd231fa721"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`t, " -> ", 0],
  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, 
  3.939608728972464*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"b808e03b-79eb-4ff7-843e-3468b21505c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`r, " -> ", 0],
  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, 
  3.939608728974491*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"71f13285-92fa-48a1-934b-84e017770b4b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  
  SequenceForm[$CellContext`\[Theta], " -> ", 0],
  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, 
  3.939608728977501*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"e5228125-c8d1-4c60-b3b0-b060976cee3e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`\[Phi], " -> ", 0],
  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, 
  3.9396087289786158`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"a7dcf85b-4409-4c84-abe7-5ee8bb399fe1"]
}, 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[31]:=",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, 
   3.939608728995018*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"efd6c9df-6a1e-4f9d-8459-de311eed7d5e"]
}, 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[32]:=",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[33]:=",ExpressionUUID->"7800a4fb-c983-4cbf-b3c7-932e76a7ee73"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"t", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`t, " -> ", 0],
  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, 3.939608729020886*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"7675bc14-3481-48dd-8b23-b26270cb65ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"r", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`r, " -> ", 0],
  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, 3.9396087290229816`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"680008fa-911d-44b5-833f-ca106dd3f698"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Theta]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  
  SequenceForm[$CellContext`\[Theta], " -> ", 0],
  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, 3.9396087290260487`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"8f15b318-a548-47bc-af3b-d4ed13d30ff6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "\[Phi]", "\[InvisibleSpace]", "\<\" -> \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm[$CellContext`\[Phi], " -> ", 0],
  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, 3.9396087290271597`*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"bc1e543a-ae77-4f76-abdd-977f2b7fbf04"]
}, 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->"0a3ce7d3-bd1c-429e-9ab5-4c8a3afafd78"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 737, 11, 98, "Title",ExpressionUUID->"5ed80a38-7e4d-460d-a7d7-4b6c0698337c"],
Cell[CellGroupData[{
Cell[1184, 30, 153, 3, 67, "Section",ExpressionUUID->"d6301719-3266-4b91-9521-888fc692f6b8"],
Cell[1340, 35, 429, 8, 58, "Text",ExpressionUUID->"410843f0-0d90-4cba-9d62-f4104c321ff1"],
Cell[1772, 45, 260, 4, 30, "Input",ExpressionUUID->"c756ce16-38ed-4286-be02-efddc2006da4"],
Cell[2035, 51, 163, 3, 35, "Text",ExpressionUUID->"1e12b8c9-b6cb-49e9-877f-7cc4b2c6b006"],
Cell[2201, 56, 248, 6, 30, "Input",ExpressionUUID->"7b408fdc-d3b4-4855-acc2-018e5ef35336"],
Cell[2452, 64, 196, 3, 35, "Text",ExpressionUUID->"65acbb5e-580a-4dd7-8466-dca75e508c5f"],
Cell[CellGroupData[{
Cell[2673, 71, 594, 13, 30, "Input",ExpressionUUID->"77778e80-afd7-448e-b420-d95b8dcca464"],
Cell[CellGroupData[{
Cell[3292, 88, 773, 13, 24, "Print",ExpressionUUID->"4235ad80-1a8e-4037-b373-f812239aea9e"],
Cell[4068, 103, 789, 14, 24, "Print",ExpressionUUID->"17555cba-e9ec-47ae-9cc2-56527b9b8daa"],
Cell[4860, 119, 790, 14, 24, "Print",ExpressionUUID->"73ddc529-9dd6-4bd1-9091-a52a5f16316c"],
Cell[5653, 135, 792, 14, 24, "Print",ExpressionUUID->"51377724-8283-47af-9cf1-19fa100aa040"],
Cell[6448, 151, 892, 17, 24, "Print",ExpressionUUID->"3c63950d-935e-4fc0-a705-9a4543818739"]
}, Open  ]]
}, Open  ]],
Cell[7367, 172, 284, 6, 35, "Text",ExpressionUUID->"5586ce33-2699-4293-a261-b3d18b3307cb"],
Cell[CellGroupData[{
Cell[7676, 182, 766, 18, 30, "Input",ExpressionUUID->"b9a46f4a-e368-482d-a2b7-eb330f8baf36"],
Cell[CellGroupData[{
Cell[8467, 204, 947, 19, 24, "Print",ExpressionUUID->"7c90aa05-8813-408e-8bb5-96a93baa77a1"],
Cell[9417, 225, 1025, 22, 24, "Print",ExpressionUUID->"26714ef4-c97b-46df-890e-e7c1f6b32b58"],
Cell[10445, 249, 1025, 22, 24, "Print",ExpressionUUID->"ef69f45f-bee8-4dfc-9110-3d01b23690fc"],
Cell[11473, 273, 1025, 22, 24, "Print",ExpressionUUID->"4cb75180-365a-4fb2-988f-60c56226efc9"],
Cell[12501, 297, 1153, 26, 24, "Print",ExpressionUUID->"3cb19688-4d2a-45d6-b158-38ec72aeeabb"],
Cell[13657, 325, 947, 19, 24, "Print",ExpressionUUID->"2bdd3f24-292e-40df-bc7d-1c74c5da046f"],
Cell[14607, 346, 1025, 22, 24, "Print",ExpressionUUID->"46e6e831-b856-466b-9e09-6247f1d87cce"],
Cell[15635, 370, 1025, 22, 24, "Print",ExpressionUUID->"27952b98-4b99-4564-9e75-70cbf9ffe2f4"],
Cell[16663, 394, 1155, 26, 24, "Print",ExpressionUUID->"713fd84f-ad6e-478d-9686-02f54a3c2c9d"],
Cell[17821, 422, 949, 19, 24, "Print",ExpressionUUID->"3dac0b44-091b-4f2e-b916-f1ce69bf4877"],
Cell[18773, 443, 1025, 22, 24, "Print",ExpressionUUID->"cdffeb08-d72c-4853-80cc-9f28be19a3b0"],
Cell[19801, 467, 1152, 26, 24, "Print",ExpressionUUID->"c3ba95d6-f883-457c-8f5a-47c20ebe4883"],
Cell[20956, 495, 947, 19, 24, "Print",ExpressionUUID->"89bbfd04-2682-490a-92bf-79f359d14308"],
Cell[21906, 516, 1155, 26, 24, "Print",ExpressionUUID->"a97e02ad-7181-4bc0-95e1-7419e97da2a9"],
Cell[23064, 544, 1153, 26, 24, "Print",ExpressionUUID->"42db556a-efb7-400e-94f1-d2984b2934da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24278, 577, 393, 6, 69, "Chapter",ExpressionUUID->"18adf5b9-3e82-4bd7-876f-909cb52e348c"],
Cell[CellGroupData[{
Cell[24696, 587, 179, 3, 67, "Section",ExpressionUUID->"7438912c-1ae8-4480-bc43-95ddf1f5f9b2"],
Cell[24878, 592, 475, 13, 58, "Text",ExpressionUUID->"e947da39-bdcb-4400-9f6f-7a40f03c4192"],
Cell[25356, 607, 560, 12, 30, "Input",ExpressionUUID->"00aa77fa-1c39-4c54-92ce-f36a48baa373"],
Cell[25919, 621, 185, 3, 35, "Text",ExpressionUUID->"e4da7367-dd87-44b7-b934-fcb28702cc98"],
Cell[26107, 626, 799, 20, 38, "Text",ExpressionUUID->"fffa9754-ad24-47ba-9df4-d37eb8c347b2"],
Cell[CellGroupData[{
Cell[26931, 650, 1346, 30, 67, "Input",ExpressionUUID->"b79cdfd6-b2bb-4a7d-9cfa-21379f12524a"],
Cell[28280, 682, 1597, 40, 131, "Output",ExpressionUUID->"f7b95e6d-c606-4a4a-b355-c5a4e849b403"]
}, Open  ]],
Cell[29892, 725, 2187, 58, 38, "Text",ExpressionUUID->"3aa168ac-0130-49dd-accf-d0af2c76b271"],
Cell[CellGroupData[{
Cell[32104, 787, 691, 13, 52, "Input",ExpressionUUID->"112306e7-a78f-4fe8-a480-03bc1ed38411"],
Cell[32798, 802, 1979, 46, 147, "Output",ExpressionUUID->"ef0054d2-b697-4452-a7ea-ac34c894f592"]
}, Open  ]],
Cell[34792, 851, 2145, 55, 38, "Text",ExpressionUUID->"05f1d855-d8a6-43aa-bccf-4a0726b84e34"],
Cell[36940, 908, 189, 3, 35, "Text",ExpressionUUID->"0d5fea13-5359-4f11-ba70-3722528fce58"],
Cell[37132, 913, 550, 12, 30, "Input",ExpressionUUID->"a298c392-17ee-48d6-9261-97771ca7dac8"],
Cell[37685, 927, 252, 6, 35, "Text",ExpressionUUID->"68e03deb-2918-4600-b167-63702fab5921"],
Cell[CellGroupData[{
Cell[37962, 937, 1489, 35, 136, "Input",ExpressionUUID->"480adeff-e167-414e-b778-f15332493ef4"],
Cell[39454, 974, 1145, 35, 117, "Output",ExpressionUUID->"8650acae-df1b-4a92-b722-8979c95adf5a"]
}, Open  ]],
Cell[40614, 1012, 170, 3, 35, "Text",ExpressionUUID->"57430f66-8841-46cf-973b-8157e1873327"],
Cell[40787, 1017, 204, 4, 30, "Input",ExpressionUUID->"d7259ab9-2e54-412b-936a-0f3f008b5636"],
Cell[40994, 1023, 205, 3, 35, "Text",ExpressionUUID->"371695c6-333a-4304-81d7-beff22173234"],
Cell[CellGroupData[{
Cell[41224, 1030, 307, 8, 30, "Input",ExpressionUUID->"ae7f316e-27b1-48b9-af44-fa1c5c819a59"],
Cell[41534, 1040, 1018, 31, 117, "Output",ExpressionUUID->"7f62dd40-d5c2-476b-8209-2fcd7769a203"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42589, 1076, 334, 8, 30, "Input",ExpressionUUID->"5c48ab59-91c8-46cc-a41d-99cf962fb3d0"],
Cell[42926, 1086, 1073, 33, 129, "Output",ExpressionUUID->"039f45a4-3d96-47f5-93ab-fb3ea8b16bc3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44048, 1125, 168, 3, 67, "Section",ExpressionUUID->"2a7eeb07-0aae-4e6c-bd32-4b041fd169e7"],
Cell[44219, 1130, 429, 8, 35, "Text",ExpressionUUID->"63b83a11-1b7d-406f-83f4-f222e889ab0b"],
Cell[44651, 1140, 498, 13, 51, "Text",ExpressionUUID->"ce299571-c36a-4c1e-a69e-861fd58fb3da"],
Cell[CellGroupData[{
Cell[45174, 1157, 459, 7, 45, "Subsubsection",ExpressionUUID->"1a36299f-8ebd-46ae-b977-577dbdb468e9"],
Cell[45636, 1166, 554, 10, 35, "Text",ExpressionUUID->"093bf9a2-4d0c-469a-afdf-09fbb8b221f1"],
Cell[46193, 1178, 1432, 35, 51, "Text",ExpressionUUID->"59278906-7acb-47b6-9073-121f805fa702"],
Cell[47628, 1215, 172, 3, 35, "Text",ExpressionUUID->"0fcca95d-7942-4dbc-85d7-bc9d6ed0f594"],
Cell[47803, 1220, 946, 24, 53, "Text",ExpressionUUID->"7af4433b-9477-4f3b-926c-71724db5bef9"],
Cell[48752, 1246, 377, 11, 35, "Text",ExpressionUUID->"7d985cad-731e-4835-94dd-6e5b64a5bf0d"],
Cell[49132, 1259, 4188, 95, 360, "Input",ExpressionUUID->"c669d205-d1c0-488f-8347-a6659edba804"],
Cell[53323, 1356, 426, 11, 56, "Text",ExpressionUUID->"924f3999-89fe-4d76-b049-94639b7ec745"],
Cell[CellGroupData[{
Cell[53774, 1371, 1326, 25, 30, "Input",ExpressionUUID->"0f691f31-9336-46ac-ad48-171305e61658"],
Cell[CellGroupData[{
Cell[55125, 1400, 1680, 39, 54, "Print",ExpressionUUID->"69982367-44ec-429a-b13b-cddf819badbe"],
Cell[56808, 1441, 1112, 20, 24, "Print",ExpressionUUID->"fe85d176-ec43-46fe-9650-66103bb1794e"],
Cell[57923, 1463, 1352, 28, 55, "Print",ExpressionUUID->"ed9806ab-1eb3-42c8-9351-bb41eeada85e"],
Cell[59278, 1493, 1352, 28, 55, "Print",ExpressionUUID->"bd3cbe7d-86d3-4970-99f4-db29591a573d"]
}, Open  ]],
Cell[60645, 1524, 993, 16, 34, "Output",ExpressionUUID->"f53b9a83-9076-4971-853e-9e07fd0060e1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61687, 1546, 446, 7, 45, "Subsubsection",ExpressionUUID->"fd8b9c44-b406-4b92-a908-cbd3a724063e"],
Cell[62136, 1555, 520, 10, 35, "Text",ExpressionUUID->"828b22ea-5046-4a1b-a9f7-db72c9da0467"],
Cell[62659, 1567, 1331, 31, 51, "Text",ExpressionUUID->"3c5a0c95-0250-432d-b8cc-ba029e11adcc"],
Cell[63993, 1600, 1076, 27, 53, "Text",ExpressionUUID->"c5942b9a-4d53-47a9-9251-90986b343380"],
Cell[65072, 1629, 2212, 57, 87, "Text",ExpressionUUID->"5db0f984-1071-460b-987e-6d6f84f15b4c"],
Cell[67287, 1688, 2121, 52, 199, "Input",ExpressionUUID->"501afe5d-4e1d-4158-8428-f387f71b01f9"],
Cell[69411, 1742, 2350, 55, 188, "Input",ExpressionUUID->"cd41f063-4e33-487d-b4ca-69e069d00143"],
Cell[CellGroupData[{
Cell[71786, 1801, 1156, 24, 30, "Input",ExpressionUUID->"007b12a7-36bd-472f-bbe3-8717c5e3fbc0"],
Cell[CellGroupData[{
Cell[72967, 1829, 2478, 50, 54, "Print",ExpressionUUID->"933e4ffa-a7a3-435c-80d9-993f7d289a30"],
Cell[75448, 1881, 1910, 31, 24, "Print",ExpressionUUID->"824cb868-9b1b-4a71-9d06-c2c25c9ebfd4"],
Cell[77361, 1914, 2152, 39, 55, "Print",ExpressionUUID->"a46b7fca-048a-4f4d-adeb-bb246d78193e"],
Cell[79516, 1955, 2150, 39, 55, "Print",ExpressionUUID->"75831c05-31e6-4236-a588-2c3ef7a90d6b"]
}, Open  ]],
Cell[81681, 1997, 227, 4, 34, "Output",ExpressionUUID->"0d0be346-f846-4d90-b3a9-e6045150d06c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[81969, 2008, 162, 3, 67, "Section",ExpressionUUID->"f6c46e41-34cb-4be7-90a1-bca0267981da"],
Cell[CellGroupData[{
Cell[82156, 2015, 180, 3, 54, "Subsection",ExpressionUUID->"f89f91c8-2abb-4e64-8acc-fe314e433d0b"],
Cell[82339, 2020, 1105, 31, 36, "Text",ExpressionUUID->"5faf0305-7e52-451d-8b3a-468dce16c559"],
Cell[83447, 2053, 1721, 43, 146, "Input",ExpressionUUID->"d50ee889-7227-4e91-973d-4c781542acb0"],
Cell[85171, 2098, 447, 12, 56, "Text",ExpressionUUID->"8abe56ec-e308-4dd8-999a-fb45aa2d1db7"],
Cell[CellGroupData[{
Cell[85643, 2114, 1190, 29, 30, "Input",ExpressionUUID->"d8a480af-b0c5-4d93-85a1-b691c4ade7aa"],
Cell[CellGroupData[{
Cell[86858, 2147, 1582, 28, 24, "Print",ExpressionUUID->"90c48c9b-1ea1-42a4-be08-f4fc19eb2325"],
Cell[88443, 2177, 2099, 44, 54, "Print",ExpressionUUID->"57fd82f2-ea41-41e5-9b25-196779024596"],
Cell[90545, 2223, 1975, 40, 51, "Print",ExpressionUUID->"3e86247d-e915-4f02-9e80-2c5c703651c8"],
Cell[92523, 2265, 1971, 40, 51, "Print",ExpressionUUID->"231dbfe6-3727-4ae7-8e70-3f75683e50b0"],
Cell[94497, 2307, 1584, 28, 24, "Print",ExpressionUUID->"dd2e3f17-b582-4b7b-9376-79f5622d4d51"],
Cell[96084, 2337, 1985, 40, 54, "Print",ExpressionUUID->"c382db9e-e0d3-4c7e-9ca6-45c80afab1e2"],
Cell[98072, 2379, 1978, 40, 54, "Print",ExpressionUUID->"92a18ea8-ebc3-472e-981b-7ef44898ddaa"],
Cell[100053, 2421, 1612, 28, 24, "Print",ExpressionUUID->"408b7613-f0cd-45a7-bc12-e589b5b74b2b"],
Cell[101668, 2451, 1796, 34, 39, "Print",ExpressionUUID->"24bc8f41-c0a6-45ff-8729-f86897333942"],
Cell[103467, 2487, 1602, 28, 24, "Print",ExpressionUUID->"331019b8-2aec-4179-8a52-b9ba448c5f75"]
}, Open  ]]
}, Open  ]],
Cell[105096, 2519, 667, 18, 37, "Text",ExpressionUUID->"202ae255-c756-4538-8415-8de20ec30343"],
Cell[105766, 2539, 2025, 52, 136, "Input",ExpressionUUID->"e33a7218-1623-4cec-a1a3-940c0d5c85e5"],
Cell[107794, 2593, 447, 12, 56, "Text",ExpressionUUID->"7d306ba9-c8ad-4556-90d9-44c4a7a7ea40"],
Cell[CellGroupData[{
Cell[108266, 2609, 854, 24, 30, "Input",ExpressionUUID->"86d86e3c-77e6-4636-b383-649001c2c5dc"],
Cell[CellGroupData[{
Cell[109145, 2637, 499, 12, 24, "Print",ExpressionUUID->"122287f0-77a1-4ffe-9030-ddd00975544d"],
Cell[109647, 2651, 717, 19, 40, "Print",ExpressionUUID->"dfb59d8d-c33c-4d2b-bcd0-68c64b1f45ef"],
Cell[110367, 2672, 747, 19, 40, "Print",ExpressionUUID->"4daef3cd-1a6e-465e-a5e2-110ac4fea0e1"],
Cell[111117, 2693, 743, 19, 40, "Print",ExpressionUUID->"38796fe0-d9f1-45dd-bb73-ca8876198d4a"],
Cell[111863, 2714, 500, 12, 24, "Print",ExpressionUUID->"659c2677-034d-43c6-b3d1-feb727861ed1"],
Cell[112366, 2728, 747, 19, 40, "Print",ExpressionUUID->"09b6cf93-85c6-468b-a2d6-5507bc470361"],
Cell[113116, 2749, 743, 19, 40, "Print",ExpressionUUID->"9214c33b-7106-44ce-ac07-814cd56d66f8"],
Cell[113862, 2770, 528, 12, 24, "Print",ExpressionUUID->"2f2c0aa7-eb63-41a0-bc31-1b8aaa16ca95"],
Cell[114393, 2784, 741, 19, 40, "Print",ExpressionUUID->"3f1e61c7-0a40-4690-8f07-61e1f6e999f7"],
Cell[115137, 2805, 520, 12, 24, "Print",ExpressionUUID->"53dd6d74-71bb-4eb1-a2f6-5a845cdb9124"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115718, 2824, 229, 4, 54, "Subsection",ExpressionUUID->"d564bb69-0298-4623-a723-d4b7b6557ee6"],
Cell[115950, 2830, 889, 26, 37, "Text",ExpressionUUID->"a90b907f-a926-4f5f-b213-3695bab10e01"],
Cell[116842, 2858, 1382, 34, 94, "Input",ExpressionUUID->"fc78e460-889f-4ca6-8c13-83c1fac13443"],
Cell[118227, 2894, 447, 12, 56, "Text",ExpressionUUID->"5c7ec34d-86df-4e6a-9e6b-fcb056f08173"],
Cell[CellGroupData[{
Cell[118699, 2910, 1273, 32, 30, "Input",ExpressionUUID->"4b258e55-b336-4e24-8149-a3284d77387c"],
Cell[CellGroupData[{
Cell[119997, 2946, 451, 12, 24, "Print",ExpressionUUID->"1d1ea7f1-70e8-4cbe-ba27-3195a3b1189b"],
Cell[120451, 2960, 668, 19, 40, "Print",ExpressionUUID->"31900813-6c3f-4076-9074-7a57714df413"],
Cell[121122, 2981, 698, 19, 40, "Print",ExpressionUUID->"97ca2f06-a8fe-4622-89b8-cd1085f7232a"],
Cell[121823, 3002, 693, 19, 40, "Print",ExpressionUUID->"167664da-5f75-4cba-bbe7-ff171f544c71"],
Cell[122519, 3023, 451, 12, 24, "Print",ExpressionUUID->"98ad5e70-97c4-43f4-9b5f-586bc568d652"],
Cell[122973, 3037, 700, 19, 40, "Print",ExpressionUUID->"bfddc35d-b0cb-4b49-ab7e-21e872e1d08f"],
Cell[123676, 3058, 694, 19, 40, "Print",ExpressionUUID->"b2b9a815-2146-4185-924b-1baa55c6e416"],
Cell[124373, 3079, 481, 12, 24, "Print",ExpressionUUID->"18a16a91-eb2f-4dce-8eaa-05ea7affe420"],
Cell[124857, 3093, 692, 19, 40, "Print",ExpressionUUID->"7b989ffb-8e37-4f93-8161-e2ea452f08f8"],
Cell[125552, 3114, 470, 12, 24, "Print",ExpressionUUID->"90538374-e238-45d2-abd0-b0b72056c222"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[126095, 3134, 149, 3, 67, "Section",ExpressionUUID->"7f91ddbc-4577-49df-a5d3-12bad4208f23"],
Cell[CellGroupData[{
Cell[126269, 3141, 178, 3, 54, "Subsection",ExpressionUUID->"9785fbb3-6186-4b5b-8772-08178c3634da"],
Cell[126450, 3146, 673, 15, 37, "Text",ExpressionUUID->"a8d15346-13ae-4d27-b428-6b810de34994"],
Cell[127126, 3163, 1784, 43, 157, "Input",ExpressionUUID->"5c6dd670-7ed8-44f7-87d0-f13f68c8f6e7"],
Cell[128913, 3208, 447, 12, 56, "Text",ExpressionUUID->"ba5d607a-b2d7-4e8d-ae09-1e0178701d6a"],
Cell[CellGroupData[{
Cell[129385, 3224, 806, 19, 30, "Input",ExpressionUUID->"85dde8dc-8fb8-4f93-9e48-b9cbbef67d6d"],
Cell[CellGroupData[{
Cell[130216, 3247, 764, 15, 24, "Print",ExpressionUUID->"26dd1fd9-beac-44ea-b065-222a8a2972dd"],
Cell[130983, 3264, 766, 15, 24, "Print",ExpressionUUID->"7e189ae6-80c3-4804-9f6b-857f3c568bcb"],
Cell[131752, 3281, 786, 17, 24, "Print",ExpressionUUID->"76060762-36a5-4021-a25b-6f7d6f6afaf6"],
Cell[132541, 3300, 777, 16, 24, "Print",ExpressionUUID->"f4bed0c7-000c-47ea-960f-8a6115358273"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133379, 3323, 197, 3, 54, "Subsection",ExpressionUUID->"d3d7e811-fa6a-41d0-9045-e2f06e5e4f53"],
Cell[133579, 3328, 645, 16, 35, "Text",ExpressionUUID->"7f69d196-2423-4773-a22d-f0c583865f55"],
Cell[134227, 3346, 1363, 32, 115, "Input",ExpressionUUID->"4ff482a6-5d7f-4445-9370-ea10ceb13995"],
Cell[135593, 3380, 447, 12, 56, "Text",ExpressionUUID->"05f07783-64ab-4c00-90cc-d82e1a54a9f3"],
Cell[CellGroupData[{
Cell[136065, 3396, 905, 22, 30, "Input",ExpressionUUID->"c734cad6-3d0e-4cd0-99f1-b4bd231fa721"],
Cell[CellGroupData[{
Cell[136995, 3422, 729, 14, 24, "Print",ExpressionUUID->"b808e03b-79eb-4ff7-843e-3468b21505c4"],
Cell[137727, 3438, 729, 14, 24, "Print",ExpressionUUID->"71f13285-92fa-48a1-934b-84e017770b4b"],
Cell[138459, 3454, 749, 16, 24, "Print",ExpressionUUID->"e5228125-c8d1-4c60-b3b0-b060976cee3e"],
Cell[139211, 3472, 744, 15, 24, "Print",ExpressionUUID->"a7dcf85b-4409-4c84-abe7-5ee8bb399fe1"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140028, 3495, 157, 3, 67, "Section",ExpressionUUID->"e44d81de-26d4-4a23-b4c9-37b0b22ed383"],
Cell[140188, 3500, 447, 12, 56, "Text",ExpressionUUID->"8604d87e-2854-4525-9a66-55118cb0186d"],
Cell[CellGroupData[{
Cell[140660, 3516, 1069, 25, 73, "Input",ExpressionUUID->"c704a678-f55d-444b-a77c-06196907186b"],
Cell[141732, 3543, 656, 10, 34, "Output",ExpressionUUID->"efd6c9df-6a1e-4f9d-8459-de311eed7d5e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[142437, 3559, 160, 3, 67, "Section",ExpressionUUID->"bf217d0b-2b73-4176-9356-44824780e85b"],
Cell[142600, 3564, 750, 18, 104, "Input",ExpressionUUID->"a8425a1b-64e2-425b-b653-5ce2640cc780"],
Cell[143353, 3584, 447, 12, 56, "Text",ExpressionUUID->"a98fa6d2-657b-4942-a934-487b4fa5101d"],
Cell[CellGroupData[{
Cell[143825, 3600, 911, 20, 30, "Input",ExpressionUUID->"7800a4fb-c983-4cbf-b3c7-932e76a7ee73"],
Cell[CellGroupData[{
Cell[144761, 3624, 886, 16, 24, "Print",ExpressionUUID->"7675bc14-3481-48dd-8b23-b26270cb65ba"],
Cell[145650, 3642, 888, 16, 24, "Print",ExpressionUUID->"680008fa-911d-44b5-833f-ca106dd3f698"],
Cell[146541, 3660, 908, 18, 24, "Print",ExpressionUUID->"8f15b318-a548-47bc-af3b-d4ed13d30ff6"],
Cell[147452, 3680, 901, 17, 24, "Print",ExpressionUUID->"bc1e543a-ae77-4f76-abdd-977f2b7fbf04"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)