EinsteinFieldEquations v 0.2.1.nb

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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    102776,       2467]
NotebookOptionsPosition[     99679,       2410]
NotebookOutlinePosition[    100088,       2426]
CellTagsIndexPosition[    100045,       2423]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Version", " ", "0.2", ".1"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.883913463334053*^9, 3.8839134722143297`*^9}, {
   3.884241521781062*^9, 3.884241530493346*^9}, 3.8842415857008266`*^9, 
   3.89982869384489*^9, 3.8998293815737696`*^9, {3.9000344187096043`*^9, 
   3.900034418754196*^9}},ExpressionUUID->"b8bdb7df-f9ed-4807-b063-\
0da9ef4fda06"],

Cell[CellGroupData[{

Cell["Einstein Field Equations ", "Title",
 CellChangeTimes->{{3.883913520742576*^9, 3.8839135287655725`*^9}, {
  3.884241486914936*^9, 
  3.884241516403329*^9}},ExpressionUUID->"22c6ea2f-6f95-4f91-b37b-\
d794172e35c9"],

Cell[CellGroupData[{

Cell["Input Section", "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
  3.8839262650696945`*^9, 
  3.883926265769018*^9}},ExpressionUUID->"17628294-e56c-4085-b7bd-\
4c2bf27a9abf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Coordinates", "=", 
   RowBox[{"{", 
    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"co", "[", "\[Mu]_", "]"}], ":=", 
    RowBox[{"Coordinates", "[", 
     RowBox[{"[", "\[Mu]", "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"To", " ", "simplify", " ", "the", " ", "Code"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dim", "=", 
    RowBox[{"Length", "[", "Coordinates", "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Dimention", " ", "of", " ", "Space"}], "-", "Time"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PoM", "=", "\[Tau]"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Parameter", " ", "of", " ", "Motion"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]", "[", "r", "]"}], "=", 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{"2", "GM"}], "r"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"v", "[", "r", "]"}], "=", 
   FractionBox["1", 
    RowBox[{"\[Omega]", "[", "r", "]"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Metric", 
   RowBox[{"(*", 
    SubscriptBox["g", "\[Mu]\[Nu]"], "*)"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Omega]", "[", "r", "]"}]}], ",", "0", ",", "0", ",", "0"}],
       "}"}], ",", "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"v", "[", "r", "]"}], ",", "0", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       SuperscriptBox["r", "2"], ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SETensor", 
   RowBox[{"(*", 
    SubscriptBox["T", "\[Mu]\[Nu]"], "*)"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox["c", "2"]}], ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "P", ",", "0", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "P", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", "                              ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "P"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MetricInverse", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Inverse", "[", "Metric", "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", "\[IndentingNewLine]", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], ":>", "\[IndentingNewLine]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], ":>", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], ":>", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839211889022217`*^9, 
   3.8839211914389257`*^9}, {3.8839227958094044`*^9, 
   3.8839228513756213`*^9}, {3.883923020474295*^9, 3.8839230444094257`*^9}, {
   3.883923384003209*^9, 3.883923416994443*^9}, {3.8839236480990505`*^9, 
   3.883923651438657*^9}, {3.8839255835757627`*^9, 3.8839256705727663`*^9}, {
   3.883940693120551*^9, 3.883940707830325*^9}, {3.8839407431802387`*^9, 
   3.883940786822821*^9}, {3.883941525397241*^9, 3.8839415292620335`*^9}, {
   3.8842731630233474`*^9, 3.8842732064610214`*^9}, {3.884273271363616*^9, 
   3.8842732881605806`*^9}, {3.88427341639782*^9, 3.884273429619692*^9}, 
   3.884273459912138*^9, {3.8842734900736732`*^9, 3.8842735005441504`*^9}, 
   3.884273617464599*^9, {3.884273696848982*^9, 3.8842737132531443`*^9}, {
   3.8842738591641083`*^9, 3.8842738631845913`*^9}, 3.884341025499839*^9, {
   3.8998277218388195`*^9, 3.8998277612336383`*^9}, 3.899872998485238*^9, {
   3.899873567849883*^9, 3.8998735948681087`*^9}, {3.8998738807884765`*^9, 
   3.8998738920898542`*^9}, {3.899873923862146*^9, 3.8998739650185757`*^9}, {
   3.900025384090169*^9, 3.9000254086480618`*^9}, {3.900025744085436*^9, 
   3.9000258159425187`*^9}},
 CellLabel->
  "In[1475]:=",ExpressionUUID->"33ebf613-a6b4-451f-8644-73c5960c9fd8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Christoffel symbols ( ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["2", "nd"], TraditionalForm]],ExpressionUUID->
  "b9b55b9a-9de2-4822-9637-2b65d56e75ee"],
 " kind ) ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox[
     SuperscriptBox["\[CapitalGamma]", "\[Beta]"], "\[Mu]\[Nu]"], ")"}], 
   TraditionalForm]],ExpressionUUID->"a817f10d-7f41-467c-a0b9-a177c192e7de"],
 " "
}], "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
  3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
  3.883920340393501*^9}, {3.883921578025551*^9, 3.883921641264964*^9}, {
  3.8839217212922635`*^9, 3.883921723328736*^9}, {3.883921761421519*^9, 
  3.8839217808160086`*^9}, {3.8839416104750667`*^9, 
  3.8839416525786057`*^9}},ExpressionUUID->"7e509108-844d-4cc4-a24e-\
7750401dd96f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Christoffel", "[", 
   RowBox[{"\[Beta]_", ",", "\[Mu]_", ",", "\[Nu]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Christoffel", "[", 
    RowBox[{"\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"MetricInverse", "[", 
         RowBox[{"[", 
          RowBox[{"\[Beta]", ",", "\[Alpha]"}], "]"}], "]"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Metric", "[", 
             RowBox[{"[", 
              RowBox[{"\[Alpha]", ",", "\[Mu]"}], "]"}], "]"}], ",", 
            RowBox[{"co", "[", "\[Nu]", "]"}]}], "]"}], "+", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Metric", "[", 
             RowBox[{"[", 
              RowBox[{"\[Alpha]", ",", "\[Nu]"}], "]"}], "]"}], ",", 
            RowBox[{"co", "[", "\[Mu]", "]"}]}], "]"}], "-", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Metric", "[", 
             RowBox[{"[", 
              RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], ",", 
            RowBox[{"co", "[", "\[Alpha]", "]"}]}], "]"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", "Dim"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.883921732586121*^9, 
   3.8839218029147944`*^9}, {3.883921957797803*^9, 3.883921962344472*^9}, 
   3.883922802985772*^9, {3.8839228605411005`*^9, 3.88392287672316*^9}, 
   3.883923055707363*^9, 3.883923425029095*^9, {3.883923573721963*^9, 
   3.8839235837087107`*^9}, {3.8839416547649355`*^9, 3.8839416593482313`*^9}},
 CellLabel->
  "In[1485]:=",ExpressionUUID->"4f86dcb6-3d7e-48ba-a28a-987133ea9eff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Riemann curvature tensor ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox[
     SuperscriptBox["R", "\[Beta]"], "\[Sigma]\[Mu]\[Nu]"]}], 
   TraditionalForm]],ExpressionUUID->"65be7e37-21ae-4888-af76-a915e310009f"],
 ") & Ricci tensor ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox["R", "\[Mu]\[Nu]"]}], TraditionalForm]],ExpressionUUID->
  "2a9891b8-cde6-4982-9fec-3d686b3caa39"],
 ") & Scalar curvature (R)"
}], "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
  3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
  3.883920340393501*^9}, {3.8839215560205803`*^9, 3.88392156982902*^9}, {
  3.8839216532088633`*^9, 3.8839216981833124`*^9}, {3.8839219169630175`*^9, 
  3.883921922596011*^9}, {3.883922377926927*^9, 3.8839224215945024`*^9}, {
  3.8839416605906353`*^9, 
  3.8839416605906353`*^9}},ExpressionUUID->"443b41c0-8a8e-4693-9a67-\
64c4040db4cc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Riemann", "[", 
    RowBox[{"\[Beta]_", ",", "\[Sigma]_", ",", "\[Mu]_", ",", "\[Nu]_"}], 
    "]"}], ":=", 
   RowBox[{
    RowBox[{"Riemann", "[", 
     RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
    "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Christoffel", "[", 
         RowBox[{"\[Beta]", ",", "\[Nu]", ",", "\[Sigma]"}], "]"}], ",", 
        RowBox[{"co", "[", "\[Mu]", "]"}]}], "]"}], "-", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Christoffel", "[", 
         RowBox[{"\[Beta]", ",", "\[Mu]", ",", "\[Sigma]"}], "]"}], ",", 
        RowBox[{"co", "[", "\[Nu]", "]"}]}], "]"}], "+", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Christoffel", "[", 
           RowBox[{"\[Beta]", ",", "\[Mu]", ",", "\[Lambda]"}], "]"}], 
          RowBox[{"Christoffel", "[", 
           RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Sigma]"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"Christoffel", "[", 
           RowBox[{"\[Beta]", ",", "\[Nu]", ",", "\[Lambda]"}], "]"}], 
          RowBox[{"Christoffel", "[", 
           RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Sigma]"}], "]"}]}]}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"\[Lambda]", ",", "Dim"}], "}"}]}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ricci", "[", 
    RowBox[{"\[Mu]_", ",", "\[Nu]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Ricci", "[", 
     RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"Riemann", "[", 
        RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Lambda]", ",", "\[Nu]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Lambda]", ",", "Dim"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RicciScalar", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Ricci", "[", 
        RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], 
       RowBox[{"MetricInverse", "[", 
        RowBox[{"[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Mu]", ",", 
        RowBox[{"Length", "[", "Coordinates", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Nu]", ",", "Dim"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.8839218114468136`*^9, 
   3.8839218466135607`*^9}, {3.883921950307419*^9, 3.883922165842089*^9}, {
   3.8839223985635443`*^9, 3.8839224011291056`*^9}, {3.8839224803740253`*^9, 
   3.8839225496639757`*^9}, {3.8839227066697903`*^9, 
   3.8839227340194364`*^9}, {3.883922882820612*^9, 3.8839228870846586`*^9}, 
   3.883923085593399*^9, {3.883923430424363*^9, 3.88392343807084*^9}, {
   3.8839235869567*^9, 3.8839236145762777`*^9}, {3.883941661972451*^9, 
   3.8839416677843914`*^9}, {3.8842739774570107`*^9, 3.884273980018767*^9}, {
   3.8998730817338996`*^9, 3.899873108293123*^9}, 3.8998731842964687`*^9},
 CellLabel->
  "In[1486]:=",ExpressionUUID->"fe6d8d60-9de3-4516-8443-72764ee1bddf"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Einstein Tensor", "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
   3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
   3.883920340393501*^9}, {3.8839215560205803`*^9, 3.88392156982902*^9}, {
   3.8839216532088633`*^9, 3.8839216981833124`*^9}, {3.8839219169630175`*^9, 
   3.883921922596011*^9}, {3.883922235572939*^9, 3.883922237128502*^9}, {
   3.883922274341132*^9, 3.883922277920356*^9}, 3.8839223765575485`*^9, {
   3.883922583303171*^9, 3.8839226044937544`*^9}, {3.8839666961535015`*^9, 
   3.8839666974820766`*^9}},ExpressionUUID->"17c8f61c-3d57-4bd1-ab1d-\
c4657c9aac5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EFE", "[", 
    RowBox[{"\[Mu]_", ",", "\[Nu]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"EFE", "[", 
     RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"Ricci", "[", 
        RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], "RicciScalar", " ", 
        RowBox[{"Metric", "[", 
         RowBox[{"[", 
          RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]}]}], "]"}], "+", 
     RowBox[{"\[CapitalLambda]", " ", 
      RowBox[{"Metric", "[", 
       RowBox[{"[", 
        RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}]}]}]}]}], ";"}]], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.8839218114468136`*^9, 
   3.8839218466135607`*^9}, {3.883921950307419*^9, 3.883922165842089*^9}, {
   3.8839222839852414`*^9, 3.883922332104458*^9}, 3.8839223949639826`*^9, {
   3.883922607343792*^9, 3.8839226731626215`*^9}, {3.883922901563398*^9, 
   3.8839229061621304`*^9}, {3.883923620495986*^9, 3.883923625548211*^9}, {
   3.883925307306407*^9, 3.8839253085517035`*^9}, 3.883966523580023*^9, 
   3.8839665759029627`*^9, {3.883966607022136*^9, 3.883966608503689*^9}},
 CellLabel->
  "In[1489]:=",ExpressionUUID->"962bdb2b-7a08-40d5-9b69-cf0b849d6fb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Other Useful Quantities ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox["R", "\[Beta]\[Sigma]\[Mu]\[Nu]"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "1250cd1c-292f-4b26-98a8-8217b14bbff0"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["R", "\[Beta]\[Sigma]\[Mu]\[Nu]"], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "879531c1-d084-4280-a81a-1cbacf1485d9"],
 ", Kretschmann scalar)"
}], "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
   3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
   3.883920340393501*^9}, {3.8839215560205803`*^9, 3.88392156982902*^9}, {
   3.8839216532088633`*^9, 3.8839216981833124`*^9}, {3.8839219169630175`*^9, 
   3.883921922596011*^9}, {3.883922235572939*^9, 3.883922237128502*^9}, {
   3.883922274341132*^9, 3.883922277920356*^9}, 3.8839223765575485`*^9, {
   3.883922583303171*^9, 3.8839226044937544`*^9}, {3.8839666961535015`*^9, 
   3.8839666974820766`*^9}, {3.884241646521846*^9, 3.8842416530819445`*^9}, {
   3.884253441032409*^9, 
   3.8842535203394337`*^9}},ExpressionUUID->"7d8113ee-83fe-4586-85ff-\
cba00b86dc62"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Riemanndddd", "[", 
    RowBox[{"\[Beta]_", ",", "\[Sigma]_", ",", "\[Mu]_", ",", "\[Nu]_"}], 
    "]"}], 
   RowBox[{"(*", 
    FormBox[
     SubscriptBox["R", "\[Beta]\[Sigma]\[Mu]\[Nu]"],
     TraditionalForm], "*)"}], ":=", 
   RowBox[{
    RowBox[{"Riemanndddd", "[", 
     RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
    "=", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Riemann", "[", 
         RowBox[{"\[Beta]1", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], 
         "]"}], 
        RowBox[{"Metric", "[", 
         RowBox[{"[", 
          RowBox[{"\[Beta]1", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]1", ",", "Dim"}], "}"}]}], "]"}], "//", 
     "Simplify"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Riemannuuuu", "[", 
    RowBox[{"\[Beta]_", ",", "\[Sigma]_", ",", "\[Mu]_", ",", "\[Nu]_"}], 
    "]"}], 
   RowBox[{"(*", 
    FormBox[
     SuperscriptBox["R", "\[Beta]\[Sigma]\[Mu]\[Nu]"],
     TraditionalForm], "*)"}], ":=", 
   RowBox[{
    RowBox[{"Riemannuuuu", "[", 
     RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], 
    "=", 
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Riemann", "[", 
         RowBox[{"\[Beta]", ",", "\[Sigma]1", ",", "\[Mu]1", ",", "\[Nu]1"}], 
         "]"}], 
        RowBox[{"MetricInverse", "[", 
         RowBox[{"[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]"}], "]"}], "]"}], 
        RowBox[{"MetricInverse", "[", 
         RowBox[{"[", 
          RowBox[{"\[Mu]1", ",", "\[Mu]"}], "]"}], "]"}], 
        RowBox[{"MetricInverse", "[", 
         RowBox[{"[", 
          RowBox[{"\[Nu]1", ",", "\[Nu]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]1", ",", "Dim"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Mu]1", ",", "Dim"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Nu]1", ",", "Dim"}], "}"}]}], "]"}], "//", 
     "Simplify"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Kretschmann", "=", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Riemanndddd", "[", 
        RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], 
        "]"}], 
       RowBox[{"Riemannuuuu", "[", 
        RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], 
        "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Beta]", ",", "Dim"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Sigma]", ",", "Dim"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Mu]", ",", "Dim"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Nu]", ",", "Dim"}], "}"}]}], "]"}], "//", "Simplify"}]}], 
  ";"}]}], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.8839218114468136`*^9, 
   3.8839218466135607`*^9}, {3.883921950307419*^9, 3.883922165842089*^9}, {
   3.8839222839852414`*^9, 3.883922332104458*^9}, 3.8839223949639826`*^9, {
   3.883922607343792*^9, 3.8839226731626215`*^9}, {3.883922901563398*^9, 
   3.8839229061621304`*^9}, {3.883923620495986*^9, 3.883923625548211*^9}, {
   3.883925307306407*^9, 3.8839253085517035`*^9}, 3.883966523580023*^9, 
   3.8839665759029627`*^9, {3.883966607022136*^9, 3.883966608503689*^9}, {
   3.884241667109391*^9, 3.884241670048027*^9}, {3.884241868484257*^9, 
   3.884241929435774*^9}, {3.884241964517065*^9, 3.884242048712598*^9}, {
   3.884242085213694*^9, 3.884242112740194*^9}, {3.8842421486688204`*^9, 
   3.884242198265046*^9}, {3.8842422448058395`*^9, 3.884242366419221*^9}, {
   3.884242446158505*^9, 3.8842424536158495`*^9}, {3.8842425195730057`*^9, 
   3.884242520536354*^9}, {3.8842425918722754`*^9, 3.884242622467169*^9}, {
   3.884242697999404*^9, 3.8842428584880447`*^9}, {3.8842432661818714`*^9, 
   3.8842433007928944`*^9}, {3.8842535470515003`*^9, 3.884253578278346*^9}, {
   3.884254537104412*^9, 3.8842545459101253`*^9}},
 CellLabel->
  "In[1490]:=",ExpressionUUID->"3c771740-3758-493e-b534-33e7a294d45e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Geodesic Equations", "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
   3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
   3.883920340393501*^9}, {3.8839215560205803`*^9, 3.88392156982902*^9}, {
   3.8839216532088633`*^9, 3.8839216981833124`*^9}, {3.8839219169630175`*^9, 
   3.883921922596011*^9}, {3.883922235572939*^9, 3.883922237128502*^9}, {
   3.883922274341132*^9, 3.883922277920356*^9}, 3.8839223765575485`*^9, {
   3.883922583303171*^9, 3.8839226044937544`*^9}, {3.8839666961535015`*^9, 
   3.8839666974820766`*^9}, {3.884241646521846*^9, 3.8842416530819445`*^9}, {
   3.884253441032409*^9, 3.8842535203394337`*^9}, {3.899826833190767*^9, 
   3.899826838485941*^9}},ExpressionUUID->"7e203bed-a276-4358-b59f-\
c955d90b012a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Geo", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"geo", ",", "Dim"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Lambda]", "=", "1"}], ",", 
   RowBox[{"\[Lambda]", "<=", "Dim"}], ",", 
   RowBox[{"\[Lambda]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Geo", "[", 
     RowBox[{"[", "\[Lambda]", "]"}], "]"}], "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"co", "[", "\[Lambda]", "]"}], "[", "PoM", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"PoM", ",", "2"}], "}"}]}], "]"}], "+", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Christoffel", "[", 
             RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "/.", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "->", 
                RowBox[{"#", "[", "PoM", "]"}]}], "&"}], "/@", 
              "Coordinates"}], ")"}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"co", "[", "\[Mu]", "]"}], "[", "PoM", "]"}], ",", 
            "PoM"}], "]"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"co", "[", "\[Nu]", "]"}], "[", "PoM", "]"}], ",", 
            "PoM"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Mu]", ",", "Dim"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Nu]", ",", "Dim"}], "}"}]}], "]"}]}], "==", "0"}], 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.8839218114468136`*^9, 
   3.8839218466135607`*^9}, {3.883921950307419*^9, 3.883922165842089*^9}, {
   3.8839222839852414`*^9, 3.883922332104458*^9}, 3.8839223949639826`*^9, {
   3.883922607343792*^9, 3.8839226731626215`*^9}, {3.883922901563398*^9, 
   3.8839229061621304`*^9}, {3.883923620495986*^9, 3.883923625548211*^9}, {
   3.883925307306407*^9, 3.8839253085517035`*^9}, 3.883966523580023*^9, 
   3.8839665759029627`*^9, {3.883966607022136*^9, 3.883966608503689*^9}, {
   3.884241667109391*^9, 3.884241670048027*^9}, {3.884241868484257*^9, 
   3.884241929435774*^9}, {3.884241964517065*^9, 3.884242048712598*^9}, {
   3.884242085213694*^9, 3.884242112740194*^9}, {3.8842421486688204`*^9, 
   3.884242198265046*^9}, {3.8842422448058395`*^9, 3.884242366419221*^9}, {
   3.884242446158505*^9, 3.8842424536158495`*^9}, {3.8842425195730057`*^9, 
   3.884242520536354*^9}, {3.8842425918722754`*^9, 3.884242622467169*^9}, {
   3.884242697999404*^9, 3.8842428584880447`*^9}, {3.8842432661818714`*^9, 
   3.8842433007928944`*^9}, {3.8842535470515003`*^9, 3.884253578278346*^9}, {
   3.884254537104412*^9, 3.8842545459101253`*^9}, {3.899826869860783*^9, 
   3.8998268852459636`*^9}, {3.899826920256869*^9, 3.8998270504763203`*^9}, {
   3.8998273511812625`*^9, 3.8998273958360295`*^9}, {3.8998274468483763`*^9, 
   3.899827538822317*^9}, 3.8998276024208717`*^9, {3.899827669740266*^9, 
   3.899827672111253*^9}, {3.899831263937641*^9, 3.899831267614673*^9}, {
   3.8998313152586527`*^9, 3.8998313184296055`*^9}, {3.899831443996543*^9, 
   3.899831449850856*^9}, {3.8998721554517317`*^9, 3.899872232877175*^9}, {
   3.8998722792036943`*^9, 3.8998722837508574`*^9}, {3.899872323310251*^9, 
   3.8998723418667483`*^9}, {3.899872414930971*^9, 3.89987245832615*^9}, {
   3.8998725775771976`*^9, 3.8998726074338417`*^9}, {3.899872684599206*^9, 
   3.89987269267774*^9}, {3.899872737474616*^9, 3.8998727720575495`*^9}, {
   3.8998730211185074`*^9, 3.899873037140802*^9}, {3.899873205758774*^9, 
   3.8998732159044724`*^9}, {3.8998810331770306`*^9, 3.899881037644271*^9}, {
   3.900024863022313*^9, 3.9000248886287727`*^9}, 3.900025187437481*^9, {
   3.9000253063630757`*^9, 3.9000253096720934`*^9}, 3.900025831770812*^9, {
   3.900025866442731*^9, 3.9000258755869646`*^9}, {3.900027471814465*^9, 
   3.900027472189461*^9}},
 CellLabel->
  "In[1493]:=",ExpressionUUID->"c2424550-6190-4d3f-8a97-230938033ad0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Results", "Section",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.883913658793659*^9, 3.883913662860263*^9}, {
   3.8839199284289093`*^9, 3.883919961542186*^9}, {3.883920305382909*^9, 
   3.883920340393501*^9}, {3.8839215560205803`*^9, 3.88392156982902*^9}, {
   3.8839216532088633`*^9, 3.8839216981833124`*^9}, {3.8839219169630175`*^9, 
   3.883921922596011*^9}, {3.883922235572939*^9, 3.883922237128502*^9}, {
   3.883922274341132*^9, 3.883922277920356*^9}, 3.8839223765575485`*^9, {
   3.883922583303171*^9, 3.8839226044937544`*^9}, {3.883922919680521*^9, 
   3.8839229215283213`*^9}},ExpressionUUID->"ac7cfaff-b61f-4f31-ba7c-\
423741e57e96"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Metric Tensor (\!\(\*SubscriptBox[\(g\), \(\[Mu]\[Nu]\)]\)) = \>\"",
       ",", 
      RowBox[{"MatrixForm", "[", "Metric", "]"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Inverse Metric Tensor (\!\(\*SuperscriptBox[\(g\), \
\(\[Mu]\[Nu]\)]\)) = \>\"", ",", 
      RowBox[{"MatrixForm", "[", "MetricInverse", "]"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Stress-Energy Tensor (\!\(\*SubscriptBox[\(T\), \(\[Mu]\[Nu]\)]\)) \
= \>\"", ",", 
      RowBox[{"MatrixForm", "[", "SETensor", "]"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ChristoffelList", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(\[CapitalGamma]\), \
\(\[Beta]\)], \(\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<:\>\"", ",", 
      "\"\<Christoffel symbols ( \!\(TraditionalForm\`\*SubscriptBox[\(2\), \
\(nd\)]\) kind )\>\""}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ChristoffelPrintAction", ":=", 
   RowBox[{"AppendTo", "[", 
    RowBox[{"ChristoffelList", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Subsuperscript", "[", 
        RowBox[{"\"\<\[CapitalGamma]\>\"", ",", 
         RowBox[{"\"\< \>\"", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}], ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"co", "[", "\[Beta]", "]"}], "]"}]}], "]"}], ",", 
       "\"\< = \>\"", ",", 
       RowBox[{
        RowBox[{"Christoffel", "[", 
         RowBox[{"\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "//", 
        "pdConv"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Beta]", "=", "1"}], ",", 
   RowBox[{"\[Beta]", "<=", "Dim"}], ",", 
   RowBox[{"\[Beta]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"\[Mu]", "=", "1"}], ",", 
     RowBox[{"\[Mu]", "<=", "Dim"}], ",", 
     RowBox[{"\[Mu]", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"\[Nu]", "=", "1"}], ",", 
       RowBox[{"\[Nu]", "<=", "\[Mu]"}], ",", 
       RowBox[{"\[Nu]", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Christoffel", "[", 
           RowBox[{"\[Beta]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "!=", 
          "0"}], ",", "\[IndentingNewLine]", "ChristoffelPrintAction", ",", 
         ",", "ChristoffelPrintAction"}], "]"}]}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "@", "ChristoffelList"}], "==", "1"}], ",", 
    RowBox[{
     RowBox[{"ChristoffelList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(\[CapitalGamma]\), \
\(\[Beta]\)], \(\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<=\>\"", ",", 
       "\"\<Christoffel symbols ( \!\(TraditionalForm\`\*SubscriptBox[\(2\), \
\(nd\)]\) kind ) = 0\>\""}], "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"ChristoffelList", ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RiemannList", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(R\), \(\[Beta]\)], \(\[Sigma]\
\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<:\>\"", ",", 
      "\"\<Riemann curvature tensor\>\""}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RiemannPrintAction", ":=", 
   RowBox[{"AppendTo", "[", 
    RowBox[{"RiemannList", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Subsuperscript", "[", 
        RowBox[{"\"\<R\>\"", ",", 
         RowBox[{"\"\< \>\"", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Sigma]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}], ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"co", "[", "\[Beta]", "]"}], "]"}]}], "]"}], ",", 
       "\"\< = \>\"", ",", 
       RowBox[{
        RowBox[{"Riemann", "[", 
         RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}], 
         "]"}], "//", "pdConv"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Beta]", "=", "1"}], ",", 
   RowBox[{"\[Beta]", "<=", "Dim"}], ",", 
   RowBox[{"\[Beta]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"\[Sigma]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]", "<=", "Dim"}], ",", 
     RowBox[{"\[Sigma]", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"\[Mu]", "=", "1"}], ",", 
       RowBox[{"\[Mu]", "<=", "Dim"}], ",", 
       RowBox[{"\[Mu]", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"\[Nu]", "=", "1"}], ",", 
         RowBox[{"\[Nu]", "<=", "Dim"}], ",", 
         RowBox[{"\[Nu]", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Riemann", "[", 
             RowBox[{"\[Beta]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]"}],
              "]"}], "!=", "0"}], ",", "\[IndentingNewLine]", 
           "RiemannPrintAction", ",", ",", "RiemannPrintAction"}], "]"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "@", "RiemannList"}], "==", "1"}], ",", 
    RowBox[{
     RowBox[{"RiemannList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(R\), \(\[Beta]\)], \(\[Sigma]\
\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<=\>\"", ",", 
       "\"\<Riemann curvature tensor = 0\>\""}], "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"RiemannList", ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RicciList", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SubscriptBox[\(R\), \(\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<:\>\"", 
      ",", "\"\<Ricci tensor\>\""}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RicciPrintAction", ":=", 
   RowBox[{"AppendTo", "[", 
    RowBox[{"RicciList", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Subscript", "[", 
        RowBox[{"\"\<R\>\"", ",", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}]}], "]"}], ",", 
       "\"\< = \>\"", ",", 
       RowBox[{
        RowBox[{"Ricci", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "//", "pdConv"}]}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Mu]", "=", "1"}], ",", 
   RowBox[{"\[Mu]", "<=", "Dim"}], ",", 
   RowBox[{"\[Mu]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"\[Nu]", "=", "1"}], ",", 
     RowBox[{"\[Nu]", "<=", "\[Mu]"}], ",", 
     RowBox[{"\[Nu]", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Ricci", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "!=", "0"}], ",", 
       "\[IndentingNewLine]", "RicciPrintAction", ",", ",", 
       "RicciPrintAction"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "@", "RicciList"}], "==", "1"}], ",", 
    RowBox[{
     RowBox[{"RicciList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(R\), \(\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<=\>\"",
        ",", "\"\<Ricci tensor = 0\>\""}], "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"RicciList", ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"\"\<Scalar curvature (R) = \>\"", ",", 
      RowBox[{"RicciScalar", "//", "pdConv"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"\"\<Kretschmann (\[CapitalKappa]) = \>\"", ",", 
      RowBox[{"Kretschmann", "//", "pdConv"}]}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EFEList", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(G\), \(\[Mu]\[Nu]\)]\)\>\"", 
      ",", "\"\<+ \[CapitalLambda]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(g\), \(\[Mu]\[Nu]\)]\)\>\"", ",", "\"\<=\>\"",
       ",", "\"\<Einstein Field Equations\>\"", ",", 
      "\"\<= \!\(\*FractionBox[\(8  \[Pi]\\\ G\), SuperscriptBox[\(c\), \
\(4\)]]\) \!\(\*SubscriptBox[\(T\), \(\[Mu]\[Nu]\)]\)\>\""}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EFEPrintAction", ":=", 
   RowBox[{"AppendTo", "[", 
    RowBox[{"EFEList", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Subscript", "[", 
        RowBox[{"\"\<G\>\"", ",", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}]}], "]"}], ",", 
       "\"\<+ \[CapitalLambda] \>\"", ",", 
       RowBox[{"Subscript", "[", 
        RowBox[{"\"\<g\>\"", ",", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}]}], "]"}], ",", 
       "\"\< = \>\"", ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"EFE", "[", 
             RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "//", "pdConv"}], ",", 
           "\"\< = \!\(\*FractionBox[\(8  \[Pi]\\\ G\), SuperscriptBox[\(c\), \
\(4\)]]\) \>\"", ",", 
           RowBox[{
            RowBox[{"SETensor", "[", 
             RowBox[{"[", 
              RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], "//", 
            "pdConv"}]}], "}"}], "}"}], "//", "Grid"}], ",", 
       RowBox[{"Subscript", "[", 
        RowBox[{
        "\"\< = \!\(\*FractionBox[\(8  \[Pi]\\\ G\), SuperscriptBox[\(c\), \
\(4\)]]\) T\>\"", ",", 
         RowBox[{
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Mu]", "]"}], "]"}], "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Nu]", "]"}], "]"}]}]}], "]"}]}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Mu]", "=", "1"}], ",", 
   RowBox[{"\[Mu]", "<=", "Dim"}], ",", 
   RowBox[{"\[Mu]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"\[Nu]", "=", "1"}], ",", 
     RowBox[{"\[Nu]", "<=", "\[Mu]"}], ",", 
     RowBox[{"\[Nu]", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"EFE", "[", 
         RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "!=", "0"}], ",", 
       "\[IndentingNewLine]", "EFEPrintAction", ",", ",", "EFEPrintAction"}], 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "@", "EFEList"}], "==", "1"}], ",", 
    RowBox[{
     RowBox[{"EFEList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(TraditionalForm\`\*SubscriptBox[\(G\), \(\[Mu]\[Nu]\)]\)\>\"", 
       ",", "\"\<+ \[CapitalLambda]\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(g\), \(\[Mu]\[Nu]\)]\)\>\"", ",", 
       "\"\<=\>\"", ",", "0", ",", 
       "\"\<= \!\(\*FractionBox[\(8  \[Pi]\\\ G\), SuperscriptBox[\(c\), \
\(4\)]]\) \!\(\*SubscriptBox[\(T\), \(\[Mu]\[Nu]\)]\)\>\""}], "}"}]}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   RowBox[{"EFEList", ",", 
    RowBox[{"Frame", "->", "True"}], ",", 
    RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GeoList", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SuperscriptBox[\(Geo\), \(\[Lambda]\)]\)\>\"", ",", 
      "\"\<:\>\"", ",", "\"\<\>\""}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GeoPrintAction", ":=", 
   RowBox[{"AppendTo", "[", 
    RowBox[{"GeoList", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Superscript", "[", 
        RowBox[{"\"\<Geo\>\"", ",", 
         RowBox[{"\"\< \>\"", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"co", "[", "\[Lambda]", "]"}], "]"}]}]}], "]"}], ",", 
       "\"\< \[Congruent] \>\"", ",", 
       RowBox[{
        RowBox[{"Geo", "[", 
         RowBox[{"[", "\[Lambda]", "]"}], "]"}], "//", "pdConv"}]}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"\[Lambda]", "=", "1"}], ",", 
   RowBox[{"\[Lambda]", "<=", "Dim"}], ",", 
   RowBox[{"\[Lambda]", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Geo", "[", 
       RowBox[{"[", "\[Lambda]", "]"}], "]"}], "!=", "0"}], ",", 
     "\[IndentingNewLine]", "GeoPrintAction", ",", ",", "GeoPrintAction"}], 
    "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"GeoList", ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameStyle", "->", "Blue"}]}], "]"}]}], "Input",
 CellFrame->{{1, 1}, {1, 1}},
 CellChangeTimes->{{3.8839136712644835`*^9, 3.883913712597311*^9}, {
   3.8839137484708705`*^9, 3.883913770691716*^9}, {3.8839138972863264`*^9, 
   3.883913908855946*^9}, {3.8839140248493495`*^9, 3.8839142228090963`*^9}, {
   3.883914268554432*^9, 3.883914269844954*^9}, {3.883919873209354*^9, 
   3.8839198991562233`*^9}, {3.8839203676368093`*^9, 3.883920406989322*^9}, {
   3.8839209317027397`*^9, 3.883920990536689*^9}, {3.883921022987279*^9, 
   3.883921125598615*^9}, {3.8839212041360283`*^9, 3.883921272474363*^9}, {
   3.883921417359783*^9, 3.883921478810169*^9}, {3.8839218114468136`*^9, 
   3.8839218466135607`*^9}, {3.883921950307419*^9, 3.883922165842089*^9}, {
   3.8839222839852414`*^9, 3.883922332104458*^9}, 3.8839223949639826`*^9, {
   3.883922607343792*^9, 3.8839226731626215`*^9}, {3.883922901563398*^9, 
   3.8839229061621304`*^9}, {3.8839229377225385`*^9, 3.883923011080688*^9}, {
   3.883923067839114*^9, 3.8839231476768856`*^9}, {3.883923295302993*^9, 
   3.883923375483019*^9}, {3.883923446482209*^9, 3.8839234763882236`*^9}, 
   3.8839235543575454`*^9, {3.8839236909105663`*^9, 3.8839237434152336`*^9}, {
   3.8839237771861844`*^9, 3.8839240701043353`*^9}, {3.8839241434337454`*^9, 
   3.8839243306389494`*^9}, {3.8839243826301565`*^9, 3.883924492905561*^9}, {
   3.8839245919228935`*^9, 3.8839245984110155`*^9}, {3.8839246288568897`*^9, 
   3.8839246350021563`*^9}, {3.883924680580187*^9, 3.88392482467811*^9}, {
   3.883924862367198*^9, 3.883924896555602*^9}, {3.883925182327065*^9, 
   3.8839252609871855`*^9}, {3.883925786109954*^9, 3.883925810288327*^9}, {
   3.883926308423169*^9, 3.8839263886578584`*^9}, {3.8839268562556496`*^9, 
   3.8839269146848526`*^9}, {3.8839269976549454`*^9, 3.883927035889491*^9}, {
   3.883927366724408*^9, 3.8839273815740147`*^9}, {3.883936862282035*^9, 
   3.8839369758747272`*^9}, {3.8839370132290754`*^9, 3.883937018122388*^9}, {
   3.883937089217351*^9, 3.8839371194592066`*^9}, {3.8839371507472887`*^9, 
   3.883937195736648*^9}, {3.8839416749383497`*^9, 3.8839416881334114`*^9}, {
   3.883941762178057*^9, 3.8839417875311375`*^9}, 3.8839418224343357`*^9, 
   3.883941861226701*^9, {3.883941926141488*^9, 3.8839419616870947`*^9}, 
   3.8839420259947824`*^9, {3.8839425320201883`*^9, 3.883942566234682*^9}, 
   3.883966571181596*^9, {3.884242475983219*^9, 3.8842425087122884`*^9}, {
   3.8842558495269437`*^9, 3.8842558799432096`*^9}, 3.884255982180294*^9, {
   3.88425646657001*^9, 3.8842564948933725`*^9}, {3.884256526644969*^9, 
   3.8842565365756054`*^9}, {3.8842568555254087`*^9, 3.884256875436509*^9}, {
   3.8842571763037825`*^9, 3.88425721345857*^9}, {3.8842572707167864`*^9, 
   3.8842572863899345`*^9}, {3.884257317849668*^9, 3.8842574275423183`*^9}, {
   3.8842706503532386`*^9, 3.884270662069252*^9}, {3.884270778135377*^9, 
   3.884270792099332*^9}, {3.8842708535906796`*^9, 3.8842709261285906`*^9}, {
   3.8842709601788054`*^9, 3.8842709886157217`*^9}, {3.884271322690283*^9, 
   3.8842713468200374`*^9}, {3.8842713951705914`*^9, 
   3.8842714477104263`*^9}, {3.8842715795748987`*^9, 3.884271594502496*^9}, {
   3.8842717124336343`*^9, 3.884271719230296*^9}, {3.884271809081828*^9, 
   3.884271810529725*^9}, {3.8842718578984475`*^9, 3.884271900855772*^9}, {
   3.8842719756492424`*^9, 3.8842719816189585`*^9}, {3.8842720200865126`*^9, 
   3.8842720500551205`*^9}, {3.8842720831727805`*^9, 
   3.8842721313914986`*^9}, {3.884272201467703*^9, 3.8842722363182974`*^9}, {
   3.8842723323728085`*^9, 3.884272420047147*^9}, {3.884272725587759*^9, 
   3.8842727647484503`*^9}, {3.88427297994088*^9, 3.884272984859758*^9}, {
   3.88427303588083*^9, 3.884273058829955*^9}, {3.884273090689764*^9, 
   3.8842731383822947`*^9}, 3.8842733736250267`*^9, {3.884273571902442*^9, 
   3.8842735943111286`*^9}, {3.8842737533896365`*^9, 
   3.8842737780725965`*^9}, {3.884273809813471*^9, 3.8842738327379627`*^9}, {
   3.8842740715173073`*^9, 3.8842741325881824`*^9}, {3.8842741948504353`*^9, 
   3.88427424996135*^9}, {3.8842743272118635`*^9, 3.884274347468896*^9}, {
   3.8842743853199472`*^9, 3.8842744723968105`*^9}, {3.8842746020460234`*^9, 
   3.884274675921935*^9}, {3.884274941288766*^9, 3.884274968896681*^9}, {
   3.8842750169643435`*^9, 3.8842750370864925`*^9}, {3.8842750726614504`*^9, 
   3.884275120681249*^9}, {3.884275219235901*^9, 3.884275224065819*^9}, {
   3.899828030152663*^9, 3.8998280304880238`*^9}, {3.8998280693364115`*^9, 
   3.899828075816887*^9}, {3.899828245901475*^9, 3.899828263190025*^9}, {
   3.8998283098345704`*^9, 3.899828316664516*^9}, {3.8998283467048287`*^9, 
   3.8998283912646866`*^9}, {3.899828424977727*^9, 3.8998286159731874`*^9}, {
   3.8998732511763597`*^9, 3.8998732536093955`*^9}, 3.8998732890127087`*^9, {
   3.8998733230811768`*^9, 3.8998733886728673`*^9}, 3.8998734892174788`*^9, 
   3.9000274976018553`*^9, {3.900027629566395*^9, 3.9000276348449335`*^9}},
 CellLabel->
  "In[1495]:=",ExpressionUUID->"8a25d512-7cb8-4912-8782-93ee4d2204a7"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Metric Tensor (\\!\\(\\*SubscriptBox[\\(g\\), \\(\[Mu]\[Nu]\\)]\\)) \
= \"\>", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox[
            RowBox[{"2", " ", "GM"}], "r"]}], "0", "0", "0"},
         {"0", 
          FractionBox["1", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"2", " ", "GM"}], "r"]}]], "0", "0"},
         {"0", "0", 
          SuperscriptBox["r", "2"], "0"},
         {"0", "0", "0", 
          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$]]]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.900027675612446*^9},
 CellLabel->
  "Out[1495]=",ExpressionUUID->"50d4b52d-2e56-489c-a9d4-145a6b621cb9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Inverse Metric Tensor (\\!\\(\\*SuperscriptBox[\\(g\\), \\(\[Mu]\
\[Nu]\\)]\\)) = \"\>", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          FractionBox["r", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", "r"}]], "0", "0", "0"},
         {"0", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "GM"}], "r"]}], "0", "0"},
         {"0", "0", 
          FractionBox["1", 
           SuperscriptBox["r", "2"]], "0"},
         {"0", "0", "0", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
           SuperscriptBox["r", "2"]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.9000276756214385`*^9},
 CellLabel->
  "Out[1496]=",ExpressionUUID->"290150c2-7b28-4498-988f-52c48eb1227e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Stress-Energy Tensor (\\!\\(\\*SubscriptBox[\\(T\\), \
\\(\[Mu]\[Nu]\\)]\\)) = \"\>", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{
           SuperscriptBox["c", "2"], " ", "\[Rho]"}], "0", "0", "0"},
         {"0", "P", "0", "0"},
         {"0", "0", "P", "0"},
         {"0", "0", "0", "P"}
        },
        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$]]]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.9000276756314335`*^9},
 CellLabel->
  "Out[1497]=",ExpressionUUID->"0e1aa4bd-8a18-4dc0-8f1f-eb05a7dcc93c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*SubscriptBox[SuperscriptBox[\\(\[CapitalGamma]\\), \\(\
\[Beta]\\)], \\(\[Mu]\[Nu]\\)]\\)\"\>", "\<\":\"\>", "\<\"Christoffel symbols \
( \\!\\(TraditionalForm\\`\\*SubscriptBox[\\(2\\), \\(nd\\)]\\) kind )\"\>"},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" rt\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox["GM", 
         RowBox[{
          RowBox[{"2", " ", "GM", " ", "r"}], "-", 
          SuperscriptBox["r", "2"]}]]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" tt\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{"(", 
          RowBox[{"r", "-", 
           RowBox[{"2", " ", "GM"}]}], ")"}]}], 
        SuperscriptBox["r", "3"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" rr\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["GM", 
        RowBox[{
         RowBox[{"2", " ", "GM", " ", "r"}], "-", 
         SuperscriptBox["r", "2"]}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Theta]\[Theta]\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{"2", " ", "GM"}], "-", "r"}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Phi]\[Phi]\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Theta]r\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["1", "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Phi]\[Phi]\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Phi]r\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["1", "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"\[CapitalGamma]\"", "\" \[Phi]\[Theta]\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"cot", "(", "\[Theta]", ")"}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.9000276756424255`*^9},
 CellLabel->
  "Out[1502]=",ExpressionUUID->"b318dfec-4d3f-4508-bf88-dd7afaae063c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*SubscriptBox[SuperscriptBox[\\(R\\), \\(\[Beta]\\)], \\(\
\[Sigma]\[Mu]\[Nu]\\)]\\)\"\>", "\<\":\"\>", "\<\"Riemann curvature \
tensor\"\>"},
    {
     TemplateBox[{"\"R\"", "\" rtr\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "GM"}], 
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" rrt\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "GM"}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]t\[Theta]\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox["GM", "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]\[Theta]t\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["GM", "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]t\[Phi]\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"GM", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]\[Phi]t\"", "\"t\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" ttr\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "GM", " ", 
         RowBox[{"(", 
          RowBox[{"r", "-", 
           RowBox[{"2", " ", "GM"}]}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" trt\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "GM", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]r\[Theta]\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox["GM", "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]\[Theta]r\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["GM", "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]r\[Phi]\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"GM", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]\[Phi]r\"", "\"r\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" tt\[Theta]\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" t\[Theta]t\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{"(", 
          RowBox[{"r", "-", 
           RowBox[{"2", " ", "GM"}]}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" rr\[Theta]\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox["GM", 
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" r\[Theta]r\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["GM", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]\[Theta]\[Phi]\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "GM", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Phi]\[Phi]\[Theta]\"", "\"\[Theta]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "GM", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" tt\[Phi]\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" t\[Phi]t\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"GM", " ", 
         RowBox[{"(", 
          RowBox[{"r", "-", 
           RowBox[{"2", " ", "GM"}]}], ")"}]}], 
        SuperscriptBox["r", "4"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" rr\[Phi]\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox["GM", 
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" r\[Phi]r\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox["GM", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "GM"}], "-", "r"}], ")"}]}]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]\[Theta]\[Phi]\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "GM"}], "r"]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"R\"", "\" \[Theta]\[Phi]\[Theta]\"", "\"\[Phi]\""},
      "Subsuperscript"], "\<\" = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"2", " ", "GM"}], "r"],
       TraditionalForm],
      TraditionalForm,
      Editable->True]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.900027675711385*^9},
 CellLabel->
  "Out[1507]=",ExpressionUUID->"747aba58-90c0-40c0-a569-68ecbee9b5a9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*SubscriptBox[\\(R\\), \\(\[Mu]\[Nu]\\)]\\)\"\>", \
"\<\"=\"\>", "\<\"Ricci tensor = 0\"\>"}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.900027675729372*^9},
 CellLabel->
  "Out[1512]=",ExpressionUUID->"ff413ec3-235b-443a-8b6b-d2717495878a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Scalar curvature (R) = \"\>", 
     TagBox[
      FormBox["0",
       TraditionalForm],
      TraditionalForm,
      Editable->True]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.9000276757373676`*^9},
 CellLabel->
  "Out[1513]=",ExpressionUUID->"b5669cc4-ed5f-4d98-ab1b-2e906f50a33a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Kretschmann (\[CapitalKappa]) = \"\>", 
     TagBox[
      FormBox[
       FractionBox[
        RowBox[{"48", " ", 
         SuperscriptBox["GM", "2"]}], 
        SuperscriptBox["r", "6"]],
       TraditionalForm],
      TraditionalForm,
      Editable->True]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.900027675745363*^9},
 CellLabel->
  "Out[1514]=",ExpressionUUID->"abfdbd4a-3b41-41cc-911c-d3b810ed3f8e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(TraditionalForm\\`\\*SubscriptBox[\\(G\\), \
\\(\[Mu]\[Nu]\\)]\\)\"\>", "\<\"+ \[CapitalLambda]\"\>", \
"\<\"\\!\\(\\*SubscriptBox[\\(g\\), \\(\[Mu]\[Nu]\\)]\\)\"\>", "\<\"=\"\>", "\
\<\"Einstein Field Equations\"\>", "\<\"= \\!\\(\\*FractionBox[\\(8  \
\[Pi]\\\\ G\\), SuperscriptBox[\\(c\\), \\(4\\)]]\\) \
\\!\\(\\*SubscriptBox[\\(T\\), \\(\[Mu]\[Nu]\\)]\\)\"\>"},
    {
     SubscriptBox["\<\"G\"\>", "\<\"tt\"\>"], "\<\"+ \[CapitalLambda] \"\>", 
     SubscriptBox["\<\"g\"\>", "\<\"tt\"\>"], "\<\" = \"\>", 
     TagBox[GridBox[{
        {
         TagBox[
          FormBox[
           RowBox[{"\[CapitalLambda]", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"2", " ", "GM"}], "r"], "-", "1"}], ")"}]}],
           TraditionalForm],
          TraditionalForm,
          
          Editable->
           True], "\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) \"\>", 
         TagBox[
          FormBox[
           RowBox[{
            SuperscriptBox["c", "2"], " ", "\[Rho]"}],
           TraditionalForm],
          TraditionalForm,
          Editable->True]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"], 
     SubscriptBox["\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) T\"\>", "\<\"tt\"\>"]},
    {
     SubscriptBox["\<\"G\"\>", "\<\"rr\"\>"], "\<\"+ \[CapitalLambda] \"\>", 
     SubscriptBox["\<\"g\"\>", "\<\"rr\"\>"], "\<\" = \"\>", 
     TagBox[GridBox[{
        {
         TagBox[
          FormBox[
           FractionBox["\[CapitalLambda]", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"2", " ", "GM"}], "r"]}]],
           TraditionalForm],
          TraditionalForm,
          
          Editable->
           True], "\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) \"\>", 
         TagBox[
          FormBox["P",
           TraditionalForm],
          TraditionalForm,
          Editable->True]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"], 
     SubscriptBox["\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) T\"\>", "\<\"rr\"\>"]},
    {
     SubscriptBox["\<\"G\"\>", "\<\"\[Theta]\[Theta]\"\>"], "\<\"+ \
\[CapitalLambda] \"\>", 
     SubscriptBox["\<\"g\"\>", "\<\"\[Theta]\[Theta]\"\>"], "\<\" = \"\>", 
     TagBox[GridBox[{
        {
         TagBox[
          FormBox[
           RowBox[{"\[CapitalLambda]", " ", 
            SuperscriptBox["r", "2"]}],
           TraditionalForm],
          TraditionalForm,
          
          Editable->
           True], "\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) \"\>", 
         TagBox[
          FormBox["P",
           TraditionalForm],
          TraditionalForm,
          Editable->True]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"], 
     SubscriptBox["\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) T\"\>", "\<\"\[Theta]\[Theta]\"\>"]},
    {
     SubscriptBox["\<\"G\"\>", "\<\"\[Phi]\[Phi]\"\>"], "\<\"+ \
\[CapitalLambda] \"\>", 
     SubscriptBox["\<\"g\"\>", "\<\"\[Phi]\[Phi]\"\>"], "\<\" = \"\>", 
     TagBox[GridBox[{
        {
         TagBox[
          FormBox[
           RowBox[{"\[CapitalLambda]", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}],
           TraditionalForm],
          TraditionalForm,
          Editable->
           True], "\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) \"\>", 
         TagBox[
          FormBox["P",
           TraditionalForm],
          TraditionalForm,
          Editable->True]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"], 
     SubscriptBox["\<\" = \\!\\(\\*FractionBox[\\(8  \[Pi]\\\\ G\\), \
SuperscriptBox[\\(c\\), \\(4\\)]]\\) T\"\>", "\<\"\[Phi]\[Phi]\"\>"]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.9000276757563567`*^9},
 CellLabel->
  "Out[1519]=",ExpressionUUID->"13752da1-a1d2-4712-9061-e426c5abcd7e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*SuperscriptBox[\\(Geo\\), \\(\[Lambda]\\)]\\)\"\>", "\<\":\
\"\>", "\<\"\"\>"},
    {
     TemplateBox[{"\"Geo\"", "\" t\""},
      "Superscript"], "\<\" \[Congruent] \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"t", "(", "\[Tau]", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None], "\[LongEqual]", 
        FractionBox[
         RowBox[{"2", " ", "GM", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", "\[Tau]", ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"t", "(", "\[Tau]", ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None]}], 
         RowBox[{
          RowBox[{"2", " ", "GM", " ", 
           RowBox[{"r", "(", "\[Tau]", ")"}]}], "-", 
          SuperscriptBox[
           RowBox[{"r", "(", "\[Tau]", ")"}], "2"]}]]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"Geo\"", "\" r\""},
      "Superscript"], "\<\" \[Congruent] \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", 
            RowBox[{"r", "(", "\[Tau]", ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[Theta]", "(", "\[Tau]", ")"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Phi]", "(", "\[Tau]", ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "GM"}], "-", 
            RowBox[{"r", "(", "\[Tau]", ")"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Theta]", "(", "\[Tau]", ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"GM", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", "(", "\[Tau]", ")"}], "-", 
             RowBox[{"2", " ", "GM"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"t", "(", "\[Tau]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"r", "(", "\[Tau]", ")"}], "3"]], "+", 
         FractionBox[
          RowBox[{"GM", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", "\[Tau]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], 
          RowBox[{
           RowBox[{"2", " ", "GM", " ", 
            RowBox[{"r", "(", "\[Tau]", ")"}]}], "-", 
           SuperscriptBox[
            RowBox[{"r", "(", "\[Tau]", ")"}], "2"]}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"r", "(", "\[Tau]", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Tau]", "2"]}],
          MultilineFunction->None]}], "\[LongEqual]", "0"}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"Geo\"", "\" \[Theta]\""},
      "Superscript"], "\<\" \[Congruent] \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{
         RowBox[{"sin", "(", 
          RowBox[{"\[Theta]", "(", "\[Tau]", ")"}], ")"}], " ", 
         RowBox[{"cos", "(", 
          RowBox[{"\[Theta]", "(", "\[Tau]", ")"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Phi]", "(", "\[Tau]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], ")"}], "2"]}], "\[LongEqual]", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Theta]", "(", "\[Tau]", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Tau]", "2"]}],
          MultilineFunction->None], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Theta]", "(", "\[Tau]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", "\[Tau]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}], 
          RowBox[{"r", "(", "\[Tau]", ")"}]]}]}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]},
    {
     TemplateBox[{"\"Geo\"", "\" \[Phi]\""},
      "Superscript"], "\<\" \[Congruent] \"\>", 
     TagBox[
      FormBox[
       RowBox[{
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Theta]", "(", "\[Tau]", ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], " ", 
          RowBox[{"cot", "(", 
           RowBox[{"\[Theta]", "(", "\[Tau]", ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Phi]", "(", "\[Tau]", ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", "\[Tau]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Phi]", "(", "\[Tau]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}], 
          RowBox[{"r", "(", "\[Tau]", ")"}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Phi]", "(", "\[Tau]", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Tau]", "2"]}],
          MultilineFunction->None]}], "\[LongEqual]", "0"}],
       TraditionalForm],
      TraditionalForm,
      Editable->True]}
   },
   AutoDelete->False,
   FrameStyle->RGBColor[0, 0, 1],
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8842572875049953`*^9, {3.884257318991208*^9, 3.884257387486475*^9}, 
   3.884257428193157*^9, 3.884270673985179*^9, 3.8842713544425926`*^9, 
   3.8842714019690776`*^9, 3.884271449617793*^9, 3.8842715960143657`*^9, 
   3.884271724231495*^9, 3.884271812390335*^9, 3.884271870230448*^9, 
   3.884271902137375*^9, 3.8842719868023987`*^9, 3.8842721350322647`*^9, {
   3.884272210262411*^9, 3.884272237109681*^9}, 3.884272424666605*^9, 
   3.884273139657831*^9, 3.8842731776270533`*^9, 3.8842732170180063`*^9, 
   3.8842733321653996`*^9, 3.8842733826737432`*^9, {3.8842734373417006`*^9, 
   3.8842734633676424`*^9}, 3.884273541173259*^9, {3.8842735806764903`*^9, 
   3.884273621921711*^9}, 3.8842737171942596`*^9, 3.8842737850107036`*^9, 
   3.884273843711113*^9, 3.884273927981594*^9, 3.8842739922790546`*^9, 
   3.884274135905897*^9, 3.8842744757585335`*^9, {3.884274652454805*^9, 
   3.8842746770048227`*^9}, 3.8842749709638667`*^9, {3.884275018781048*^9, 
   3.8842750386614304`*^9}, {3.88427509237466*^9, 3.884275121506049*^9}, 
   3.8998274204402914`*^9, 3.8998275522706127`*^9, 3.89982776814151*^9, 
   3.8998286199376993`*^9, 3.899831283683936*^9, 3.8998313337712474`*^9, 
   3.8998318552160673`*^9, 3.899872435658087*^9, 3.899872467383906*^9, {
   3.8998725830313325`*^9, 3.899872612252906*^9}, 3.8998726445714226`*^9, 
   3.89987269563266*^9, 3.8998727764955783`*^9, 3.8998730402990837`*^9, 
   3.899873148283331*^9, 3.899873193341075*^9, 3.8998732640158887`*^9, 
   3.89987339488948*^9, 3.8998734900442085`*^9, 3.899873598515068*^9, 
   3.899873978280729*^9, 3.8998810410369616`*^9, 3.8998819480952744`*^9, 
   3.900025204319237*^9, 3.9000252756755676`*^9, {3.90002531622923*^9, 
   3.9000253233631725`*^9}, 3.9000254290931606`*^9, {3.900025835994174*^9, 
   3.900025849543934*^9}, 3.900025882266494*^9, 3.9000274787386494`*^9, 
   3.900027517257484*^9, 3.900027675780341*^9},
 CellLabel->
  "Out[1523]=",ExpressionUUID->"8441ac43-d712-46ba-a881-831dd1400857"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1080, 612.75},
WindowMargins->{{1018.5, Automatic}, {Automatic, -54.75}},
FrontEndVersion->"13.3 for Microsoft Windows (64-bit) (June 3, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6cddc39e-15af-49b9-be45-ef30a8159534"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 499, 11, 48, "Input",ExpressionUUID->"b8bdb7df-f9ed-4807-b063-0da9ef4fda06"],
Cell[CellGroupData[{
Cell[1082, 35, 219, 4, 98, "Title",ExpressionUUID->"22c6ea2f-6f95-4f91-b37b-d794172e35c9"],
Cell[CellGroupData[{
Cell[1326, 43, 239, 5, 72, "Section",ExpressionUUID->"17628294-e56c-4085-b7bd-4c2bf27a9abf"],
Cell[1568, 50, 5835, 149, 462, "Input",ExpressionUUID->"33ebf613-a6b4-451f-8644-73c5960c9fd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7440, 204, 874, 22, 74, "Section",ExpressionUUID->"7e509108-844d-4cc4-a24e-7750401dd96f"],
Cell[8317, 228, 2382, 53, 101, "Input",ExpressionUUID->"4f86dcb6-3d7e-48ba-a28a-987133ea9eff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10736, 286, 980, 24, 74, "Section",ExpressionUUID->"443b41c0-8a8e-4693-9a67-64c4040db4cc"],
Cell[11719, 312, 3805, 90, 142, "Input",ExpressionUUID->"fe6d8d60-9de3-4516-8443-72764ee1bddf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15561, 407, 668, 10, 72, "Section",ExpressionUUID->"17c8f61c-3d57-4bd1-ab1d-c4657c9aac5b"],
Cell[16232, 419, 1869, 38, 63, "Input",ExpressionUUID->"962bdb2b-7a08-40d5-9b69-cf0b849d6fb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18138, 462, 1223, 27, 73, "Section",ExpressionUUID->"7d8113ee-83fe-4586-85ff-cba00b86dc62"],
Cell[19364, 491, 4651, 109, 142, "Input",ExpressionUUID->"3c771740-3758-493e-b534-33e7a294d45e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24052, 605, 821, 12, 72, "Section",ExpressionUUID->"7e203bed-a276-4358-b59f-c955d90b012a"],
Cell[24876, 619, 4714, 91, 161, "Input",ExpressionUUID->"c2424550-6190-4d3f-8a97-230938033ad0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29627, 715, 658, 10, 72, "Section",ExpressionUUID->"ac7cfaff-b61f-4f31-ba7c-423741e57e96"],
Cell[CellGroupData[{
Cell[30310, 729, 20076, 465, 1386, "Input",ExpressionUUID->"8a25d512-7cb8-4912-8782-93ee4d2204a7"],
Cell[50389, 1196, 3365, 68, 129, "Output",ExpressionUUID->"50d4b52d-2e56-489c-a9d4-145a6b621cb9"],
Cell[53757, 1266, 3346, 67, 137, "Output",ExpressionUUID->"290150c2-7b28-4498-988f-52c48eb1227e"],
Cell[57106, 1335, 3018, 57, 104, "Output",ExpressionUUID->"0e1aa4bd-8a18-4dc0-8f1f-eb05a7dcc93c"],
Cell[60127, 1394, 5461, 142, 261, "Output",ExpressionUUID->"b318dfec-4d3f-4508-bf88-dd7afaae063c"],
Cell[65591, 1538, 11016, 346, 687, "Output",ExpressionUUID->"747aba58-90c0-40c0-a569-68ecbee9b5a9"],
Cell[76610, 1886, 2361, 38, 53, "Output",ExpressionUUID->"ff413ec3-235b-443a-8b6b-d2717495878a"],
Cell[78974, 1926, 2396, 42, 51, "Output",ExpressionUUID->"b5669cc4-ed5f-4d98-ab1b-2e906f50a33a"],
Cell[81373, 1970, 2521, 46, 63, "Output",ExpressionUUID->"abfdbd4a-3b41-41cc-911c-d3b810ed3f8e"],
Cell[83897, 2018, 6591, 156, 170, "Output",ExpressionUUID->"13752da1-a1d2-4712-9061-e426c5abcd7e"],
Cell[90491, 2176, 9148, 229, 197, "Output",ExpressionUUID->"8441ac43-d712-46ba-a881-831dd1400857"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)