Black Hole Collisions in Asymptotically de Sitter Spacetimes by Zilhao et al.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    138242,       3343]
NotebookOptionsPosition[    125262,       3149]
NotebookOutlinePosition[    125750,       3167]
CellTagsIndexPosition[    125707,       3164]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Black Hole Collisions in Asymptotically de Sitter Spacetimes by Zilhao et al\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.82846914237554*^9, 3.828469146910945*^9}, {
   3.828471572443717*^9, 3.8284715890511923`*^9}, {3.828529438373527*^9, 
   3.8285294469068527`*^9}, {3.828533473276997*^9, 3.8285334845643597`*^9}, {
   3.828605529086955*^9, 3.828605544687042*^9}, {3.8286904376033077`*^9, 
   3.828690443890785*^9}, {3.828960830949527*^9, 3.828960837356461*^9}, {
   3.828964374643404*^9, 3.828964388755177*^9}, {3.82899204228438*^9, 
   3.828992061586752*^9}, {3.828996399488575*^9, 3.82899640665613*^9}, 
   3.855504926543528*^9, 3.855504993426053*^9},
 TextAlignment->Center,ExpressionUUID->"c81ee6b6-c4f7-41ce-8fad-19d570a60782"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
May 2, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, 
   3.8554963948316936`*^9, {3.855504241007119*^9, 3.855504245254983*^9}, {
   3.8555049671827374`*^9, 3.855504993426124*^9}},
 TextAlignment->Center,ExpressionUUID->"6376660a-ef45-4fb9-96ea-2d4c32805487"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{"T0", " ", 
   RowBox[{"DO", ":", "  ", 
    RowBox[{"Metric", " ", "6"}]}]}], "\[IndentingNewLine]", "*)"}]], "Input",\

 CellChangeTimes->{{3.828997196294372*^9, 
  3.828997205060836*^9}},ExpressionUUID->"b28bfbb6-749a-4e33-8d7b-\
1e770a9d3578"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"de836590-407d-432b-8bac-\
5e090ca694fc"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"36bc890f-3a78-45db-b3af-782485c44fea"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.828469241787932*^9, 3.828471664239974*^9, 3.8284721155283823`*^9, 
   3.828530571609256*^9, 3.828533466311865*^9, 3.828605666606776*^9, 
   3.828611773790597*^9, 3.82861654226705*^9, 3.828690472516346*^9, 
   3.828693683718005*^9, 3.828696145626916*^9, 3.828697685976324*^9, 
   3.828960897851918*^9, 3.82896444378833*^9, 3.828966754817218*^9, 
   3.828967553146039*^9, 3.8289925133248777`*^9, 3.8289965952188873`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"333f7105-de3d-410d-bdf7-9faa37a71272"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Paper", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, {3.828691206350932*^9, 
   3.828691209871169*^9}, {3.828703099384598*^9, 3.828703101328167*^9}, {
   3.856099713720538*^9, 
   3.856099714702227*^9}},ExpressionUUID->"933430bb-037f-4355-b479-\
fe6d5a140e54"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Black Hole Collisions in Asymptotically de Sitter Spacetimes by Zilhao \
et al\>\"", ",", "\[IndentingNewLine]", 
   "\"\<http://ae100prg.mff.cuni.cz/pdf_proceedings/Zilhao.pdf\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.856099688217249*^9, 3.856099703726757*^9}},
 CellLabel->
  "In[312]:=",ExpressionUUID->"4467b3f1-7eb2-4b8c-8b7a-08cd26752b24"],

Cell[BoxData[
 TemplateBox[{
  "\"Black Hole Collisions in Asymptotically de Sitter Spacetimes by Zilhao \
et al\"", "http://ae100prg.mff.cuni.cz/pdf_proceedings/Zilhao.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.856099704125222*^9},
 CellLabel->
  "Out[312]=",ExpressionUUID->"c4182426-4e0d-49ef-8989-9d31c4127c88"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"2c2d0869-3bc7-4445-8dbb-\
b626ff0d40bb"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"c5232015-9e45-4da2-921c-12970d2c288c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.8289608982622147`*^9, 3.828964444188753*^9, 
   3.828966755203113*^9, 3.828967553618767*^9, 3.8289925137584133`*^9, 
   3.8289965963020477`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"3a9928cd-7c28-4996-883c-7cd77aba26cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"21 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "21 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.8289608982622147`*^9, 3.828964444188753*^9, 
   3.828966755203113*^9, 3.828967553618767*^9, 3.8289925137584133`*^9, 
   3.828996596304975*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"5cc0f2c7-07a6-445e-bebf-7be42c9f7f52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.828469241964273*^9, 3.828471664461882*^9, 
   3.828472115727516*^9, 3.8285305718886538`*^9, 3.82853346772556*^9, 
   3.8286056667871323`*^9, 3.828611773929594*^9, 3.828616542519825*^9, 
   3.828690472858699*^9, 3.828693683944024*^9, 3.82869614585636*^9, 
   3.828697687001523*^9, 3.828960898268261*^9, 3.828964444194933*^9, 
   3.828966755209516*^9, 3.8289675536298018`*^9, 3.828992513766124*^9, 
   3.828996596306232*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"585478bd-805d-492c-bf17-1974d1e2298a"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"a488fbe2-2346-4911-8332-765a5c4d1494"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"7b36015a-81c0-4c20-82db-\
80adf2f10ce9"],

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

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.8279912532863617`*^9, 
   3.827992770095962*^9, 3.828435906737782*^9, 3.828455532145804*^9, 
   3.82845933986725*^9, 3.8284692420170603`*^9, 3.828471664529696*^9, 
   3.82847211575672*^9, 3.828530571960513*^9, 3.828533469228689*^9, 
   3.828605666816091*^9, 3.8286060250588503`*^9, 3.8286117739948387`*^9, 
   3.828616542589233*^9, 3.828690472957294*^9, 3.828693684019373*^9, 
   3.828694593299365*^9, 3.828696145930181*^9, 3.8286976871734247`*^9, 
   3.828701726000832*^9, 3.8289608983374043`*^9, 3.8289644450710983`*^9, 
   3.82896675525811*^9, 3.828967553728793*^9, 3.828992513826569*^9, 
   3.828996596437292*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"7f2d1a8e-282e-4446-a983-374dfcf2fa29"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], " ", ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Mass", " ", "of", " ", "Schwarzschild", " ", "is", " ", "constant"}], " ",
    "*)"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "use", " ", "M", " ", "for", " ", "mass", " ", "and", " ", "m", 
    " ", "for", " ", "null", " ", "vector"}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82869475118476*^9, 3.828694761903348*^9}, 
   3.828695041652215*^9, {3.828697403799129*^9, 3.8286974141262493`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"d3e16c90-6bc2-49ea-8418-3643236e4bd4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"8ef02555-f5c9-4b4d-9b5f-\
cb2f76c2afff"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"3a550e66-4308-4f3b-b441-d6ad8ad932d5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"09ee3fb2-a699-4844-b00b-1eb1b45695ae"],

Cell["\<\
Line Element and Metic 14 (Bondi\[CloseCurlyQuote]s Radiating Metric See D\
\[CloseCurlyQuote]Inverno Page 294)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.825438091674852*^9, 
  3.825438128633803*^9}},ExpressionUUID->"0d910f17-cb2e-47d3-840d-\
7fe5dc1377cb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1 Schwarzschild de Sitter", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8289924804287157`*^9, 3.828992504237769*^9}, {
  3.82899646784827*^9, 
  3.828996475103909*^9}},ExpressionUUID->"dd61ba45-22d2-46de-ae59-\
a907e6abb3f4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"f", "[", "R", "]"}]}], " ", 
    SuperscriptBox["dT", "2"]}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"f", "[", "R", "]"}], 
     RowBox[{"-", "1"}]], 
    SuperscriptBox["dR", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox["R", "2"], "(", " ", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
      SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8289964881721*^9, 3.828996528623324*^9}, 
   3.828996832510406*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"716daea5-c58d-471c-878b-b4c1eab680f5"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["dR", "2"], 
   RowBox[{"f", "[", "R", "]"}]], "-", 
  RowBox[{
   SuperscriptBox["dT", "2"], " ", 
   RowBox[{"f", "[", "R", "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["R", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.82899659648199*^9, 3.828996832510832*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"061f231b-ac5f-4b69-8517-3d6b29feb97b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dT", ",", "dR", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
   " ", "]"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828996651605178*^9, 3.8289966675071697`*^9}, 
   3.828996832511009*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"acdd9500-b4d2-42f5-86b7-8cf2b5003d94"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       RowBox[{"f", "[", "R", "]"}]}], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       RowBox[{"f", "[", "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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8289966680219193`*^9, 3.828996832511201*^9},
 CellLabel->
  "Out[13]//MatrixForm=",ExpressionUUID->"1f1d5c79-b100-4ce8-adc9-\
c7e15dd9a100"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", " ", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", "R", "]"}], " ", "\[Equal]", " ", 
    RowBox[{"1", " ", "-", " ", 
     FractionBox[
      RowBox[{"2", "M"}], "R"], "-", 
     RowBox[{
      SuperscriptBox["H", "2"], 
      SuperscriptBox["R", "2"]}]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq2", " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8289965365286617`*^9, 3.82899655744773*^9}, {
   3.828996674956048*^9, 3.828996684322451*^9}, 3.828996832511361*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"7a7e88c6-00ef-4056-bdfd-2e0d0b6fba52"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "R", "]"}], "\[Rule]", 
  RowBox[{"1", "-", 
   FractionBox[
    RowBox[{"2", " ", "M"}], "R"], "-", 
   RowBox[{
    SuperscriptBox["H", "2"], " ", 
    SuperscriptBox["R", "2"]}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.828996684771892*^9, 3.828996832511587*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"ae22d0c0-d7f7-4cf6-b14f-18374fa5e879"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", "\[IndentingNewLine]", 
   RowBox[{"H", " ", "\[Equal]", " ", 
    SqrtBox[
     FractionBox["\[CapitalLambda]", "3"]]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq2a", " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828996567512566*^9, 3.828996585327944*^9}, {
   3.828996691059868*^9, 3.828996694788186*^9}, 3.82899683251173*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"d0cabc65-71d2-4e4d-906b-a37a04a5a813"],

Cell[BoxData[
 RowBox[{"H", "\[Rule]", 
  FractionBox[
   SqrtBox["\[CapitalLambda]"], 
   SqrtBox["3"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8289966956041403`*^9, 3.828996832511918*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"41cb385b-77b5-4fe8-b40f-c2a038e68d8e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"lineToMetric", "[", " ", 
        RowBox[{"eq1", ",", "  ", 
         RowBox[{"{", 
          RowBox[{"dT", ",", "dR", ",", "d\[Theta]", ",", "d\[Phi]"}], 
          "}"}]}], "]"}], "   ", "/.", " ", 
       RowBox[{"(", " ", 
        RowBox[{"eq2", " ", "/.", " ", 
         RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "  ", "/.",
       " ", 
      RowBox[{"(", " ", 
       RowBox[{"eq2a", " ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "//", 
     " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "TraditionalForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8218635175916862`*^9, 3.82186351981537*^9}, {
   3.821863690176012*^9, 3.821863710143374*^9}, {3.821863788312024*^9, 
   3.8218637919067507`*^9}, {3.821956375220818*^9, 3.821956382170579*^9}, {
   3.8219564154434023`*^9, 3.8219564303461437`*^9}, 3.825438102843814*^9, {
   3.8289924002489777`*^9, 3.82899241497362*^9}, 3.828992489185519*^9, {
   3.828996709740775*^9, 3.8289967785483294`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"14eaddf4-e6e9-4cde-b7ac-6d47fe0cdef2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "M"}], "R"], "+", 
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox["R", "2"]}], "3"], "-", "1"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"3", " ", "R"}], 
         RowBox[{
          RowBox[{"6", " ", "M"}], "+", 
          RowBox[{"\[CapitalLambda]", " ", 
           SuperscriptBox["R", "3"]}], "-", 
          RowBox[{"3", " ", "R"}]}]]}], "0", "0"},
      {"0", "0", 
       SuperscriptBox["R", "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["R", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8289967628055267`*^9, 3.828996778835761*^9}, 
   3.828996832512023*^9},
 CellLabel->
  "Out[29]//TraditionalForm=",ExpressionUUID->"697be467-3892-4e7f-b4e3-\
01651b283ee8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", " ", "metric1", " ", "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "TraditionalForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.821863749664628*^9, 3.821863801785084*^9}, {
   3.821956438500195*^9, 3.821956446801787*^9}, 3.825438102844007*^9, {
   3.828992417182487*^9, 3.828992426605159*^9}, 3.8289924891857433`*^9, {
   3.828996794782384*^9, 3.828996802815539*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e498c77d-0d37-4acd-ba73-50eab209e400"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"3", " ", "R"}], 
        RowBox[{
         RowBox[{"6", " ", "M"}], "+", 
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox["R", "3"]}], "-", 
         RowBox[{"3", " ", "R"}]}]], "0", "0", "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "M"}], "R"]}], "-", 
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox["R", "2"]}], "3"], "+", "1"}], "0", "0"},
      {"0", "0", 
       FractionBox["1", 
        SuperscriptBox["R", "2"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], 
        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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8219563595854263`*^9, 3.8219564511495667`*^9, 
  3.8219567130615053`*^9, 3.825436275262877*^9, 3.82543810284407*^9, 
  3.8279996425578423`*^9, 3.828001846160432*^9, 3.828992489185803*^9, 
  3.8289925219064293`*^9, 3.82899680503371*^9},
 CellLabel->
  "Out[32]//TraditionalForm=",ExpressionUUID->"aa56bbca-a5ca-41c7-8c9b-\
aa41bda0c391"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", " ", ".", "inverse1"}], "//", " ", "Expand"}], " ", "//",
    " ", "Simplify"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.821863806993414*^9, 3.821863816038802*^9}, {
   3.8219564552604637`*^9, 3.821956459098476*^9}, 3.825438102844173*^9, {
   3.82899242884628*^9, 3.828992432053485*^9}, 3.828992489185895*^9, {
   3.828996808604843*^9, 3.8289968124610043`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"06ffa4eb-e370-4194-9b8a-efbd6f9f8e68"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.821956359612123*^9, 3.8219564669014053`*^9, 
  3.821956713071157*^9, 3.825436275274302*^9, 3.8254381028442583`*^9, 
  3.8279996425739613`*^9, 3.8280018461857653`*^9, 3.828992489185986*^9, 
  3.828992521917474*^9, 3.828996819221143*^9},
 CellLabel->
  "Out[33]//MatrixForm=",ExpressionUUID->"7a72565c-482e-4529-9596-\
deea3360180c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", "  ", ".", " ", "metric1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8218638267336073`*^9, 3.8218638314394493`*^9}, {
   3.82195646173107*^9, 3.8219564646021767`*^9}, 3.8254381028443604`*^9, {
   3.828992433758252*^9, 3.828992436973345*^9}, 3.828992489186063*^9, {
   3.828996814558413*^9, 3.828996817575789*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"6f8dc223-664f-4c7f-890b-866440e11f3e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.821956359621982*^9, 3.8219564721947527`*^9, 
  3.821956713097638*^9, 3.825436275293212*^9, 3.8254381028444443`*^9, 
  3.8279996426168747`*^9, 3.828001846242963*^9, 3.828992489186144*^9, 
  3.8289925219490547`*^9, 3.828996820900535*^9},
 CellLabel->
  "Out[34]//MatrixForm=",ExpressionUUID->"a32f5020-8e2f-4326-934f-\
b15078548267"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82869357848349*^9, 3.8286935868807287`*^9}, {
  3.828693618492078*^9, 3.8286936305877247`*^9}, {3.8289612514314613`*^9, 
  3.828961267883812*^9}, {3.828961373740047*^9, 3.828961374292083*^9}, {
  3.8289646496814404`*^9, 3.828964654969921*^9}, {3.82899562204782*^9, 
  3.8289956282223997`*^9}, {3.828997067719174*^9, 
  3.828997067851488*^9}},ExpressionUUID->"1cecb0f2-0def-45e8-9315-\
f84ac74b2c3e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.8286933909932137`*^9, 
   3.828693397682423*^9}, 3.828693586881256*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"8e746c61-6cdb-4ed8-9abf-5d5018c17e6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "1.61", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", "metric1", ",", " ", 
     "\"\<SchwarzschildDeSitter\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(sds\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.828693409223844*^9, 3.828693481226873*^9}, 
   3.8286935868814573`*^9, {3.828693700121854*^9, 3.828693708415352*^9}, {
   3.828695654076023*^9, 3.828695661961398*^9}, {3.828696164565013*^9, 
   3.8286961670597067`*^9}, {3.828961200016309*^9, 3.8289612173349752`*^9}, {
   3.82896127403125*^9, 3.8289612763085117`*^9}, {3.828964611250971*^9, 
   3.828964634490327*^9}, {3.828997073747491*^9, 3.8289970930955133`*^9}, {
   3.8289971281185417`*^9, 
   3.828997129845681*^9}},ExpressionUUID->"6c4a77e4-56dd-4ef1-8006-\
53a346194a43"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.613807`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.828693449735017*^9, {3.82869348220748*^9, 3.828693486900136*^9}, 
   3.82869358688157*^9, 3.828693695376383*^9, 3.828695679676701*^9, 
   3.828696158159505*^9, 3.828697699961508*^9, 3.828961249744018*^9, 
   3.828964645467093*^9, 3.828966757015362*^9, 3.828967556353262*^9, 
   3.828997098476589*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"bebcae5d-5265-47ef-8198-87e45ba6fa13"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8286935303946047`*^9, 3.828693530898142*^9}, 
   3.828693586881658*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"4069d9c6-c7e3-4d5e-a575-07b5eae3d225"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "sds"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.828693695485444*^9, 3.828694991058025*^9, 
  3.8286956797336206`*^9, 3.828696158261972*^9, 3.82869770005649*^9, 
  3.8289612830680723`*^9, 3.828964645561129*^9, 3.8289667570640383`*^9, 
  3.828967556432034*^9, 3.828997098520831*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"45436b10-03aa-4623-a2af-ac3ea8ba2012"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.828693586881744*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"34b16409-7b4e-4538-b8af-e926b1fc2e25"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "sds"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.828693586881834*^9, 3.828693695495947*^9, 3.828695679747757*^9, 
  3.828696158274857*^9, 3.8286977000709457`*^9, 3.828961283102579*^9, 
  3.828964645573332*^9, 3.828966757077771*^9, 3.8289675564450827`*^9, 
  3.828997098532316*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"d42f037b-5b8f-4ecd-8954-4cc04e03123b"],

Cell[BoxData["\<\"SchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.828693586881834*^9, 3.828693695495947*^9, 3.828695679747757*^9, 
  3.828696158274857*^9, 3.8286977000709457`*^9, 3.828961283102579*^9, 
  3.828964645573332*^9, 3.828966757077771*^9, 3.8289675564450827`*^9, 
  3.828997098535705*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"439fcfc9-972b-4360-a7d3-ae6ea80e8d0b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "M"}], "R"], "+", 
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox["R", "2"]}], "3"], "-", "1"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"3", " ", "R"}], 
         RowBox[{
          RowBox[{"6", " ", "M"}], "+", 
          RowBox[{"\[CapitalLambda]", " ", 
           SuperscriptBox["R", "3"]}], "-", 
          RowBox[{"3", " ", "R"}]}]]}], "0", "0"},
      {"0", "0", 
       SuperscriptBox["R", "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["R", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.828693586881834*^9, 3.828693695495947*^9, 3.828695679747757*^9, 
  3.828696158274857*^9, 3.8286977000709457`*^9, 3.828961283102579*^9, 
  3.828964645573332*^9, 3.828966757077771*^9, 3.8289675564450827`*^9, 
  3.8289970985386667`*^9},
 CellLabel->
  "Out[72]//TraditionalForm=",ExpressionUUID->"e3f83176-a116-45df-996a-\
5211fb953b1a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.8286935868820887`*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"55290a4b-6d61-4ea2-8fec-cdb9ee71c009"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.828693586882175*^9, 
   3.8286936955426197`*^9, 3.828695679787225*^9, 3.828696158329884*^9, 
   3.828697700112341*^9, 3.828961283117828*^9, 3.828964645624332*^9, 
   3.82896675711485*^9, 3.82896755648864*^9, 3.828997098561241*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"7d804afa-f544-4cb2-a4e3-527f0a81d673"],

Cell[BoxData["\<\"ChristoffelSymbolSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.828693586882175*^9, 
   3.8286936955426197`*^9, 3.828695679787225*^9, 3.828696158329884*^9, 
   3.828697700112341*^9, 3.828961283117828*^9, 3.828964645624332*^9, 
   3.82896675711485*^9, 3.82896755648864*^9, 3.828997098565353*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"7d802642-daa7-44e7-a8db-3cb153d6227f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.828693586882175*^9, 
   3.8286936955426197`*^9, 3.828695679787225*^9, 3.828696158329884*^9, 
   3.828697700112341*^9, 3.828961283117828*^9, 3.828964645624332*^9, 
   3.82896675711485*^9, 3.82896755648864*^9, 3.828997098570257*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"fa8ef245-a081-468a-bf14-\
db4603cbad0a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.828693586882379*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"843d3d5b-577f-4b63-883b-5af06325b27b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.828693586882462*^9, 3.828693695804186*^9, 3.828695679840239*^9, 
  3.828696158393879*^9, 3.828697700170663*^9, 3.828961283183241*^9, 
  3.828964645682742*^9, 3.828966757146751*^9, 3.828967556537747*^9, 
  3.828997098582191*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"00e07cef-b262-4753-9ae1-de4eaba29f9c"],

Cell[BoxData["\<\"RiemannTensorSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.828693586882462*^9, 3.828693695804186*^9, 3.828695679840239*^9, 
  3.828696158393879*^9, 3.828697700170663*^9, 3.828961283183241*^9, 
  3.828964645682742*^9, 3.828966757146751*^9, 3.828967556537747*^9, 
  3.8289970985850983`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"51ca1283-9ea2-4c51-ba72-6ff779106de9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R", "2"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R", "2"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.828693586882462*^9, 3.828693695804186*^9, 3.828695679840239*^9, 
  3.828696158393879*^9, 3.828697700170663*^9, 3.828961283183241*^9, 
  3.828964645682742*^9, 3.828966757146751*^9, 3.828967556537747*^9, 
  3.8289970986284657`*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"4a511793-c05c-4932-ae55-\
ce19478d192a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.828693586882696*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"e5b3ceeb-b98e-45ec-b892-f5ccc605a838"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.828693586882777*^9, 3.828693695870298*^9, 3.828695679966671*^9, 
  3.828696158515369*^9, 3.828697700282371*^9, 3.828961283826373*^9, 
  3.828964645848604*^9, 3.828966757276968*^9, 3.828967556683713*^9, 
  3.82899709865263*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"c7866f5b-4f6a-48cc-a9b0-b88f3208ddfc"],

Cell[BoxData["\<\"RicciTensorSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.828693586882777*^9, 3.828693695870298*^9, 3.828695679966671*^9, 
  3.828696158515369*^9, 3.828697700282371*^9, 3.828961283826373*^9, 
  3.828964645848604*^9, 3.828966757276968*^9, 3.828967556683713*^9, 
  3.828997098655418*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"34682a59-721e-4f14-b3d1-48badcad6faa"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "1", "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.828693586882777*^9, 3.828693695870298*^9, 3.828695679966671*^9, 
  3.828696158515369*^9, 3.828697700282371*^9, 3.828961283826373*^9, 
  3.828964645848604*^9, 3.828966757276968*^9, 3.828967556683713*^9, 
  3.828997098657228*^9},
 CellLabel->
  "Out[81]//TraditionalForm=",ExpressionUUID->"2a501164-416b-4d8f-91ee-\
ff1fc4b61294"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.8286935868830137`*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"4375b317-583a-44af-9296-041d86b35f5f"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8286935868830957`*^9, 3.828693695910033*^9, 3.828695680000464*^9, 
  3.828696158553874*^9, 3.828697700308859*^9, 3.828961284076654*^9, 
  3.828964645880906*^9, 3.828966757316619*^9, 3.828967556723171*^9, 
  3.828997098667611*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"b8ee955e-a474-49bb-9e27-92c6fb82d12f"],

Cell[BoxData["\<\"RicciScalarSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8286935868830957`*^9, 3.828693695910033*^9, 3.828695680000464*^9, 
  3.828696158553874*^9, 3.828697700308859*^9, 3.828961284076654*^9, 
  3.828964645880906*^9, 3.828966757316619*^9, 3.828967556723171*^9, 
  3.82899709867035*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"2f470675-4b8a-4e43-b289-005525c7c40c"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox["2", 
    SuperscriptBox["R", "2"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8286935868830957`*^9, 3.828693695910033*^9, 3.828695680000464*^9, 
  3.828696158553874*^9, 3.828697700308859*^9, 3.828961284076654*^9, 
  3.828964645880906*^9, 3.828966757316619*^9, 3.828967556723171*^9, 
  3.828997098672017*^9},
 CellLabel->
  "Out[84]//TraditionalForm=",ExpressionUUID->"99e2f3f9-08ca-4459-8ac2-\
8add62272ee2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], "   ", "//", " ", "pdConv", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, {
   3.8286935868833313`*^9, 3.828693600430114*^9}, {3.8286941692768*^9, 
   3.828694198771018*^9}, {3.828696992161569*^9, 3.828697062504238*^9}, {
   3.828961298140688*^9, 3.8289613123891497`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"36885a4e-d0c9-4766-8bc4-898ce35ac9d7"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.828693695928001*^9, {3.8286941893129272`*^9, 3.828694199078845*^9}, 
   3.828694269159464*^9, 3.828694991058284*^9, 3.828695680020322*^9, 
   3.828696158574594*^9, {3.8286969940527363`*^9, 3.8286970139884377`*^9}, 
   3.8286977003268843`*^9, {3.82896128422162*^9, 3.828961312834447*^9}, 
   3.828964645898794*^9, 3.828966757343349*^9, 3.8289675567541027`*^9, 
   3.8289970986941633`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"6c21dafa-ac52-48f4-b1a8-c9e9ffe2ec1c"],

Cell[BoxData["\<\"KretschmannScalarSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.828693695928001*^9, {3.8286941893129272`*^9, 3.828694199078845*^9}, 
   3.828694269159464*^9, 3.828694991058284*^9, 3.828695680020322*^9, 
   3.828696158574594*^9, {3.8286969940527363`*^9, 3.8286970139884377`*^9}, 
   3.8286977003268843`*^9, {3.82896128422162*^9, 3.828961312834447*^9}, 
   3.828964645898794*^9, 3.828966757343349*^9, 3.8289675567541027`*^9, 
   3.828997098698662*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"90469a93-f20e-44d0-a11a-560d5784bb6d"],

Cell[BoxData[
 FormBox[
  FractionBox["4", 
   SuperscriptBox["R", "4"]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.828693695928001*^9, {3.8286941893129272`*^9, 3.828694199078845*^9}, 
   3.828694269159464*^9, 3.828694991058284*^9, 3.828695680020322*^9, 
   3.828696158574594*^9, {3.8286969940527363`*^9, 3.8286970139884377`*^9}, 
   3.8286977003268843`*^9, {3.82896128422162*^9, 3.828961312834447*^9}, 
   3.828964645898794*^9, 3.828966757343349*^9, 3.8289675567541027`*^9, 
   3.828997098701579*^9},
 CellLabel->
  "Out[87]//TraditionalForm=",ExpressionUUID->"6ca76f0a-cbc8-4cc1-865e-\
31baf5b313d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.8286935868834*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"d44bfe78-a2d2-4440-90a9-1fe4190a4825"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8286935868834753`*^9, 
   3.828693695984836*^9, 3.828695680064653*^9, 3.828696158620669*^9, 
   3.828697701131867*^9, 3.828961296578589*^9, 3.828964645927991*^9, 
   3.828966757361491*^9, 3.828967556770234*^9, 3.8289970987113733`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"4250f060-75df-485d-b832-dc7ee027f45b"],

Cell[BoxData["\<\"EinsteinTensorSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8286935868834753`*^9, 
   3.828693695984836*^9, 3.828695680064653*^9, 3.828696158620669*^9, 
   3.828697701131867*^9, 3.828961296578589*^9, 3.828964645927991*^9, 
   3.828966757361491*^9, 3.828967556770234*^9, 3.8289970987150993`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"b7e66b2f-218f-4cc6-b60e-65a719271088"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["\[CapitalLambda]", "3"]}], "-", 
        FractionBox[
         RowBox[{"2", " ", "M"}], 
         SuperscriptBox["R", "3"]], "+", 
        FractionBox["1", 
         SuperscriptBox["R", "2"]]}], "0", "0", "0"},
      {"0", 
       FractionBox["3", 
        RowBox[{
         RowBox[{"6", " ", "M", " ", "R"}], "+", 
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox["R", "4"]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["R", "2"]}]}]], "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8286935868834753`*^9, 
   3.828693695984836*^9, 3.828695680064653*^9, 3.828696158620669*^9, 
   3.828697701131867*^9, 3.828961296578589*^9, 3.828964645927991*^9, 
   3.828966757361491*^9, 3.828967556770234*^9, 3.828997098717359*^9},
 CellLabel->
  "Out[90]//TraditionalForm=",ExpressionUUID->"34ce615b-37f0-4d6d-93ba-\
05f8e5713c23"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.828693586883696*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"52920244-95ac-4419-8bfa-feec5a5fa396"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.828693586883774*^9, 
   3.8286936961195908`*^9, 3.8286956801035748`*^9, 3.828696158670507*^9, 
   3.828697701157805*^9, 3.8289612968377523`*^9, 3.828964645944455*^9, 
   3.828966757401814*^9, 3.828967556808723*^9, 3.82899709873932*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"92d02d98-33c0-4a45-b752-f5e04eb52347"],

Cell[BoxData["\<\"WeylTensorSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.828693586883774*^9, 
   3.8286936961195908`*^9, 3.8286956801035748`*^9, 3.828696158670507*^9, 
   3.828697701157805*^9, 3.8289612968377523`*^9, 3.828964645944455*^9, 
   3.828966757401814*^9, 3.828967556808723*^9, 3.828997098742399*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"a52d9739-f1ab-4ecd-8290-1433baca9031"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox["1", 
             RowBox[{"3", " ", 
              SuperscriptBox["R", "2"]}]]}], "0", "0"},
          {
           FractionBox["1", 
            RowBox[{"3", " ", 
             SuperscriptBox["R", "2"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"6", " ", "M"}], "+", 
              RowBox[{"\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"3", " ", "R"}]}], 
             RowBox[{"18", " ", "R"}]]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"6", " ", "M"}], "+", 
             RowBox[{"\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"3", " ", "R"}]}], 
            RowBox[{"18", " ", "R"}]], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"6", " ", "M"}], "+", 
                RowBox[{"\[CapitalLambda]", " ", 
                 SuperscriptBox["R", "3"]}], "-", 
                RowBox[{"3", " ", "R"}]}], ")"}]}], 
             RowBox[{"18", " ", "R"}]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"6", " ", "M"}], "+", 
               RowBox[{"\[CapitalLambda]", " ", 
                SuperscriptBox["R", "3"]}], "-", 
               RowBox[{"3", " ", "R"}]}], ")"}]}], 
            RowBox[{"18", " ", "R"}]], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox["1", 
            RowBox[{"3", " ", 
             SuperscriptBox["R", "2"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox["1", 
             RowBox[{"3", " ", 
              SuperscriptBox["R", "2"]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox["R", 
            RowBox[{
             RowBox[{"12", " ", "M"}], "+", 
             RowBox[{"2", " ", "\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"6", " ", "R"}]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["R", 
             RowBox[{
              RowBox[{"12", " ", "M"}], "+", 
              RowBox[{"2", " ", "\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"6", " ", "R"}]}]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{"R", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            RowBox[{
             RowBox[{"12", " ", "M"}], "+", 
             RowBox[{"2", " ", "\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"6", " ", "R"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"R", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             RowBox[{
              RowBox[{"12", " ", "M"}], "+", 
              RowBox[{"2", " ", "\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"6", " ", "R"}]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"6", " ", "M"}], "+", 
             RowBox[{"\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"3", " ", "R"}]}], 
            RowBox[{"18", " ", "R"}]], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"6", " ", "M"}], "+", 
              RowBox[{"\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"3", " ", "R"}]}], 
             RowBox[{"18", " ", "R"}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["R", 
             RowBox[{
              RowBox[{"12", " ", "M"}], "+", 
              RowBox[{"2", " ", "\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"6", " ", "R"}]}]]}], "0"},
          {"0", 
           FractionBox["R", 
            RowBox[{
             RowBox[{"12", " ", "M"}], "+", 
             RowBox[{"2", " ", "\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"6", " ", "R"}]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"6", " ", "M"}], "+", 
               RowBox[{"\[CapitalLambda]", " ", 
                SuperscriptBox["R", "3"]}], "-", 
               RowBox[{"3", " ", "R"}]}], ")"}]}], 
            RowBox[{"18", " ", "R"}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"6", " ", "M"}], "+", 
                RowBox[{"\[CapitalLambda]", " ", 
                 SuperscriptBox["R", "3"]}], "-", 
                RowBox[{"3", " ", "R"}]}], ")"}]}], 
             RowBox[{"18", " ", "R"}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"R", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             RowBox[{
              RowBox[{"12", " ", "M"}], "+", 
              RowBox[{"2", " ", "\[CapitalLambda]", " ", 
               SuperscriptBox["R", "3"]}], "-", 
              RowBox[{"6", " ", "R"}]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{"R", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            RowBox[{
             RowBox[{"12", " ", "M"}], "+", 
             RowBox[{"2", " ", "\[CapitalLambda]", " ", 
              SuperscriptBox["R", "3"]}], "-", 
             RowBox[{"6", " ", "R"}]}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["R", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.828693586883774*^9, 
   3.8286936961195908`*^9, 3.8286956801035748`*^9, 3.828696158670507*^9, 
   3.828697701157805*^9, 3.8289612968377523`*^9, 3.828964645944455*^9, 
   3.828966757401814*^9, 3.828967556808723*^9, 3.8289970988342113`*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"e607061d-6e4e-40fd-969e-\
d2abd2001796"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.828693586883996*^9, 3.828693592070655*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"fddb873c-8be0-4f3c-902d-27a1d93b78fd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8286936961679707`*^9, 3.828694991058633*^9, 
  3.828695680214644*^9, 3.8286961587773743`*^9, 3.828697701276279*^9, 
  3.828961299341277*^9, 3.8289646460643873`*^9, 3.828966757489285*^9, 
  3.828967556910514*^9, 3.8289970988597307`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"4073b06a-22d4-4fb1-8435-575434890dcf"],

Cell[BoxData["\<\"CottonTensorSchwarzschildDeSitter\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8286936961679707`*^9, 3.828694991058633*^9, 
  3.828695680214644*^9, 3.8286961587773743`*^9, 3.828697701276279*^9, 
  3.828961299341277*^9, 3.8289646460643873`*^9, 3.828966757489285*^9, 
  3.828967556910514*^9, 3.828997098862953*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"be0d774c-60db-4ead-ac17-d359a9993039"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8286936961679707`*^9, 3.828694991058633*^9, 
  3.828695680214644*^9, 3.8286961587773743`*^9, 3.828697701276279*^9, 
  3.828961299341277*^9, 3.8289646460643873`*^9, 3.828966757489285*^9, 
  3.828967556910514*^9, 3.828997098868567*^9},
 CellLabel->
  "Out[96]//TraditionalForm=",ExpressionUUID->"372f3650-5a29-496d-a333-\
711547121a3d"]
}, Closed]]
},
CellGrouping->Manual,
WindowSize->{1279, 755},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (February 4, 2022)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"4a802b76-3d5e-43d0-bd8f-88bd98bf4fbf"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1769, 26, 221, "Title",ExpressionUUID->"c81ee6b6-c4f7-41ce-8fad-19d570a60782",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[2352, 50, 1303, 22, 94, "Author",ExpressionUUID->"6376660a-ef45-4fb9-96ea-2d4c32805487",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[3670, 75, 315, 8, 84, "Input",ExpressionUUID->"b28bfbb6-749a-4e33-8d7b-1e770a9d3578"],
Cell[CellGroupData[{
Cell[4010, 87, 228, 4, 69, "Section",ExpressionUUID->"de836590-407d-432b-8bac-5e090ca694fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4241, 93, 433, 9, 63, "Input",ExpressionUUID->"36bc890f-3a78-45db-b3af-782485c44fea",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4677, 104, 1514, 23, 43, "Output",ExpressionUUID->"333f7105-de3d-410d-bdf7-9faa37a71272",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6228, 132, 666, 11, 55, "Section",ExpressionUUID->"933430bb-037f-4355-b479-fe6d5a140e54",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6897, 145, 468, 10, 63, "Input",ExpressionUUID->"4467b3f1-7eb2-4b8c-8b7a-08cd26752b24",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7368, 157, 385, 8, 43, "Output",ExpressionUUID->"c4182426-4e0d-49ef-8989-9d31c4127c88",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7790, 170, 228, 4, 55, "Section",ExpressionUUID->"2c2d0869-3bc7-4445-8dbb-b626ff0d40bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8021, 176, 1641, 44, 189, "Input",ExpressionUUID->"c5232015-9e45-4da2-921c-12970d2c288c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9665, 222, 1735, 29, 24, "Print",ExpressionUUID->"3a9928cd-7c28-4996-883c-7cd77aba26cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11403, 253, 1750, 30, 24, "Print",ExpressionUUID->"5cc0f2c7-07a6-445e-bebf-7be42c9f7f52",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[13156, 285, 1610, 25, 41, "Output",ExpressionUUID->"585478bd-805d-492c-bf17-1974d1e2298a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14769, 312, 246, 4, 41, "Input",ExpressionUUID->"a488fbe2-2346-4911-8332-765a5c4d1494",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[15052, 321, 240, 4, 55, "Section",ExpressionUUID->"7b36015a-81c0-4c20-82db-80adf2f10ce9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15295, 327, 3122, 71, 504, "Input",ExpressionUUID->"a59d83bb-3f0a-4c4a-a2d9-a6a822cef572",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[18420, 400, 3289, 92, 393, "Output",ExpressionUUID->"7f2d1a8e-282e-4446-a983-374dfcf2fa29",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[21712, 494, 735, 16, 41, "Input",ExpressionUUID->"d3e16c90-6bc2-49ea-8418-3643236e4bd4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[22484, 515, 362, 6, 55, "Section",ExpressionUUID->"8ef02555-f5c9-4b4d-9b5f-cb2f76c2afff",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22849, 523, 1659, 41, 126, "Input",ExpressionUUID->"3a550e66-4308-4f3b-b441-d6ad8ad932d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24511, 566, 1055, 26, 84, "Input",ExpressionUUID->"09ee3fb2-a699-4844-b00b-1eb1b45695ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[25569, 594, 319, 7, 69, "Section",ExpressionUUID->"0d910f17-cb2e-47d3-840d-7fe5dc1377cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25925, 606, 299, 5, 55, "Section",ExpressionUUID->"dd61ba45-22d2-46de-ae59-a907e6abb3f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26227, 613, 900, 24, 86, "Input",ExpressionUUID->"716daea5-c58d-471c-878b-b4c1eab680f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27130, 639, 673, 19, 62, "Output",ExpressionUUID->"061f231b-ac5f-4b69-8517-3d6b29feb97b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27806, 660, 473, 10, 41, "Input",ExpressionUUID->"acdd9500-b4d2-42f5-86b7-8cf2b5003d94",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28282, 672, 1042, 31, 117, "Output",ExpressionUUID->"1f1d5c79-b100-4ce8-adc9-c7e15dd9a100",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29327, 705, 837, 20, 124, "Input",ExpressionUUID->"7a7e88c6-00ef-4056-bdfd-2e0d0b6fba52",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30167, 727, 438, 11, 56, "Output",ExpressionUUID->"ae22d0c0-d7f7-4cf6-b14f-18374fa5e879",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30608, 740, 696, 16, 137, "Input",ExpressionUUID->"d0cabc65-71d2-4e4d-906b-a37a04a5a813",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31307, 758, 318, 7, 65, "Output",ExpressionUUID->"41cb385b-77b5-4fe8-b40f-c2a038e68d8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31628, 767, 1477, 32, 105, "Input",ExpressionUUID->"14eaddf4-e6e9-4cde-b7ac-6d47fe0cdef2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33108, 801, 1472, 43, 130, "Output",ExpressionUUID->"697be467-3892-4e7f-b4e3-01651b283ee8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34583, 846, 850, 17, 105, "Input",ExpressionUUID->"e498c77d-0d37-4acd-ba73-50eab209e400",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35436, 865, 1656, 46, 150, "Output",ExpressionUUID->"aa56bbca-a5ca-41c7-8c9b-aa41bda0c391",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37095, 913, 589, 11, 41, "Input",ExpressionUUID->"06ffa4eb-e370-4194-9b8a-efbd6f9f8e68",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37687, 926, 964, 25, 101, "Output",ExpressionUUID->"7a72565c-482e-4529-9596-deea3360180c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38654, 953, 608, 12, 41, "Input",ExpressionUUID->"6f8dc223-664f-4c7f-890b-866440e11f3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39265, 967, 964, 25, 101, "Output",ExpressionUUID->"a32f5020-8e2f-4326-934f-b15078548267",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[40266, 997, 527, 8, 55, "Section",ExpressionUUID->"1cecb0f2-0def-45e8-9315-f84ac74b2c3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[40796, 1007, 5733, 130, 714, "Input",ExpressionUUID->"8e746c61-6cdb-4ed8-9abf-5d5018c17e6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[46532, 1139, 1429, 28, 65, "Input",ExpressionUUID->"6c4a77e4-56dd-4ef1-8006-53a346194a43",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[47964, 1169, 543, 10, 41, "Output",ExpressionUUID->"bebcae5d-5265-47ef-8198-87e45ba6fa13",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[48510, 1181, 264, 4, 41, "Input",ExpressionUUID->"4069d9c6-c7e3-4d5e-a575-07b5eae3d225",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[48777, 1187, 1274, 36, 45, "Output",ExpressionUUID->"45436b10-03aa-4623-a2af-ac3ea8ba2012",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[50054, 1225, 810, 18, 84, "Input",ExpressionUUID->"34b16409-7b4e-4538-b8af-e926b1fc2e25",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[50867, 1245, 839, 15, 45, "Output",ExpressionUUID->"d42f037b-5b8f-4ecd-8954-4cc04e03123b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[51709, 1262, 770, 11, 41, "Output",ExpressionUUID->"439fcfc9-972b-4360-a7d3-ae6ea80e8d0b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[52482, 1275, 1960, 50, 130, "Output",ExpressionUUID->"e3f83176-a116-45df-996a-5211fb953b1a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[54445, 1327, 815, 18, 84, "Input",ExpressionUUID->"55290a4b-6d61-4ea2-8fec-cdb9ee71c009",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[55263, 1347, 958, 17, 45, "Output",ExpressionUUID->"7d804afa-f544-4cb2-a4e3-527f0a81d673",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[56224, 1366, 869, 12, 41, "Output",ExpressionUUID->"7d802642-daa7-44e7-a8db-3cb153d6227f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57096, 1380, 10492, 311, 308, "Output",ExpressionUUID->"fa8ef245-a081-468a-bf14-db4603cbad0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[67591, 1693, 810, 18, 84, "Input",ExpressionUUID->"843d3d5b-577f-4b63-883b-5af06325b27b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[68404, 1713, 827, 14, 45, "Output",ExpressionUUID->"00e07cef-b262-4753-9ae1-de4eaba29f9c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[69234, 1729, 784, 11, 41, "Output",ExpressionUUID->"51ca1283-9ea2-4c51-ba72-6ff779106de9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[70021, 1742, 10564, 273, 320, "Output",ExpressionUUID->"4a511793-c05c-4932-ae55-ce19478d192a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[80588, 2017, 808, 18, 84, "Input",ExpressionUUID->"e5b3ceeb-b98e-45ec-b892-f5ccc605a838",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[81399, 2037, 813, 14, 45, "Output",ExpressionUUID->"c7866f5b-4f6a-48cc-a9b0-b88f3208ddfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[82215, 2053, 783, 11, 41, "Output",ExpressionUUID->"34682a59-721e-4f14-b3d1-48badcad6faa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[83001, 2066, 1411, 33, 104, "Output",ExpressionUUID->"2a501164-416b-4d8f-91ee-ff1fc4b61294",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[84415, 2101, 812, 18, 84, "Input",ExpressionUUID->"4375b317-583a-44af-9296-041d86b35f5f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[85230, 2121, 778, 13, 41, "Output",ExpressionUUID->"b8ee955e-a474-49bb-9e27-92c6fb82d12f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[86011, 2136, 783, 11, 41, "Output",ExpressionUUID->"2f470675-4b8a-4e43-b289-005525c7c40c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[86797, 2149, 908, 19, 70, "Output",ExpressionUUID->"99e2f3f9-08ca-4459-8ac2-8add62272ee2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[87708, 2170, 976, 20, 84, "Input",ExpressionUUID->"36885a4e-d0c9-4766-8bc4-898ce35ac9d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[88687, 2192, 607, 11, 41, "Output",ExpressionUUID->"6c21dafa-ac52-48f4-b1a8-c9e9ffe2ec1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[89297, 2205, 617, 9, 41, "Output",ExpressionUUID->"90469a93-f20e-44d0-a11a-560d5784bb6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[89917, 2216, 668, 14, 70, "Output",ExpressionUUID->"6ca76f0a-cbc8-4cc1-865e-31baf5b313d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[90588, 2232, 790, 18, 84, "Input",ExpressionUUID->"d44bfe78-a2d2-4440-90a9-1fe4190a4825",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[91381, 2252, 754, 13, 45, "Output",ExpressionUUID->"4250f060-75df-485d-b832-dc7ee027f45b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[92138, 2267, 726, 10, 41, "Output",ExpressionUUID->"b7e66b2f-218f-4cc6-b60e-65a719271088",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[92867, 2279, 1772, 45, 122, "Output",ExpressionUUID->"34ce615b-37f0-4d6d-93ba-05f8e5713c23",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[94642, 2326, 857, 19, 84, "Input",ExpressionUUID->"52920244-95ac-4419-8bfa-feec5a5fa396",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[95502, 2347, 836, 14, 45, "Output",ExpressionUUID->"92d02d98-33c0-4a45-b752-f5e04eb52347",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[96341, 2363, 789, 11, 41, "Output",ExpressionUUID->"a52d9739-f1ab-4ecd-8290-1433baca9031",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[97133, 2376, 16560, 431, 426, "Output",ExpressionUUID->"e607061d-6e4e-40fd-969e-d2abd2001796",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[113696, 2809, 791, 18, 84, "Input",ExpressionUUID->"fddb873c-8be0-4f3c-902d-27a1d93b78fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[114490, 2829, 497, 9, 45, "Output",ExpressionUUID->"4073b06a-22d4-4fb1-8435-575434890dcf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[114990, 2840, 457, 6, 41, "Output",ExpressionUUID->"be0d774c-60db-4ead-ac17-d359a9993039",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[115450, 2848, 9796, 298, 308, "Output",ExpressionUUID->"372f3650-5a29-496d-a333-711547121a3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]]
}
]
*)