Class of Inhomogeneous Cosmological Models by Szekeres.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[    263211,       6826]
NotebookOptionsPosition[    248146,       6569]
NotebookOutlinePosition[    248634,       6587]
CellTagsIndexPosition[    248591,       6584]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Notebook for: 
Class of Inhomogeneous Cosmological Models by Szekeres\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8225820969553537`*^9, 3.822582142489511*^9}, {
   3.822899973881271*^9, 3.822899986752631*^9}, {3.827312563215529*^9, 
   3.827312574366877*^9}, 3.8430875104072857`*^9, 3.856103118881892*^9},
 TextAlignment->Center,ExpressionUUID->"2241e08e-5fd8-4151-87be-298295b9da52"],

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
April 13, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.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.855505955128133*^9, 3.855505961623564*^9}, {
   3.855532612945916*^9, 3.855532622453443*^9}, {3.8555766527923927`*^9, 
   3.855576656141964*^9}, {3.855841625871888*^9, 3.855841633587627*^9}, {
   3.855844157477105*^9, 3.855844162818038*^9}, {3.856103131385326*^9, 
   3.856103134609906*^9}},
 TextAlignment->Center,ExpressionUUID->"b45ca6a4-0521-49fd-af4f-147fb99311a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "(*", " ", "\[IndentingNewLine]", 
   "\"\<A tedious and uninstructive computation reveals that in fact there \
are no solutions to these equations... \>\"", "\[IndentingNewLine]", "*)"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.827314417118649*^9, 3.8273144458129177`*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"7b72b3d9-575c-49b9-9894-702d9f8633e2"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellChangeTimes->{{3.820944675605734*^9, 3.8209446931410646`*^9}, 
   3.821955302929777*^9, 
   3.822476132291089*^9},ExpressionUUID->"ad082175-e2c6-4368-9f50-\
d7b53bc93358"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}, 
   3.821955302929921*^9, 3.822476132291257*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"8fd750f1-0533-4a62-82f5-9e10ca83e64c"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821190787690248*^9, 3.821955302930024*^9, 3.821960176215411*^9, 
   3.82196060267728*^9, 3.822438965925212*^9, 3.822476132291401*^9, 
   3.822582581632848*^9, 3.822608805889821*^9, 3.822636448483457*^9, 
   3.822900094216922*^9, 3.8229003145123262`*^9, 3.827305482625361*^9, 
   3.827312963465085*^9, 3.847755494663818*^9, 3.856103180511717*^9, 
   3.877170133288167*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"246c1e3c-ee91-4242-a95f-424a078681c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Paper", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8430874879519033`*^9, 
  3.84308750094281*^9}},ExpressionUUID->"10a3b25b-436e-4c5c-8d10-\
72339fba9f7b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Class of Inhomogeneous Cosmological Models by Szekeres\>\"", ",", 
   "\"\<https://projecteuclid.org/journals/communications-in-mathematical-\
physics/volume-41/issue-1/A-class-of-inhomogeneous-cosmological-models/cmp/\
1103860587.full\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8430874663866453`*^9, 3.843087492809408*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"892bedaf-19d1-4bdd-a07e-660430dcfb1c"],

Cell[BoxData[
 TemplateBox[{
  "\"Class of Inhomogeneous Cosmological Models by Szekeres\"", 
   "https://projecteuclid.org/journals/communications-in-mathematical-physics/\
volume-41/issue-1/A-class-of-inhomogeneous-cosmological-models/cmp/1103860587.\
full"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.843087484964161*^9, 3.843087492810625*^9}, 
   3.84775549469908*^9, 3.856103180528448*^9, 3.877170133329112*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"99b9a518-fc49-411e-aae1-0089c7ee36d0"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellChangeTimes->{{3.821190369947665*^9, 3.821190384452331*^9}, 
   3.822476132292396*^9, 3.822899936411298*^9, 3.822900045444481*^9, 
   3.8229003701375027`*^9, 
   3.8229031148696747`*^9},ExpressionUUID->"234ca17d-effc-4ace-a198-\
e905b8408cc1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], "\n"}], "\[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",
 CellChangeTimes->{3.821190367020224*^9, 3.822476132292468*^9, 
  3.822899936411447*^9, 3.822900045444615*^9, 3.822900370137702*^9, 
  3.822903114869915*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"44b43ef8-79f6-46bc-8981-b03e7b378944"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8211903670203238`*^9, 3.821190787879154*^9, 3.821960176462048*^9, 
   3.821960602824052*^9, 3.822438966079029*^9, {3.8224761322925386`*^9, 
   3.822476149590736*^9}, 3.822582581888549*^9, 3.8226088062096663`*^9, 
   3.82263644866858*^9, 3.822899936411538*^9, 3.822900045444707*^9, 
   3.8229000944485273`*^9, 3.8229003146808243`*^9, {3.8229003701378107`*^9, 
   3.8229003788403473`*^9}, 3.822903114870022*^9, 3.827305482862043*^9, 
   3.827312963710355*^9, 3.847755494835352*^9, 3.856103180814662*^9, 
   3.877170133540514*^9},
 CellLabel->
  "During evaluation of \
In[154]:=",ExpressionUUID->"92a5f5cc-2011-414d-b49e-3d0e99dc30a2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"1084 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "1084 Kb"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8211903670203238`*^9, 3.821190787879154*^9, 3.821960176462048*^9, 
   3.821960602824052*^9, 3.822438966079029*^9, {3.8224761322925386`*^9, 
   3.822476149590736*^9}, 3.822582581888549*^9, 3.8226088062096663`*^9, 
   3.82263644866858*^9, 3.822899936411538*^9, 3.822900045444707*^9, 
   3.8229000944485273`*^9, 3.8229003146808243`*^9, {3.8229003701378107`*^9, 
   3.8229003788403473`*^9}, 3.822903114870022*^9, 3.827305482862043*^9, 
   3.827312963710355*^9, 3.847755494835352*^9, 3.856103180814662*^9, 
   3.877170133542033*^9},
 CellLabel->
  "During evaluation of \
In[154]:=",ExpressionUUID->"e863cb14-088d-4317-8e3a-01aa1801aaf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8211903670204983`*^9, 3.8211907878847847`*^9, 3.82196017646558*^9, 
   3.821960602828105*^9, 3.8224389660859756`*^9, {3.8224761322930202`*^9, 
   3.8224761495949287`*^9}, 3.822582581893135*^9, 3.822608806217684*^9, 
   3.822636448673676*^9, 3.822899936411696*^9, 3.8229000454448633`*^9, 
   3.8229000944512653`*^9, 3.8229003146852083`*^9, {3.82290037013797*^9, 
   3.822900378844573*^9}, 3.8229031148702087`*^9, 3.827305482876499*^9, 
   3.82731296371496*^9, 3.847755494843915*^9, 3.856103180818779*^9, 
   3.8771701335439568`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"34fefc8f-5472-42cb-a40f-18489213f60e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellChangeTimes->{3.82119036702057*^9, 3.822476132293089*^9, 
  3.822899936411768*^9, 3.822900045444933*^9, 3.8229003701380568`*^9, 
  3.822903114870399*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"dd3797fc-7c72-4d06-af55-243781c4db63"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8225114042235403`*^9, 
  3.822511435665856*^9}},ExpressionUUID->"5bcf310c-d390-4a23-95ad-\
e88b111dfc83"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], " ", "\[Rule]", " ", "dz"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "->", " ", "d\[Xi]"}], " ", ",", " ",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]bar", "]"}], "->", " ", "d\[Xi]bar"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.822489547545336*^9, {3.822491703411667*^9, 3.822491707122538*^9}, {
   3.822498821880814*^9, 3.822498852715959*^9}, {3.822505475877746*^9, 
   3.822505484051729*^9}, {3.822505650238049*^9, 3.822505661476438*^9}, {
   3.8225114107436523`*^9, 3.822511435666524*^9}, {3.822657191005878*^9, 
   3.822657196588293*^9}, {3.8227381380656424`*^9, 3.822738143105091*^9}, {
   3.822762788595972*^9, 3.822762808026092*^9}, {3.822763284923994*^9, 
   3.82276329057862*^9}, {3.822817828987068*^9, 3.822817834256778*^9}, {
   3.823170061175261*^9, 3.823170067327813*^9}, {3.8454807182761183`*^9, 
   3.845480730436956*^9}, {3.847755669958228*^9, 3.847755717453114*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c6fd1244-f8cd-4368-8e0b-1fd2459c3bca"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]bar", "]"}], "\[Rule]", "d\[Xi]bar"}]}
    },
    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", 10002.},
 CellChangeTimes->{
  3.8225052532887707`*^9, 3.822505484713594*^9, 3.822505579139289*^9, 
   3.822505662186598*^9, 3.822511435666793*^9, 3.822565490870858*^9, 
   3.82256621004524*^9, 3.822606718237249*^9, 3.822637109750392*^9, {
   3.822645098679491*^9, 3.822645115887143*^9}, 3.822657197030286*^9, 
   3.822738143944159*^9, 3.822739433988988*^9, 3.8227618053818007`*^9, 
   3.82276280850215*^9, 3.822763340235488*^9, 3.82281731044447*^9, 
   3.822817834990157*^9, 3.822822210828231*^9, 3.8229886932963543`*^9, 
   3.823164291718164*^9, 3.823167743311726*^9, 3.823170067981769*^9, {
   3.845480724893013*^9, 3.8454807312628508`*^9}, 3.845481948785474*^9, 
   3.845490175141264*^9, 3.84723433459359*^9, 3.847238647922174*^9, 
   3.847241463309383*^9, 3.8472896172784567`*^9, 3.847290380759794*^9, 
   3.847290862719849*^9, 3.847291174263226*^9, 3.847291725915065*^9, 
   3.847293001851326*^9, 3.847295507863728*^9, 3.847312892390785*^9, 
   3.8473231309621973`*^9, 3.8473250900822163`*^9, 3.847325555891657*^9, 
   3.847403990372746*^9, 3.847404665663734*^9, 3.8477530731380367`*^9, {
   3.847755694962948*^9, 3.847755717863472*^9}, 3.8561031808432407`*^9, 
   3.877170133577643*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"c04dffb3-da5e-44c0-b5fe-ba3dd67c0183"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], "  ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Treat", " ", "mass", " ", "as", " ", "a", " ", "constant"}], " ", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8226394926443577`*^9, 3.822639512107401*^9}, {
  3.822645098679873*^9, 3.822645115887456*^9}, {3.8226571220040607`*^9, 
  3.822657151042078*^9}, {3.8227380505932827`*^9, 3.822738111710915*^9}, {
  3.822763300490835*^9, 3.822763322128798*^9}, {3.823170009199156*^9, 
  3.823170055511077*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"b321d089-98a6-48fe-8f38-25eaaefdb722"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, {3.8229000322776613`*^9, 3.822900045444993*^9}, 
   3.822900198235579*^9, {3.822903086520245*^9, 3.8229031148704844`*^9}, 
   3.824894667008061*^9, 
   3.8273124687015333`*^9},ExpressionUUID->"eeffb1c1-0918-47c9-a597-\
3c9aa646b1fd"],

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",
 CellChangeTimes->{
  3.821567412203915*^9, 3.821641945174967*^9, 3.821641981470141*^9, 
   3.8220481344970007`*^9, {3.82290003227783*^9, 3.822900045445074*^9}, 
   3.82290019823584*^9, {3.822903086520591*^9, 3.822903114870652*^9}, 
   3.824894667008215*^9, 3.8273124687032337`*^9, 3.8273125113819532`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"ebb4ee1e-755b-4886-9d84-5a7d7b4c7d01"],

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",
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9, 3.824890628456005*^9, 
   3.827312468704074*^9, 3.8273125113820887`*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"00a8f0c8-4682-4f67-ad3a-84151744bd71"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellChangeTimes->{{3.827312998949312*^9, 
  3.827313026170909*^9}},ExpressionUUID->"ce438f1c-6dda-47ed-b5a1-\
a88d095e6814"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq1", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox["dt", "2"], "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Alpha]"}], "]"}], " ", 
    SuperscriptBox["dr", "2"]}], "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Beta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["dy", "2"], "+", " ", 
      SuperscriptBox["dz", "2"]}], ")"}], " "}]}]}]}], "Input",
 CellChangeTimes->{{3.822900111338504*^9, 3.822900183889267*^9}, {
  3.822900412355246*^9, 3.822900416154029*^9}, {3.822903086520788*^9, 
  3.8229031148708153`*^9}, {3.8273056727380877`*^9, 3.827305721389842*^9}, {
  3.827312724581399*^9, 3.827312751388373*^9}, {3.827313008105091*^9, 
  3.827313026171185*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"9716a079-8ceb-49d6-84ef-4980a3c0baf5"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dt", "2"], "-", 
  RowBox[{
   SuperscriptBox["dr", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Alpha]"}]]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Beta]"}]]}]}]], "Output",
 CellChangeTimes->{
  3.8229001848619833`*^9, 3.82290031471772*^9, 3.822900385930018*^9, 
   3.822900417379833*^9, 3.822900453727481*^9, {3.8229030865209084`*^9, 
   3.822903114870919*^9}, 3.8273054829640903`*^9, 3.8273127557272243`*^9, 
   3.827312963789546*^9, {3.827313008105246*^9, 3.827313026171335*^9}, 
   3.8477554949094257`*^9, 3.8561031808848124`*^9, 3.8771701336361427`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"1873803a-df98-431d-9099-631977339341"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dr", ",", "dy", ",", "dz"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.822900270557713*^9, 3.822900279104862*^9}, {
  3.822900324538398*^9, 3.822900326712819*^9}, {3.822903086521036*^9, 
  3.822903114871037*^9}, {3.827312975319191*^9, 3.827312977805294*^9}, {
  3.8273130081053753`*^9, 3.827313026171544*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"c10aa364-0be3-48da-b4f8-d3a6beedfa1c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Alpha]"}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.822900279446233*^9, 3.8229003271706142`*^9}, {
   3.82290039183212*^9, 3.822900419652609*^9}, 3.8229004537746887`*^9, {
   3.822903086521137*^9, 3.822903114871138*^9}, 3.827305482995656*^9, 
   3.82731289908298*^9, {3.827312963819175*^9, 3.827313026171674*^9}, 
   3.8477554949352417`*^9, 3.856103180894369*^9, 3.8771701336463823`*^9},
 CellLabel->
  "Out[13]//MatrixForm=",ExpressionUUID->"27f22d8e-d096-4197-8395-\
c6a6af91d168"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", " ", 
      RowBox[{"\[Alpha]", "[", "t", "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", "\[Rule]", " ", 
      RowBox[{"\[Beta]", "[", "t", "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1a", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.822900227937441*^9, 3.822900267777018*^9}, {
  3.8229004420039454`*^9, 3.822900445920985*^9}, {3.82290308652129*^9, 
  3.822903114871282*^9}, {3.82731290557476*^9, 3.8273129270771646`*^9}, {
  3.827313008105858*^9, 3.827313026171834*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"999e2239-9462-4df9-acc1-c186e2b995a8"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Alpha]", "\[Rule]", 
       RowBox[{"\[Alpha]", "[", "t", "]"}]}]},
     {
      RowBox[{"\[Beta]", "\[Rule]", 
       RowBox[{"\[Beta]", "[", "t", "]"}]}]}
    },
    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",
 CellChangeTimes->{
  3.822900268189719*^9, 3.822900314745573*^9, 3.822900453785483*^9, {
   3.822903086521393*^9, 3.822903114871378*^9}, 3.827305483012423*^9, 
   3.827312927354393*^9, 3.827312963831382*^9, {3.82731300810596*^9, 
   3.827313026172011*^9}, 3.8477554949454327`*^9, 3.8561031809114847`*^9, 
   3.8771701336719847`*^9},
 CellLabel->
  "Out[16]//TableForm=",ExpressionUUID->"afde51b7-f5bf-4893-8456-\
3cc2a21815ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "dr", ",", "dy", ",", "dz"}], "}"}]}], "]"}], "  ", 
    "/.", " ", "eq1a"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.822900430121958*^9, 3.822900478936986*^9}, {
  3.822903086521532*^9, 3.82290311487151*^9}, {3.8229069900928917`*^9, 
  3.822906991618978*^9}, {3.8273129378067503`*^9, 3.8273129556129427`*^9}, {
  3.827312986007483*^9, 3.82731302617216*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"f76334d1-be2f-4216-878f-efd0764fe898"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Alpha]", "[", "t", "]"}]}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "[", "t", "]"}]}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "[", "t", "]"}]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.822900432618579*^9, 3.822900479556961*^9}, {
   3.822903086521695*^9, 3.822903114871605*^9}, 3.822906992224393*^9, 
   3.827305483043939*^9, {3.82731294781745*^9, 3.827313026172278*^9}, 
   3.847755494974312*^9, 3.856103180921865*^9, 3.877170133683826*^9},
 CellLabel->
  "Out[19]//MatrixForm=",ExpressionUUID->"0e0195aa-4d4b-48bc-99a6-\
25546ad932bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", " ", "metric1", " ", "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellChangeTimes->{{3.827305794832712*^9, 3.827305825765275*^9}, {
  3.827313008106419*^9, 3.827313026172421*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"1d4df2cc-b7f3-4152-a351-ee1eb9069d00"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]]}]}
     },
     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",
 CellChangeTimes->{
  3.8273058262669992`*^9, {3.827312963906596*^9, 3.827313026172559*^9}, 
   3.847755495005157*^9, 3.8561031809407587`*^9, 3.877170133710824*^9},
 CellLabel->
  "Out[22]//TraditionalForm=",ExpressionUUID->"f1a6240e-6954-46ae-b47a-\
30237cc310f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", " ", ".", " ", "inverse1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8273058297364473`*^9, 3.827305838389337*^9}, {
  3.827313008106806*^9, 3.827313026172742*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"5d61a0da-0900-4883-b3ca-9b07bafffc88"],

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",
 CellChangeTimes->{
  3.827305838649604*^9, {3.8273129639425*^9, 3.8273130261728983`*^9}, 
   3.84775549501597*^9, 3.856103180949628*^9, 3.8771701337218647`*^9},
 CellLabel->
  "Out[23]//MatrixForm=",ExpressionUUID->"8abf18f2-d011-4f76-a3da-\
57c05893fdbf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", " ", ".", " ", "metric1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.827305840848742*^9, 3.827305849012993*^9}, {
  3.827313008107284*^9, 3.827313026173027*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"80e15abd-f784-4e30-8a33-0fa6fb03ccf3"],

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",
 CellChangeTimes->{
  3.827305849280754*^9, 3.827312963954117*^9, {3.8273129945731373`*^9, 
   3.827313026173128*^9}, 3.8477554950437937`*^9, 3.856103180968624*^9, 
   3.8771701337450027`*^9},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"5289bae5-6d26-4c6c-be12-\
365f39af1d94"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1", "Section",
 CellChangeTimes->{{3.827313196407836*^9, 
  3.827313227055374*^9}},ExpressionUUID->"bab24911-b03c-49d3-94c8-\
be83df9b9950"],

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",
 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.827313071158465*^9, 
   3.827313079247908*^9}, {3.8273132048104353`*^9, 3.8273132270559063`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"f61dca92-1183-42a5-9d57-259e4e90d75f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "1.80", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", 
     "\"\<IrrotationalDust\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(id\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "y", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 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.827313089677544*^9, 
   3.8273130937081623`*^9}, {3.8273131386565866`*^9, 3.827313172999858*^9}, {
   3.827313204810581*^9, 3.827313227056109*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"dbafb947-07e9-460a-ab60-28426a38e35d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.743883`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.827313163225367*^9, {3.82731320481068*^9, 3.82731322705622*^9}, 
   3.8477554968911333`*^9, 3.856103182840498*^9, 3.877170135499507*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"4e904989-f481-4395-a12d-ae9b6fd0ae97"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, {3.8273132048107977`*^9, 
   3.8273132270563593`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"4c9d395b-61e1-46f7-81b5-d92b799e4a90"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "id"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 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.8273131880009937`*^9, 3.827313227056449*^9}, 
   3.847755496936307*^9, 3.856103182911618*^9, 3.877170135552842*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"91ec984b-f472-49bd-a939-2073b7ef5caa"],

Cell[BoxData["\<\"IrrotationalDust\"\>"], "Output",
 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.8273131880009937`*^9, 3.827313227056449*^9}, 
   3.847755496936307*^9, 3.856103182911618*^9, 3.877170135554213*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"2a7411ae-6193-4974-8361-cf92ff4fea0e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]]}]}
     },
     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",
 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.8273131880009937`*^9, 3.827313227056449*^9}, 
   3.847755496936307*^9, 3.856103182911618*^9, 3.877170135556011*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"c3c27ea1-4562-46fa-9474-\
dc19881f7bb4"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, {3.827313204811164*^9, 
   3.827313227056847*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"b0b1ef8d-0dfa-43ff-b8e1-7c19bdd178bf"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 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.827313188055148*^9, 3.827313227057008*^9}, 
   3.847755496960359*^9, 3.856103182929229*^9, 3.877170135576762*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"17ddd5a1-13ec-46e3-96b0-81a85fa00ecd"],

Cell[BoxData["\<\"ChristoffelSymbolIrrotationalDust\"\>"], "Output",
 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.827313188055148*^9, 3.827313227057008*^9}, 
   3.847755496960359*^9, 3.856103182929229*^9, 3.8771701355782948`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"b43fe8a9-298e-4534-af4c-90ac3f9e163c"],

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"},
           {
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {"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"},
           {
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {"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[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]}
          },
          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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}
          },
          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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"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",
 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.827313188055148*^9, 3.827313227057008*^9}, 
   3.847755496960359*^9, 3.856103182929229*^9, 3.8771701356047564`*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"093dc294-0b58-4e16-b17e-\
dbecf68467e0"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, {3.827313204811511*^9, 
   3.8273132270572968`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"fc53474b-762b-47bd-a286-aa67cd4e2743"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 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.827313188108142*^9, 3.827313227057396*^9}, 
   3.847755497025269*^9, 3.856103182981059*^9, 3.877170135633037*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"a737f905-53a4-4892-8260-79928aec5023"],

Cell[BoxData["\<\"RiemannTensorIrrotationalDust\"\>"], "Output",
 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.827313188108142*^9, 3.827313227057396*^9}, 
   3.847755497025269*^9, 3.856103182981059*^9, 3.877170135634592*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"35d7cf64-c59d-4953-96e2-d0771a307f48"],

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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "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", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "0"},
          {"0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "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", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "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[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "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["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], "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[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "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["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], "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",
 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.827313188108142*^9, 3.827313227057396*^9}, 
   3.847755497025269*^9, 3.856103182981059*^9, 3.877170135743634*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"bbca3f1b-7a73-4548-a7dd-\
8338e2b7ab38"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, {3.827313204811853*^9, 
   3.8273132270576677`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"2046cf33-c721-41eb-bf89-a2c4e3836148"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 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.82731318824771*^9, 3.8273132270577583`*^9}, 
   3.8477554971818657`*^9, 3.8561031831509457`*^9, 3.8771701357676363`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"a452e3cc-2006-44a4-9c7d-4c63e5a80a11"],

Cell[BoxData["\<\"RicciTensorIrrotationalDust\"\>"], "Output",
 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.82731318824771*^9, 3.8273132270577583`*^9}, 
   3.8477554971818657`*^9, 3.8561031831509457`*^9, 3.8771701357692013`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"e1528ec6-a8b9-4565-897c-6cda587a3d27"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], ")"}], "2"]}]}], "0", "0", "0"},
      {"0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "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",
 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.82731318824771*^9, 3.8273132270577583`*^9}, 
   3.8477554971818657`*^9, 3.8561031831509457`*^9, 3.877170135793021*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"1311cd37-55d4-4928-b826-\
60365d83618b"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, {3.827313204812208*^9, 
   3.827313227058028*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"61c694f9-479d-4af9-af22-003c2c462065"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 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.82731318829217*^9, 3.827313227058115*^9}, 
   3.847755497228792*^9, 3.856103183197383*^9, 3.877170135807446*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"6f89d579-b725-42d8-87c1-01b2910ff858"],

Cell[BoxData["\<\"RicciScalarIrrotationalDust\"\>"], "Output",
 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.82731318829217*^9, 3.827313227058115*^9}, 
   3.847755497228792*^9, 3.856103183197383*^9, 3.877170135809149*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"4c9a2c8e-6ffc-453b-b34a-e26c5f91926b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["t", "2"]}],
       MultilineFunction->None], "+", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", "t", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["t", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
        RowBox[{"\[PartialD]", "t"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", "t", ")"}]}], 
        RowBox[{"\[PartialD]", "t"}],
        MultilineFunction->None]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], ")"}], "2"], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "2"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 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.82731318829217*^9, 3.827313227058115*^9}, 
   3.847755497228792*^9, 3.856103183197383*^9, 3.877170135811335*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"d5ca301d-fb31-408e-a88a-\
6ce5f04bc4e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.8273132048125687`*^9, 
   3.827313227058381*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"0d50e926-b7b1-4ef9-89ec-467bcbcd7c0b"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.8273131883277283`*^9, 3.827313227058477*^9}, 3.847755497270895*^9, 
   3.8561031832299757`*^9, 3.877170135838648*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"d19f5b6f-e66e-4278-a83d-cd194cf3bc21"],

Cell[BoxData["\<\"KretschmannScalarIrrotationalDust\"\>"], "Output",
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.8273131883277283`*^9, 3.827313227058477*^9}, 3.847755497270895*^9, 
   3.8561031832299757`*^9, 3.8771701358401527`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"2a09021f-876d-460b-b3af-56e04ccf1c4e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], ")"}], "2"], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", "t", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["t", "2"]}],
        MultilineFunction->None]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], ")"}], "4"], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "4"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.8273131883277283`*^9, 3.827313227058477*^9}, 3.847755497270895*^9, 
   3.8561031832299757`*^9, 3.8771701358425007`*^9},
 CellLabel->
  "Out[45]//TraditionalForm=",ExpressionUUID->"3a91db38-8412-4617-831d-\
f2c4b5e34244"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, {3.82731320481292*^9, 3.8273132270587387`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"919b9db2-2beb-46ad-9db8-02549121b9dc"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.827313188344839*^9, 3.827313227058832*^9}, 
   3.847755497296238*^9, 3.8561031832496023`*^9, 3.87717013585778*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"805df38a-610f-450d-a3a9-9db8ca179eb6"],

Cell[BoxData["\<\"EinsteinTensorIrrotationalDust\"\>"], "Output",
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.827313188344839*^9, 3.827313227058832*^9}, 
   3.847755497296238*^9, 3.8561031832496023`*^9, 3.877170135859419*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"be4de58b-c9dd-4290-a829-0cd5c3805582"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "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",
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.827313188344839*^9, 3.827313227058832*^9}, 
   3.847755497296238*^9, 3.8561031832496023`*^9, 3.877170135884472*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"3b199911-f269-4c7a-a5b5-\
6bb37a2fada6"]
}, Open  ]],

Cell[CellGroupData[{

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",
 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.82731320481326*^9, 3.827313227059101*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"49d9d2ff-8136-4662-bcbb-950db7b9577c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 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.8273131884024*^9, 3.8273132270591908`*^9}, 
   3.8477554973656273`*^9, 3.856103183294132*^9, 3.877170135924856*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"dfd367ed-0820-42c3-9afa-85905b825a6b"],

Cell[BoxData["\<\"WeylTensorIrrotationalDust\"\>"], "Output",
 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.8273131884024*^9, 3.8273132270591908`*^9}, 
   3.8477554973656273`*^9, 3.856103183294132*^9, 3.877170135926527*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"cb74cc31-a9ed-4773-82c2-826b0e5ab5c2"],

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", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "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[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "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", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Alpha]", "(", "t", ")"}], "+", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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",
 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.8273131884024*^9, 3.8273132270591908`*^9}, 
   3.8477554973656273`*^9, 3.856103183294132*^9, 3.877170136125648*^9},
 CellLabel->
  "Out[51]//TraditionalForm=",ExpressionUUID->"32307328-252a-442e-b1cd-\
03b7bb2f4d76"]
}, Open  ]],

Cell[CellGroupData[{

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",
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827313204813891*^9, 3.8273132270594673`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"326bcf67-e930-437d-84cd-f46a6cefa914"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{{3.827313188653203*^9, 3.82731322705956*^9}, 
   3.847755497616765*^9, 3.856103183565818*^9, 3.8771701361644297`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"2852e665-c375-4c85-8c94-6f881e453e03"],

Cell[BoxData["\<\"CottonTensorIrrotationalDust\"\>"], "Output",
 CellChangeTimes->{{3.827313188653203*^9, 3.82731322705956*^9}, 
   3.847755497616765*^9, 3.856103183565818*^9, 3.877170136166201*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"4bb82d50-e547-4cdf-b773-fe8bafa3978a"],

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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["2", "3"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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[{
           {
            RowBox[{
             FractionBox["2", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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[{
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "3"]}],
                 MultilineFunction->None]}], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]}
          },
          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[{
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "3"]}],
                 MultilineFunction->None]}], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "3"]}],
                MultilineFunction->None], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "t", ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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",
 CellChangeTimes->{{3.827313188653203*^9, 3.82731322705956*^9}, 
   3.847755497616765*^9, 3.856103183565818*^9, 3.8771701362776318`*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"e403a7db-dd83-416f-80fd-\
a86c3bd66f6d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Vacuum Field Equations For Metric 1", "Section",
 CellChangeTimes->{{3.827313597366041*^9, 3.827313624877288*^9}, 
   3.8273144579581957`*^9, 
   3.856103319521337*^9},ExpressionUUID->"53de4c18-9a5a-4b3f-9eff-\
6b808c142628"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"Cases", "[", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", " ", 
          RowBox[{
           RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
           RowBox[{
            RowBox[{"TensorValues", "[", 
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
         " ", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
      " ", 
      RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellChangeTimes->{{3.8273134990873632`*^9, 3.827313555501141*^9}, 
   3.827313605988209*^9, 3.8273144579584846`*^9, {3.856103164170726*^9, 
   3.856103164599082*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"43c45fe3-32f2-4d13-9f18-4d6c763130c5"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Alpha]", "(", "t", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.827313495216425*^9, 3.8273135208447237`*^9}, 
   3.827313556042898*^9, 3.827313605988737*^9, 3.827314457958593*^9, 
   3.847755497805451*^9, 3.85610318375041*^9, 3.8771701363202257`*^9},
 CellLabel->
  "Out[57]//TraditionalForm=",ExpressionUUID->"359ab05b-1061-45b0-b1a8-\
adfb691fdec7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"Cases", "[", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", " ", 
          RowBox[{
           RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
           RowBox[{
            RowBox[{"TensorValues", "[", 
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
         " ", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
      " ", 
      RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellChangeTimes->{{3.827313570382419*^9, 3.827313605988955*^9}, 
   3.827314457958765*^9, {3.856103172522225*^9, 3.856103172927578*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"cfc79e92-6f88-4a54-abb3-d6829be08267"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.827313590377603*^9, 3.827313605989451*^9}, 
   3.827314457958828*^9, 3.8477554978443108`*^9, 3.856103183786399*^9, 
   3.877170136352923*^9},
 CellLabel->
  "Out[60]//TraditionalForm=",ExpressionUUID->"7c14ea7e-3836-458d-a353-\
c45ea2aa3223"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2alphadt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2alphadt2", " ", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroRicci", "[", 
          RowBox[{"[", "2", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        " ", 
        RowBox[{
         SuperscriptBox["\[Alpha]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", " ", "]"}]}], " ", "]"}], "]"}],
      "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2alphadt2", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.8561032152501383`*^9, 3.8561032825806017`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"91e8cfc2-334d-403e-829d-a0b88ec6a5ee"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["t", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"2", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Beta]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None]}]}], "-", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None], ")"}], "2"]}]}], TraditionalForm]], "Output",\

 CellChangeTimes->{3.856103283009441*^9, 3.877170136381897*^9},
 CellLabel->
  "Out[63]//TraditionalForm=",ExpressionUUID->"1fbdcfec-01bd-4173-80eb-\
63ff35e00a50"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2betadt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2betadt2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroRicci", "[", 
          RowBox[{"[", "3", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        " ", 
        RowBox[{
         SuperscriptBox["\[Beta]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", " ", "]"}]}], " ", "]"}], "]"}],
      "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2betadt2", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.8561032152501383`*^9, 3.85610330465232*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"2a650afc-04bd-4d85-9633-0291a41eb2e0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Beta]", "(", "t", ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["t", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Beta]", "(", "t", ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None]}]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", "t", ")"}]}], 
        RowBox[{"\[PartialD]", "t"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.856103233573167*^9, 3.856103258241716*^9}, 
   3.856103305077754*^9, 3.877170136412971*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"be3398b4-af9d-4220-98b0-\
285a003760b7"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Stress Energy Tensor For Irrotational Dust", "Section",
 CellChangeTimes->{{3.827313628966032*^9, 3.827313649565013*^9}, 
   3.827314457958891*^9},ExpressionUUID->"468d7bf3-3da0-4b46-af16-\
57353d4b9030"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "u", "]"}], "\[IndentingNewLine]", 
 RowBox[{"u", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<u\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.827313286193274*^9, 3.827313309687476*^9}, 
   3.8273136376499567`*^9, 3.827314457959124*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"f5079467-4a3a-47c6-9c83-714383da39b4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["u", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{3.827313310366617*^9, 3.8273136376503687`*^9, 
  3.827314457959241*^9, 3.847755497854086*^9, 3.856103183801093*^9, 
  3.877170136421268*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"63cb1190-910e-4c7f-ad84-6274988bbec4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"u", "[", 
    RowBox[{"-", "\[Mu]"}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"as", " ", "a", " ", "check"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.827314332411542*^9, 3.827314347902877*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"16564553-00bc-4039-b049-3ba49f8ba2af"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.8273143349505997`*^9, 3.827314348183404*^9}, 
   3.8477554978805428`*^9, 3.856103183829358*^9, 3.877170136449275*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"1a8ba966-79e0-4780-9af3-20ecd22690ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{"-", "\[Mu]"}], "]"}], " ", 
  RowBox[{"u", "[", 
   RowBox[{"-", "\[Nu]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MergeTensors", "[", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"-", "\[Mu]"}], "]"}], " ", 
    RowBox[{"u", "[", 
     RowBox[{"-", "\[Nu]"}], "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "setComponents", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setComponents", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}], ")"}], "*", 
    RowBox[{"TensorValues", "[", 
     RowBox[{"MergeTensors", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"-", "\[Mu]"}], "]"}], " ", 
       RowBox[{"u", "[", 
        RowBox[{"-", "\[Nu]"}], "]"}]}], "]"}], "]"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"setComponents", "  ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.877170030895829*^9, 3.877170070939239*^9}, {
  3.8771706455052156`*^9, 3.877170653770685*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"f389841b-626f-47c1-92c5-975aa30a390e"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox["u", "\[Mu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox["u", "\[Nu]", ""],
   DisplayForm]}]], "Output",
 CellChangeTimes->{3.8771701364870977`*^9, 3.8771706544316463`*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"63589396-fda2-4c56-b70d-18036d5264d1"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{"u", "\[CenterDot]", "u"}], ")"}], "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{3.8771701364870977`*^9, 3.877170654435042*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"db7f20cf-1a1a-46b9-b5e1-dd0a219b44be"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}], "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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8771701364870977`*^9, 3.877170654438222*^9},
 CellLabel->
  "Out[133]//MatrixForm=",ExpressionUUID->"6d048abf-c5dd-4404-86d8-\
38ca0ced2e99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "T", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"we", " ", 
    RowBox[{"use", " ", "[", "esc", "]"}], 
    RowBox[{"crho", "[", "esc", "]"}], " ", "for", " ", "\[CurlyRho]"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"T", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<u\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", "setComponents", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.827313262671453*^9, 3.827313262684248*^9}, {
   3.827313325776348*^9, 3.827313391657023*^9}, {3.827313424561211*^9, 
   3.827313464134334*^9}, 3.8273136376505737`*^9, 3.827314457959454*^9, {
   3.877170060232478*^9, 3.877170093821414*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"afa81726-9695-4033-be8d-c82acd08d75b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["u", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{{3.827313333205035*^9, 3.827313361960943*^9}, 
   3.8273133924188633`*^9, 3.827313637650896*^9, 3.827314457959556*^9, 
   3.847755497911745*^9, 3.856103183860868*^9, 3.877170136534811*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"ffcdef4e-993c-47cf-938b-5b5d27d5f39a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"T", "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8273133955322733`*^9, 3.8273134127770977`*^9}, 
   3.82731363765104*^9, 3.827314457959669*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"21f03bff-caf4-4d80-8d4b-a7c6a34edaac"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}], "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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8273134012845697`*^9, 3.827313413032156*^9}, 
   3.82731363765133*^9, 3.827314457959765*^9, 3.847755497956538*^9, 
   3.8561031839425*^9, 3.877170136612879*^9},
 CellLabel->
  "Out[76]//MatrixForm=",ExpressionUUID->"a25e0a9f-5071-4cdf-84c3-\
c70dd7a1a369"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Field Equations With Stress Tensor ", "Section",
 CellChangeTimes->{{3.827314483398033*^9, 
  3.827314526631185*^9}},ExpressionUUID->"a0bd7f21-c52d-4ff6-944d-\
5970a59483a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"tensorList", "[", 
  RowBox[{"[", "7", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"TensorName", "[", 
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.827313656944803*^9, 3.8273136943422003`*^9}, {
  3.8273145019499407`*^9, 3.827314526631427*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"ab43643d-4866-4620-8d5c-4ba5a7183cd4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{{3.827313660120719*^9, 3.827313694874054*^9}, {
   3.827314501950058*^9, 3.82731452663159*^9}, 3.847755497965548*^9, 
   3.856103183955674*^9, 3.8771701366244698`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"02fcffca-585d-4561-80ec-f212dd927250"],

Cell[BoxData["\<\"EinsteinTensorIrrotationalDust\"\>"], "Output",
 CellChangeTimes->{{3.827313660120719*^9, 3.827313694874054*^9}, {
   3.827314501950058*^9, 3.82731452663159*^9}, 3.847755497965548*^9, 
   3.856103183955674*^9, 3.8771701366289577`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"079fa750-45c0-4518-8f88-d31ad3b76232"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", "t", ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "t", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "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",
 CellChangeTimes->{{3.827313660120719*^9, 3.827313694874054*^9}, {
   3.827314501950058*^9, 3.82731452663159*^9}, 3.847755497965548*^9, 
   3.856103183955674*^9, 3.87717013666354*^9},
 CellLabel->
  "Out[79]//TraditionalForm=",ExpressionUUID->"a347bd7e-8e1c-4a74-b223-\
3982ce8d4f12"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"T", "[", 
  RowBox[{
   RowBox[{"-", "\[Mu]"}], ",", 
   RowBox[{"-", "\[Nu]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"T", "[", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.827313697400569*^9, 3.827313728149356*^9}, {
  3.827314501950598*^9, 3.827314526631983*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"74775203-cc98-4d7b-821a-f962f021e2ef"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["u", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{{3.827313702239962*^9, 3.827313728672724*^9}, {
   3.827314501950707*^9, 3.827314526632148*^9}, 3.84775549801119*^9, 
   3.856103184001751*^9, 3.8771701366754704`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"c1522e00-941f-4f20-b101-9007a4ba2652"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}], "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.827313702239962*^9, 3.827313728672724*^9}, {
   3.827314501950707*^9, 3.827314526632148*^9}, 3.84775549801119*^9, 
   3.856103184001751*^9, 3.877170136705493*^9},
 CellLabel->
  "Out[81]//TraditionalForm=",ExpressionUUID->"b6ed9116-3c6e-44c2-8ecc-\
e3157f753585"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "fieldEquationsDust", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquationsDust", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "]"}], " ", "\[Equal]",
         " ", 
        RowBox[{"Flatten", "[", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"T", "[", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "]"}]}], " ", "]"}], ",", 
      "True"}], "]"}], " ", "]"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquationsDust", " ", "//", " ", "TableForm"}], " ", "//", " ",
   "pdConv"}]}], "Input",
 CellChangeTimes->{{3.827313738981861*^9, 3.8273138286041307`*^9}, {
  3.8273139114132*^9, 3.827313912682386*^9}, {3.82731450195113*^9, 
  3.8273145266323767`*^9}, {3.8771701130564947`*^9, 3.87717012324008*^9}, {
  3.877170177350292*^9, 3.87717018170894*^9}, {3.877170323057959*^9, 
  3.877170329783194*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"06d04645-1d97-4c0a-81ea-1d4c96f6b6c9"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "t", ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "t", ")"}]}]]}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", "t", ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        "\[LongEqual]", "0"}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "t", ")"}]}]]}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", "t", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None], "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "t", ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Alpha]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "t", ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
        "\[LongEqual]", "0"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.827313742868352*^9, 3.827313775233429*^9}, {
   3.827313825296595*^9, 3.827313829211088*^9}, 3.827313913163168*^9, {
   3.827314501951333*^9, 3.8273145266324453`*^9}, 3.847755498083539*^9, 
   3.85610318407612*^9, 3.877170136745577*^9, 3.8771701819411077`*^9, 
   3.877170330197999*^9},
 CellLabel->
  "Out[107]//TraditionalForm=",ExpressionUUID->"235fa165-ce64-43c2-8946-\
4d1f9a7f4b2b"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", "alphaBetaSecondDerivatives", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "alphaBetaSecondDerivatives", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"fieldEquationsDust", "[", 
           RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
          RowBox[{"fieldEquationsDust", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], " ", "}"}], "  ", ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Alpha]", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], " ", ",", " ", 
          RowBox[{
           SuperscriptBox["\[Beta]", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], " ", "}"}]}], " ", 
       "]"}], "]"}], " ", ")"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], " ", ";"}]}], "Input",
 CellChangeTimes->{{3.877170336190734*^9, 3.8771704205516233`*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"e84b2888-ee18-4227-9cd8-9579a1cca87d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2alphadt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"d2alphadt2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"alphaBetaSecondDerivatives", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.877170427110826*^9, 3.877170445422949*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"fff9f1bf-1843-4be1-a68e-376ebff13664"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Alpha]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[Alpha]", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Alpha]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[Beta]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[Beta]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.8771704278171387`*^9, 3.877170461999042*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"b144e30e-3121-4871-9c8c-b6bc4db42f8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2betadt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"d2betadt2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"alphaBetaSecondDerivatives", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8771704305590887`*^9, 3.8771704586469297`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"dfc95940-ff69-4c87-918b-2d36fb16c50c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Beta]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["3", "2"]}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["\[Beta]", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{{3.877170432126919*^9, 3.8771704604889*^9}},
 CellLabel->
  "Out[122]=",ExpressionUUID->"b6a2510d-0145-417b-9a8b-50e6ce62b6bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"fieldEquationsDust", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.87717058733003*^9, 3.877170606282731*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"dd9e1d93-d98f-4857-90d7-be49877285f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Beta]", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Alpha]", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[Beta]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", 
  RowBox[{"\[Kappa]", " ", "\[CurlyRho]"}]}]], "Output",
 CellChangeTimes->{{3.8771705776840477`*^9, 3.877170606612356*^9}},
 CellLabel->
  "Out[128]=",ExpressionUUID->"ab358398-823f-4204-b9b5-0b131d0b5376"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Transformation of Line Element 1", "Section",
 CellChangeTimes->{{3.847755761053544*^9, 
  3.8477557755083237`*^9}},ExpressionUUID->"e5222d86-a8bf-4eaa-8f9f-\
dae99b58b78f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq9b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Not", " ", "numbered", " ", "in", " ", "text"}], " ", "-", " ", 
    RowBox[{"See", " ", "section", " ", "3"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq9b", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Xi]", " ", "==", " ", 
      RowBox[{"y", " ", "+", " ", 
       RowBox[{"\[ImaginaryI]", " ", "z"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Xi]bar", " ", "==", " ", 
      RowBox[{"y", " ", "-", " ", 
       RowBox[{"\[ImaginaryI]", " ", "z"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq9b", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.847755537246688*^9, 3.84775558808497*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"c442627d-d7e9-45ae-878f-c01a6acc3776"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Xi]", "\[Equal]", 
       RowBox[{"y", "+", 
        RowBox[{"\[ImaginaryI]", " ", "z"}]}]}]},
     {
      RowBox[{"\[Xi]bar", "\[Equal]", 
       RowBox[{"y", "-", 
        RowBox[{"\[ImaginaryI]", " ", "z"}]}]}]}
    },
    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",
 CellChangeTimes->{{3.847755584263871*^9, 3.847755588739421*^9}, 
   3.856103184221444*^9, 3.877170137179781*^9},
 CellLabel->
  "Out[94]//TableForm=",ExpressionUUID->"2d0a973d-34bd-4643-9b28-\
eb730eea1545"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{"eq9b", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", "z"}], "}"}]}], " ", "]"}], " ", "]"}], " ", "//", 
  " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.8477555901190033`*^9, 3.847755606308928*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"b3ad62c0-b6c2-4b76-8713-7cab92e8988d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"y", "\[Rule]", 
       FractionBox[
        RowBox[{"\[Xi]", "+", "\[Xi]bar"}], "2"]}]},
     {
      RowBox[{"z", "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Xi]", "-", "\[Xi]bar"}], ")"}]}]}]}
    },
    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",
 CellChangeTimes->{{3.847755596052924*^9, 3.847755606635099*^9}, 
   3.856103184250958*^9, 3.877170137190098*^9},
 CellLabel->
  "Out[95]//TableForm=",ExpressionUUID->"07596133-591d-4143-865e-\
c4c4b887045e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq9b", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"y", ",", "z"}], "}"}]}], " ", "]"}], " ", "]"}], " ", "]"}], 
   " ", "/.", " ", "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.847755617822784*^9, 3.847755626086627*^9}, {
  3.8477557040771313`*^9, 3.847755706500464*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"1bb7b5a3-3981-4974-8516-5b04818753cd"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dy", "\[Rule]", 
       FractionBox[
        RowBox[{"d\[Xi]", "+", "d\[Xi]bar"}], "2"]}]},
     {
      RowBox[{"dz", "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{"d\[Xi]", "-", "d\[Xi]bar"}], ")"}]}]}]}
    },
    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",
 CellChangeTimes->{
  3.847755626462346*^9, {3.847755700290318*^9, 3.847755721031476*^9}, 
   3.856103184262196*^9, 3.877170137221032*^9},
 CellLabel->
  "Out[96]//TableForm=",ExpressionUUID->"66225c99-b03d-494a-bc07-\
c010fc72aba5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eq1", " ", "/.", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Dt", "[", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq9b", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"y", ",", "z"}], "}"}]}], " ", "]"}], " ", "]"}], " ", 
      "]"}], " ", "/.", " ", "dtReplace"}], " ", ")"}]}], " ", "//", " ", 
  "Expand", " "}]], "Input",
 CellChangeTimes->{{3.8477556077189817`*^9, 3.847755607980668*^9}, {
  3.847755724261097*^9, 3.847755738476639*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"2ce0390b-c9fc-4a44-b587-f92064c7a74c"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dt", "2"], "-", 
  RowBox[{
   SuperscriptBox["dr", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Alpha]"}]]}], "-", 
  RowBox[{"d\[Xi]", " ", "d\[Xi]bar", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Beta]"}]]}]}]], "Output",
 CellChangeTimes->{
  3.847755608418054*^9, {3.847755722959566*^9, 3.84775573869455*^9}, 
   3.856103184288474*^9, 3.8771701372335033`*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"632344ce-bf09-4fcf-8f5e-ebbc1e4220ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"eq1", " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Dt", "[", " ", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Solve", "[", " ", 
            RowBox[{"eq9b", " ", ",", " ", 
             RowBox[{"{", 
              RowBox[{"y", ",", "z"}], "}"}]}], " ", "]"}], " ", "]"}], " ", 
          "]"}], " ", "/.", " ", "dtReplace"}], " ", ")"}]}], " ", "//", " ", 
      "Expand"}], "   ", ")"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "dt", ",", "dr", ",", " ", "d\[Xi]", " ", ",", " ", "d\[Xi]bar"}], " ", 
     "}"}]}], " ", "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.847755965024024*^9, 3.847756005037737*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"75a74a80-3025-45a9-b7f2-b0922c851e0e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Alpha]"}]]}], "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Beta]"}]], "2"]}]},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Beta]"}]], "2"]}], "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$]]]], "Output",
 CellChangeTimes->{{3.847755999634552*^9, 3.847756005303392*^9}, 
   3.85610318429917*^9, 3.877170137264703*^9},
 CellLabel->
  "Out[98]//MatrixForm=",ExpressionUUID->"4ee9f607-8deb-44d3-b73b-\
b6d46116dcae"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "metric3", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"We", "'"}], "ll", " ", "call", " ", "this", " ", "metric", 
       " ", "3", " ", "since", " ", 
       RowBox[{"it", "'"}], "s", " ", "in", " ", "section", " ", "3"}], " ", 
      "-", " ", 
      RowBox[{
       RowBox[{"it", "'"}], "s", " ", "not", " ", "even", " ", "in", " ", 
       "the", " ", "paper"}]}], ".."}], " ", "easier", " ", "to", " ", 
    "recalculate", " ", "tensors"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"eq1", " ", "/.", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Dt", "[", " ", 
            RowBox[{"Flatten", "[", 
             RowBox[{"Solve", "[", " ", 
              RowBox[{"eq9b", " ", ",", " ", 
               RowBox[{"{", 
                RowBox[{"y", ",", "z"}], "}"}]}], " ", "]"}], " ", "]"}], " ",
             "]"}], " ", "/.", " ", "dtReplace"}], " ", ")"}]}], " ", "//", 
        " ", "Expand"}], "   ", ")"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{
       "dt", ",", "dr", ",", " ", "d\[Xi]", " ", ",", " ", "d\[Xi]bar"}], " ",
        "}"}]}], " ", "]"}], "  ", "/.", " ", "eq1a"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.847756018173568*^9, 3.8477560803421297`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"5e8b95f2-eeac-4713-abfa-1e573dca5378"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Alpha]", "[", "t", "]"}]}]]}], "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "[", "t", "]"}]}]]}]},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "[", "t", "]"}]}]]}], "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$]]]], "Output",
 CellChangeTimes->{3.847756020123008*^9, 3.847756081782948*^9, 
  3.856103184327902*^9, 3.877170137278026*^9},
 CellLabel->
  "Out[101]//MatrixForm=",ExpressionUUID->"268c7da1-e4ac-46c6-8552-\
9303c42702ee"]
}, Closed]]
},
CellGrouping->Manual,
WindowSize->{1257, 755},
WindowMargins->{{4, Automatic}, {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->"7461c293-865e-43d7-96a3-476bbd9e04ad"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 442, 8, 159, "Title",ExpressionUUID->"2241e08e-5fd8-4151-87be-298295b9da52",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[1003, 30, 1576, 26, 94, "Author",ExpressionUUID->"b45ca6a4-0521-49fd-af4f-147fb99311a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2582, 58, 396, 9, 84, "Input",ExpressionUUID->"7b72b3d9-575c-49b9-9894-702d9f8633e2"],
Cell[CellGroupData[{
Cell[3003, 71, 222, 4, 69, "Section",ExpressionUUID->"ad082175-e2c6-4368-9f50-d7b53bc93358"],
Cell[CellGroupData[{
Cell[3250, 79, 431, 10, 63, "Input",ExpressionUUID->"8fd750f1-0533-4a62-82f5-9e10ca83e64c"],
Cell[3684, 91, 701, 13, 70, "Output",ExpressionUUID->"246c1e3c-ee91-4242-a95f-424a078681c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4422, 109, 219, 4, 69, "Section",ExpressionUUID->"10a3b25b-436e-4c5c-8d10-72339fba9f7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[4666, 117, 526, 10, 84, "Input",ExpressionUUID->"892bedaf-19d1-4bdd-a07e-660430dcfb1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5195, 129, 564, 11, 70, "Output",ExpressionUUID->"99b9a518-fc49-411e-aae1-0089c7ee36d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5820, 147, 294, 5, 55, "Section",ExpressionUUID->"234ca17d-effc-4ace-a198-e905b8408cc1"],
Cell[CellGroupData[{
Cell[6139, 156, 1635, 44, 189, "Input",ExpressionUUID->"44b43ef8-79f6-46bc-8981-b03e7b378944"],
Cell[7777, 202, 906, 17, 70, "Print",ExpressionUUID->"92a5f5cc-2011-414d-b49e-3d0e99dc30a2"],
Cell[8686, 221, 927, 18, 70, "Print",ExpressionUUID->"e863cb14-088d-4317-8e3a-01aa1801aaf6"],
Cell[9616, 241, 1295, 22, 70, "Output",ExpressionUUID->"34fefc8f-5472-42cb-a40f-18489213f60e"]
}, Open  ]],
Cell[10926, 266, 306, 5, 41, "Input",ExpressionUUID->"dd3797fc-7c72-4d06-af55-243781c4db63"]
}, Closed]],
Cell[CellGroupData[{
Cell[11269, 276, 217, 4, 55, "Section",ExpressionUUID->"5bcf310c-d390-4a23-95ad-e88b111dfc83",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[CellGroupData[{
Cell[11511, 284, 1722, 33, 210, "Input",ExpressionUUID->"c6fd1244-f8cd-4368-8e0b-1fd2459c3bca",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13236, 319, 2185, 50, 70, "Output",ExpressionUUID->"c04dffb3-da5e-44c0-b5fe-ba3dd67c0183",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[15436, 372, 714, 14, 41, "Input",ExpressionUUID->"b321d089-98a6-48fe-8f38-25eaaefdb722",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16187, 391, 457, 7, 55, "Section",ExpressionUUID->"eeffb1c1-0918-47c9-a597-3c9aa646b1fd"],
Cell[16647, 400, 1776, 43, 126, "Input",ExpressionUUID->"ebb4ee1e-755b-4886-9d84-5a7d7b4c7d01"],
Cell[18426, 445, 1072, 26, 84, "Input",ExpressionUUID->"00a8f0c8-4682-4f67-ad3a-84151744bd71"]
}, Closed]],
Cell[CellGroupData[{
Cell[19535, 476, 170, 3, 55, "Section",ExpressionUUID->"ce438f1c-6dda-47ed-b5a1-a88d095e6814"],
Cell[CellGroupData[{
Cell[19730, 483, 938, 22, 86, "Input",ExpressionUUID->"9716a079-8ceb-49d6-84ef-4980a3c0baf5"],
Cell[20671, 507, 868, 20, 70, "Output",ExpressionUUID->"1873803a-df98-431d-9099-631977339341"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21576, 532, 567, 11, 41, "Input",ExpressionUUID->"c10aa364-0be3-48da-b4f8-d3a6beedfa1c"],
Cell[22146, 545, 1311, 34, 70, "Output",ExpressionUUID->"27f22d8e-d096-4197-8395-c6a6af91d168"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23494, 584, 867, 17, 147, "Input",ExpressionUUID->"999e2239-9462-4df9-acc1-c186e2b995a8"],
Cell[24364, 603, 1042, 29, 70, "Output",ExpressionUUID->"afde51b7-f5bf-4893-8456-3cc2a21815ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25443, 637, 804, 15, 105, "Input",ExpressionUUID->"f76334d1-be2f-4216-878f-efd0764fe898"],
Cell[26250, 654, 1337, 36, 70, "Output",ExpressionUUID->"0e0195aa-4d4b-48bc-99a6-25546ad932bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27624, 695, 638, 14, 105, "Input",ExpressionUUID->"1d4df2cc-b7f3-4152-a351-ee1eb9069d00"],
Cell[28265, 711, 1363, 39, 70, "Output",ExpressionUUID->"f1a6240e-6954-46ae-b47a-30237cc310f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29665, 755, 402, 9, 41, "Input",ExpressionUUID->"5d61a0da-0900-4883-b3ca-9b07bafffc88"],
Cell[30070, 766, 814, 23, 70, "Output",ExpressionUUID->"8abf18f2-d011-4f76-a3da-57c05893fdbf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30921, 794, 400, 9, 41, "Input",ExpressionUUID->"80e15abd-f784-4e30-8a33-0fa6fb03ccf3"],
Cell[31324, 805, 845, 24, 70, "Output",ExpressionUUID->"5289bae5-6d26-4c6c-be12-365f39af1d94"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[32218, 835, 176, 3, 55, "Section",ExpressionUUID->"bab24911-b03c-49d3-94c8-be83df9b9950"],
Cell[32397, 840, 5684, 129, 714, "Input",ExpressionUUID->"f61dca92-1183-42a5-9d57-259e4e90d75f"],
Cell[CellGroupData[{
Cell[38106, 973, 1004, 21, 65, "Input",ExpressionUUID->"dbafb947-07e9-460a-ab60-28426a38e35d"],
Cell[39113, 996, 324, 6, 70, "Output",ExpressionUUID->"4e904989-f481-4395-a12d-ae9b6fd0ae97"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39474, 1007, 787, 18, 84, "Input",ExpressionUUID->"4c9d395b-61e1-46f7-81b5-d92b799e4a90"],
Cell[40264, 1027, 580, 11, 70, "Output",ExpressionUUID->"91ec984b-f472-49bd-a939-2073b7ef5caa"],
Cell[40847, 1040, 507, 7, 70, "Output",ExpressionUUID->"2a7411ae-6193-4974-8361-cf92ff4fea0e"],
Cell[41357, 1049, 1497, 39, 70, "Output",ExpressionUUID->"c3c27ea1-4562-46fa-9474-dc19881f7bb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42891, 1093, 786, 18, 84, "Input",ExpressionUUID->"b0b1ef8d-0dfa-43ff-b8e1-7c19bdd178bf"],
Cell[43680, 1113, 694, 13, 70, "Output",ExpressionUUID->"17ddd5a1-13ec-46e3-96b0-81a85fa00ecd"],
Cell[44377, 1128, 602, 8, 70, "Output",ExpressionUUID->"b43fe8a9-298e-4534-af4c-90ac3f9e163c"],
Cell[44982, 1138, 12189, 357, 70, "Output",ExpressionUUID->"093dc294-0b58-4e16-b17e-dbecf68467e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57208, 1500, 785, 18, 84, "Input",ExpressionUUID->"fc53474b-762b-47bd-a286-aa67cd4e2743"],
Cell[57996, 1520, 570, 10, 70, "Output",ExpressionUUID->"a737f905-53a4-4892-8260-79928aec5023"],
Cell[58569, 1532, 520, 7, 70, "Output",ExpressionUUID->"35d7cf64-c59d-4953-96e2-d0771a307f48"],
Cell[59092, 1541, 26771, 689, 70, "Output",ExpressionUUID->"bbca3f1b-7a73-4548-a7dd-8338e2b7ab38"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85900, 2235, 783, 18, 84, "Input",ExpressionUUID->"2046cf33-c721-41eb-bf89-a2c4e3836148"],
Cell[86686, 2255, 560, 10, 70, "Output",ExpressionUUID->"a452e3cc-2006-44a4-9c7d-4c63e5a80a11"],
Cell[87249, 2267, 524, 7, 70, "Output",ExpressionUUID->"e1528ec6-a8b9-4565-897c-6cda587a3d27"],
Cell[87776, 2276, 5672, 154, 70, "Output",ExpressionUUID->"1311cd37-55d4-4928-b826-60365d83618b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93485, 2435, 783, 18, 84, "Input",ExpressionUUID->"61c694f9-479d-4af9-af22-003c2c462065"],
Cell[94271, 2455, 517, 9, 70, "Output",ExpressionUUID->"6f89d579-b725-42d8-87c1-01b2910ff858"],
Cell[94791, 2466, 518, 7, 70, "Output",ExpressionUUID->"4c9a2c8e-6ffc-453b-b34a-e26c5f91926b"],
Cell[95312, 2475, 2072, 58, 70, "Output",ExpressionUUID->"d5ca301d-fb31-408e-a88a-6ce5f04bc4e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97421, 2538, 716, 17, 84, "Input",ExpressionUUID->"0d50e926-b7b1-4ef9-89ec-467bcbcd7c0b"],
Cell[98140, 2557, 352, 7, 70, "Output",ExpressionUUID->"d19f5b6f-e66e-4278-a83d-cd194cf3bc21"],
Cell[98495, 2566, 361, 5, 70, "Output",ExpressionUUID->"2a09021f-876d-460b-b3af-56e04ccf1c4e"],
Cell[98859, 2573, 2996, 87, 70, "Output",ExpressionUUID->"3a91db38-8412-4617-831d-f2c4b5e34244"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101892, 2665, 762, 17, 84, "Input",ExpressionUUID->"919b9db2-2beb-46ad-9db8-02549121b9dc"],
Cell[102657, 2684, 484, 9, 70, "Output",ExpressionUUID->"805df38a-610f-450d-a3a9-9db8ca179eb6"],
Cell[103144, 2695, 452, 6, 70, "Output",ExpressionUUID->"be4de58b-c9dd-4290-a829-0cd5c3805582"],
Cell[103599, 2703, 5860, 160, 70, "Output",ExpressionUUID->"3b199911-f269-4c7a-a5b5-6bb37a2fada6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109496, 2868, 825, 18, 84, "Input",ExpressionUUID->"49d9d2ff-8136-4662-bcbb-950db7b9577c"],
Cell[110324, 2888, 570, 10, 70, "Output",ExpressionUUID->"dfd367ed-0820-42c3-9afa-85905b825a6b"],
Cell[110897, 2900, 517, 7, 70, "Output",ExpressionUUID->"cb74cc31-a9ed-4773-82c2-826b0e5ab5c2"],
Cell[111417, 2909, 49095, 1229, 70, "Output",ExpressionUUID->"32307328-252a-442e-b1cd-03b7bb2f4d76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160549, 4143, 688, 16, 84, "Input",ExpressionUUID->"326bcf67-e930-437d-84cd-f46a6cefa914"],
Cell[161240, 4161, 322, 6, 70, "Output",ExpressionUUID->"2852e665-c375-4c85-8c94-6f881e453e03"],
Cell[161565, 4169, 277, 3, 70, "Output",ExpressionUUID->"4bb82d50-e547-4cdf-b773-fe8bafa3978a"],
Cell[161845, 4174, 32771, 838, 70, "Output",ExpressionUUID->"e403a7db-dd83-416f-80fd-a86c3bd66f6d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[194665, 5018, 231, 4, 55, "Section",ExpressionUUID->"53de4c18-9a5a-4b3f-9eff-6b808c142628"],
Cell[CellGroupData[{
Cell[194921, 5026, 1384, 34, 105, "Input",ExpressionUUID->"43c45fe3-32f2-4d13-9f18-4d6c763130c5"],
Cell[196308, 5062, 4244, 119, 70, "Output",ExpressionUUID->"359ab05b-1061-45b0-b1a8-adfb691fdec7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200589, 5186, 1366, 34, 105, "Input",ExpressionUUID->"cfc79e92-6f88-4a54-abb3-d6829be08267"],
Cell[201958, 5222, 3941, 112, 70, "Output",ExpressionUUID->"7c14ea7e-3836-458d-a353-c45ea2aa3223"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205936, 5339, 916, 22, 105, "Input",ExpressionUUID->"91e8cfc2-334d-403e-829d-a0b88ec6a5ee"],
Cell[206855, 5363, 1083, 34, 70, "Output",ExpressionUUID->"1fbdcfec-01bd-4173-80eb-63ff35e00a50"],
Cell[CellGroupData[{
Cell[207963, 5401, 914, 22, 105, "Input",ExpressionUUID->"2a650afc-04bd-4d85-9633-0291a41eb2e0"],
Cell[208880, 5425, 1154, 36, 70, "Output",ExpressionUUID->"be3398b4-af9d-4220-98b0-285a003760b7"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[210095, 5468, 210, 3, 55, "Section",ExpressionUUID->"468d7bf3-3da0-4b46-af16-57353d4b9030"],
Cell[CellGroupData[{
Cell[210330, 5475, 641, 13, 84, "Input",ExpressionUUID->"f5079467-4a3a-47c6-9c83-714383da39b4"],
Cell[210974, 5490, 327, 7, 45, "Output",ExpressionUUID->"63cb1190-910e-4c7f-ad84-6274988bbec4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211338, 5502, 365, 8, 41, "Input",ExpressionUUID->"16564553-00bc-4039-b049-3ba49f8ba2af"],
Cell[211706, 5512, 312, 5, 41, "Output",ExpressionUUID->"1a8ba966-79e0-4780-9af3-20ecd22690ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212055, 5522, 1196, 32, 168, "Input",ExpressionUUID->"f389841b-626f-47c1-92c5-975aa30a390e"],
Cell[213254, 5556, 327, 10, 45, "Output",ExpressionUUID->"63589396-fda2-4c56-b70d-18036d5264d1"],
Cell[213584, 5568, 302, 8, 45, "Output",ExpressionUUID->"db7f20cf-1a1a-46b9-b5e1-dd0a219b44be"],
Cell[213889, 5578, 763, 22, 101, "Output",ExpressionUUID->"6d048abf-c5dd-4404-86d8-38ca0ced2e99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214689, 5605, 979, 21, 84, "Input",ExpressionUUID->"afa81726-9695-4033-be8d-c82acd08d75b"],
Cell[215671, 5628, 380, 7, 45, "Output",ExpressionUUID->"ffcdef4e-993c-47cf-938b-5b5d27d5f39a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216088, 5640, 411, 10, 41, "Input",ExpressionUUID->"21f03bff-caf4-4d80-8d4b-a7c6a34edaac"],
Cell[216502, 5652, 879, 24, 101, "Output",ExpressionUUID->"a25e0a9f-5071-4cdf-84c3-c70dd7a1a369"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[217430, 5682, 180, 3, 55, "Section",ExpressionUUID->"a0bd7f21-c52d-4ff6-944d-5970a59483a6"],
Cell[CellGroupData[{
Cell[217635, 5689, 628, 14, 84, "Input",ExpressionUUID->"ab43643d-4866-4620-8d5c-4ba5a7183cd4"],
Cell[218266, 5705, 364, 7, 45, "Output",ExpressionUUID->"02fcffca-585d-4561-80ec-f212dd927250"],
Cell[218633, 5714, 331, 4, 41, "Output",ExpressionUUID->"079fa750-45c0-4518-8f88-d31ad3b76232"],
Cell[218967, 5720, 5736, 158, 156, "Output",ExpressionUUID->"a347bd7e-8e1c-4a74-b223-3982ce8d4f12"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224740, 5883, 579, 15, 63, "Input",ExpressionUUID->"74775203-cc98-4d7b-821a-f962f021e2ef"],
Cell[225322, 5900, 359, 7, 45, "Output",ExpressionUUID->"c1522e00-941f-4f20-b101-9007a4ba2652"],
Cell[225684, 5909, 932, 25, 100, "Output",ExpressionUUID->"b6ed9116-3c6e-44c2-8ecc-e3157f753585"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226653, 5939, 1329, 30, 105, "Input",ExpressionUUID->"06d04645-1d97-4c0a-81ea-1d4c96f6b6c9"],
Cell[227985, 5971, 4356, 120, 124, "Output",ExpressionUUID->"235fa165-ce64-43c2-8946-4d1f9a7f4b2b"]
}, Open  ]],
Cell[232356, 6094, 1189, 29, 84, "Input",ExpressionUUID->"e84b2888-ee18-4227-9cd8-9579a1cca87d"],
Cell[CellGroupData[{
Cell[233570, 6127, 387, 7, 84, "Input",ExpressionUUID->"fff9f1bf-1843-4be1-a68e-376ebff13664"],
Cell[233960, 6136, 991, 29, 56, "Output",ExpressionUUID->"b144e30e-3121-4871-9c8c-b6bc4db42f8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234988, 6170, 389, 7, 84, "Input",ExpressionUUID->"dfc95940-ff69-4c87-918b-2d36fb16c50c"],
Cell[235380, 6179, 498, 14, 56, "Output",ExpressionUUID->"b6a2510d-0145-417b-9a8b-50e6ce62b6bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235915, 6198, 261, 6, 41, "Input",ExpressionUUID->"dd9e1d93-d98f-4857-90d7-be49877285f7"],
Cell[236179, 6206, 656, 18, 41, "Output",ExpressionUUID->"ab358398-823f-4204-b9b5-0b131d0b5376"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[236884, 6230, 179, 3, 55, "Section",ExpressionUUID->"e5222d86-a8bf-4eaa-8f9f-dae99b58b78f"],
Cell[CellGroupData[{
Cell[237088, 6237, 950, 22, 147, "Input",ExpressionUUID->"c442627d-d7e9-45ae-878f-c01a6acc3776"],
Cell[238041, 6261, 881, 27, 69, "Output",ExpressionUUID->"2d0a973d-34bd-4643-9b28-eb730eea1545"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238959, 6293, 391, 9, 41, "Input",ExpressionUUID->"b3ad62c0-b6c2-4b76-8713-7cab92e8988d"],
Cell[239353, 6304, 968, 30, 85, "Output",ExpressionUUID->"07596133-591d-4143-865e-c4c4b887045e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240358, 6339, 533, 12, 41, "Input",ExpressionUUID->"1bb7b5a3-3981-4974-8516-5b04818753cd"],
Cell[240894, 6353, 999, 31, 85, "Output",ExpressionUUID->"66225c99-b03d-494a-bc07-c010fc72aba5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241930, 6389, 620, 15, 41, "Input",ExpressionUUID->"2ce0390b-c9fc-4a44-b587-f92064c7a74c"],
Cell[242553, 6406, 540, 13, 41, "Output",ExpressionUUID->"632344ce-bf09-4fcf-8f5e-ebbc1e4220ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243130, 6424, 893, 22, 41, "Input",ExpressionUUID->"75a74a80-3025-45a9-b7f2-b0922c851e0e"],
Cell[244026, 6448, 1122, 33, 127, "Output",ExpressionUUID->"4ee9f607-8deb-44d3-b73b-b6d46116dcae"]
}, Open  ]],
Cell[245163, 6484, 1684, 42, 105, "Input",ExpressionUUID->"5e8b95f2-eeac-4713-abfa-1e573dca5378"],
Cell[246850, 6528, 1280, 38, 119, "Output",ExpressionUUID->"268c7da1-e4ac-46c6-8552-9303c42702ee"]
}, Closed]]
}
]
*)