Aspects of Quantum Field Theory In Curved Spacetime by Fulling.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[    164320,       4203]
NotebookOptionsPosition[    149569,       3980]
NotebookOutlinePosition[    150031,       3997]
CellTagsIndexPosition[    149988,       3994]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Aspects of Quantum Field Theory In Curved Spacetime by Fulling\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823437107739418*^9, 3.823437114378701*^9}, {3.823437155219769*^9, 
   3.823437162159172*^9}, {3.8260277436913977`*^9, 3.82602776480827*^9}, {
   3.826187165606697*^9, 3.826187195199024*^9}},
 TextAlignment->Center,ExpressionUUID->"5181d870-3178-4183-906f-9f504b674666"],

Cell["\<\
Geoff Cope
University of Utah
April 1st, 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.823422996286858*^9, 3.823422999926001*^9}, {3.8260349123952703`*^9, 
   3.826034914714463*^9}, {3.826187198702311*^9, 3.826187203958405*^9}},
 TextAlignment->Center,ExpressionUUID->"57c6e755-e937-4060-bf38-b82737cf7e46"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "problem", " ", "appears", " ", "to", " ", "be", " ", "sign", " ", 
      "convetion", " ", "with", " ", "Riemmann", " ", "and", " ", "Ricci"}], 
     "..."}], " ", "combining", " ", "those", " ", "with", " ", "a", " ", 
    "Ricci", " ", "Scalar", " ", "squared", " ", "which", " ", "is", " ", 
    "correct"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{3.826185237350555*^9},
 CellLabel->
  "In[213]:=",ExpressionUUID->"e0a4aa8c-f3ea-4d81-bc98-f7a82db393ef"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"a3674fe3-55f1-45dd-a3cf-\
718bb721398a"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"668e4449-b8db-487a-9504-84abfadfd512"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823437204902042*^9, 
   3.8260279978867607`*^9, 3.82605154665021*^9, 3.82605224785146*^9, 
   3.82605422602782*^9, 3.826095790794064*^9, 3.826185687825083*^9, 
   3.82618579874909*^9, 3.826186039536813*^9, 3.826187231451871*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"d4873bb5-e1d3-4d56-aa95-ac57ba13c85a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Book ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, {3.826190945278699*^9, 
   3.82619094661141*^9}, 
   3.843085140135195*^9},ExpressionUUID->"83644d27-5f7d-4c94-9cde-\
beeaef028186"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Aspects of Quantum Field Theory In Curved Spacetime by Fulling\>\"", 
   ",", "\[IndentingNewLine]", 
   "\"\<https://www.cambridge.org/core/books/aspects-of-quantum-field-theory-\
in-curved-spacetime/D96D902C0432D20FA5F0CC75C5E93FE6\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472612814559*^9, 3.823472633860148*^9}, {
   3.8262039499156523`*^9, 3.826203961601706*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"4a0439b7-9959-4427-a6f7-e4c11cf9ebaf"],

Cell[BoxData[
 TemplateBox[{
  "\"Aspects of Quantum Field Theory In Curved Spacetime by Fulling\"", 
   "https://www.cambridge.org/core/books/aspects-of-quantum-field-theory-in-\
curved-spacetime/D96D902C0432D20FA5F0CC75C5E93FE6"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.821886813557355*^9, 3.8231765072073307`*^9, 
  3.823359428608782*^9, 3.8233607804338617`*^9, 3.823360880363216*^9, 
  3.823361224626254*^9, 3.823362098931829*^9, 3.823364030688095*^9, 
  3.8234372051552353`*^9, 3.823472634251237*^9, 3.8260279980033703`*^9, 
  3.8260515467743177`*^9, 3.8260522480075808`*^9, 3.826054226145361*^9, 
  3.826095790927781*^9, 3.82618568784027*^9, 3.826185798762553*^9, 
  3.826186039549511*^9, 3.8261872314618464`*^9, 3.826203964827248*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"2e718551-3f7d-441d-91ad-0a6a2ace2157"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Plane Waves by Griffiths - Book\>\"", ",", 
   "\"\<ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%\
20plane%20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)\
(254s)_PGr_.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"d30244db-1aad-45f3-b9f0-016e42d4c5c8"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823437205194394*^9, 3.826027998036727*^9, 
   3.826051546789892*^9, 3.826052248058763*^9, 3.826054226161038*^9, 
   3.826095790945072*^9, 3.826185687859961*^9, 3.8261857987837877`*^9, 
   3.8261860395693913`*^9, 3.826187231480541*^9},
 CellLabel->
  "Out[216]=",ExpressionUUID->"087c4e18-75b1-4f1b-9d07-0f44ddb29fc3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"9d525282-df53-4b24-8997-\
d68f9f599f19"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"24e926f4-03ef-423b-a275-874e2ea7026f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823437205329228*^9, 3.826027998129552*^9, 3.826051546851453*^9, 
   3.8260522481550007`*^9, 3.8260542262552233`*^9, 3.826095791058305*^9, 
   3.826185687983923*^9, 3.8261857988817873`*^9, 3.826186039665844*^9, 
   3.826187231626996*^9},
 CellLabel->
  "During evaluation of \
In[217]:=",ExpressionUUID->"7835716e-3bad-4c75-97ce-e0c7bb1be9b6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"806 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "806 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823437205329228*^9, 3.826027998129552*^9, 3.826051546851453*^9, 
   3.8260522481550007`*^9, 3.8260542262552233`*^9, 3.826095791058305*^9, 
   3.826185687983923*^9, 3.8261857988817873`*^9, 3.826186039665844*^9, 
   3.826187231629134*^9},
 CellLabel->
  "During evaluation of \
In[217]:=",ExpressionUUID->"c4a370d9-ee7d-4286-8e5c-871930b56263"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8234372053364553`*^9, 3.826027998133745*^9, 3.826051546860629*^9, 
   3.826052248166594*^9, 3.826054226260648*^9, 3.8260957910651817`*^9, 
   3.82618568799067*^9, 3.8261857988893957`*^9, 3.826186039672536*^9, 
   3.826187231630183*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"d9ce3af0-ea9c-48d9-a7ed-cabd07ccd11a"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"a3ad3348-b454-4219-b164-21e01d71c4f8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"5cd8efbd-0343-466c-973c-\
ab26624cc957"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.823437608803*^9, 3.823437618694414*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"d8013d73-a4be-493a-acd5-58fec35315de"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.823437205444152*^9, 3.823437619154374*^9, 3.826027998201126*^9, 
   3.8260515469301558`*^9, 3.826052248254979*^9, 3.826054226322803*^9, 
   3.826095791132465*^9, 3.826185688050398*^9, 3.826185798943942*^9, 
   3.826186039726972*^9, 3.826187231653651*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"632d9c06-24ab-48a7-86e4-8a226f3d8ff7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"626eee25-c8a1-401d-91b4-\
ff29e25414bb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"8e7b9bb7-1652-46a4-aaf4-66020a9ccf64"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"05a08f60-3bd0-45eb-ae52-77d7f0677f10"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 7.1 Conformally Flat FRLW", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826188203007469*^9, 
  3.826188235398337*^9}},ExpressionUUID->"5f289549-418e-4f52-9a9c-\
ee760a05ec47"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7pt1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7pt1a", "  ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SuperscriptBox["dt", "2"], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["dx", "2"], "+", 
         SuperscriptBox["dy", "2"], "+", " ", 
         SuperscriptBox["dz", "2"]}], ")"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Eta]", "[", "t", "]"}], " ", "\[Equal]", " ", 
      RowBox[{"Integrate", "[", " ", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], 
         RowBox[{"-", "1"}]], " ", ",", " ", "t"}], " ", "]"}]}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}], " ", "\[Equal]", " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], 
       RowBox[{"2", " "}]]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7pt1a", "   ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187244640789*^9, 3.826187354885397*^9}, {
   3.826187416886042*^9, 3.8261874209798727`*^9}, {3.826187629577284*^9, 
   3.8261876360899057`*^9}, 3.8261882185890007`*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"6b894d00-8afb-471f-aa42-d2d404f9b4fa"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       SuperscriptBox["dt", "2"], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["dx", "2"], "+", 
          SuperscriptBox["dy", "2"], "+", 
          SuperscriptBox["dz", "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]}]},
     {
      RowBox[{
       RowBox[{"\[Eta]", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"\[Integral]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"a", "[", "t", "]"}]], 
         RowBox[{"\[DifferentialD]", "t"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}], "\[Equal]", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.82618735516009*^9, 3.8261874245856*^9, 
  3.8261876369209948`*^9, 3.82618821858926*^9},
 CellLabel->
  "Out[32]//TableForm=",ExpressionUUID->"7a347354-5284-4270-ac39-\
62b0e5883be5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{
    RowBox[{"eq7pt1a", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187357247128*^9, 3.8261873765252028`*^9}, 
   3.826188218589398*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"f2580d39-4761-4568-b0ad-91b5934a0277"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8261873701527147`*^9, 3.826187376820374*^9}, 
   3.826188218589622*^9},
 CellLabel->
  "Out[14]//MatrixForm=",ExpressionUUID->"231f44d4-a426-4527-9fe8-\
a9e1fdd3e572"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"eq7pt1a", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], " ", "/.", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Eta]", "'"}], "[", "t", "]"}], " ", "\[Rule]", " ", 
   RowBox[{"(", 
    FractionBox["d\[Eta]", "dt"], ")"}], " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187431467931*^9, 3.826187468426343*^9}, 
   3.826188218589744*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"841d6df6-cef6-4495-86b4-ff5b875585dd"],

Cell[BoxData[
 RowBox[{
  FractionBox["d\[Eta]", "dt"], "\[Equal]", 
  FractionBox["1", 
   RowBox[{"a", "[", "t", "]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187433094417*^9, 3.8261874693692904`*^9}, 
   3.8261876413529463`*^9, 3.826188218589963*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"deb2868f-31df-453b-b8bd-c337ca55740e"],

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Solve", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"eq7pt1a", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Eta]", "'"}], "[", "t", "]"}], " ", "\[Rule]", " ", 
      RowBox[{"(", 
       FractionBox["d\[Eta]", "dt"], ")"}]}]}], "  ", ",", " ", "dt"}], " ", 
   "]"}], " ", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187477563221*^9, 3.826187504955048*^9}, 
   3.826188218590042*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"84769d92-a5cf-4127-a64d-749b99b7a9d4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"dt", "\[Rule]", 
   RowBox[{"d\[Eta]", " ", 
    RowBox[{"a", "[", "t", "]"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187497559965*^9, 3.826187505777985*^9}, 
   3.826187657307548*^9, 3.826188218590126*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"eb306b79-b8d8-427c-9455-1b542c4777dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eq7pt1a", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"a", "[", "t", "]"}]}], "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187518578771*^9, 3.8261875336047497`*^9}, 
   3.826188218590233*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"3b6468c9-610d-4d9b-a48e-22c2bde16626"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", "t", "]"}], "\[Rule]", 
  SqrtBox[
   RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187519593217*^9, 3.826187533858184*^9}, {
   3.826187648229703*^9, 3.8261876512067413`*^9}, 3.826188218590378*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"1912fd10-3ed3-4f8b-876f-da1ea764da8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"eq7pt1a", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], " ", "/.", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Eta]", "'"}], "[", "t", "]"}], " ", "\[Rule]", " ", 
       RowBox[{"(", 
        FractionBox["d\[Eta]", "dt"], ")"}]}]}], "  ", ",", " ", "dt"}], " ", 
    "]"}], " ", "]"}], " ", "/.", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"eq7pt1a", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"a", "[", "t", "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187604914867*^9, 3.826187606258243*^9}, 
   3.826187681856564*^9, 3.826188218590515*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"017003e8-38f5-407b-9dff-0599dae55d7b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"dt", "\[Rule]", 
   RowBox[{"d\[Eta]", " ", 
    SqrtBox[
     RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]]}]}], "}"}]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8261876827240953`*^9, 3.826188218590661*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"c3af5ea2-8d89-4cef-af3a-00dfc81644cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq7pt1a", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq7pt1a", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"eq7pt1a", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"a", "[", "t", "]"}]}], "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq7pt1b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq7pt1b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"eq7pt1a", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"eq7pt1a", "[", 
            RowBox[{"[", "3", "]"}], "]"}], ",", 
           RowBox[{"a", "[", "t", "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"eq7pt1a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], " ", "/.", 
            " ", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "'"}], "[", "t", "]"}], " ", "\[Rule]", " ", 
             RowBox[{"(", 
              FractionBox["d\[Eta]", "dt"], ")"}]}]}], "  ", ",", " ", "dt"}],
           " ", "]"}], " ", "]"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"eq7pt1a", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"a", "[", "t", "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], " ", ")"}]}], " ", ")"}], " ", ",",
     " ", 
    RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187548915761*^9, 3.8261875750417023`*^9}, {
   3.826187696801807*^9, 3.826187746848675*^9}, 3.826188218590865*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"707d404f-3791-4011-9f87-62ea1dae752f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dt", "2"], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8261875467572527`*^9, 3.82618756530361*^9}, {
   3.826187705113884*^9, 3.826187747218408*^9}, 3.826188218590954*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"1fa6ce5f-3f68-4e9f-ad52-603dddfa8f53"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dt", "2"], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8261875467572527`*^9, 3.82618756530361*^9}, {
   3.826187705113884*^9, 3.8261877472208443`*^9}, 3.8261882185910463`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"537f30f1-d16c-45a3-9a5f-5e68e3f58873"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dx", "2"]}], "-", 
    SuperscriptBox["dy", "2"], "-", 
    SuperscriptBox["dz", "2"], "+", 
    SuperscriptBox["d\[Eta]", "2"]}], ")"}], " ", 
  RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8261875467572527`*^9, 3.82618756530361*^9}, {
   3.826187705113884*^9, 3.82618774722307*^9}, 3.82618821859118*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"1167437a-0ad1-4aee-8fb9-f91915d6e2a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "metric7pt1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Maybe", " ", "try", " ", "making", " ", "this", " ", "spherically", " ", 
    "symmetric", " ", "and", " ", "separating", " ", "out", " ", "wave", " ", 
    "equation", " ", "as", " ", "in", " ", "example", " ", 
    RowBox[{"documentation", "?"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric7pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq7pt1b", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"d\[Eta]", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric7pt1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187753254251*^9, 3.826187786932871*^9}, 
   3.826188218591297*^9, {3.826188412235257*^9, 3.826188441457925*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"cfb20453-f834-493f-978d-d3db3adcb844"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826187765907495*^9, 3.8261877873923273`*^9}, 
   3.826188218591441*^9, 3.826188441880364*^9},
 CellLabel->
  "Out[114]//MatrixForm=",ExpressionUUID->"fef52f0c-5d0e-4763-bdef-\
311ba04ff454"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 7.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.826188238806609*^9, 
  3.8261882599422703`*^9}},ExpressionUUID->"0f0d0e96-618d-4aaf-a9c2-\
635b70a53f23"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.82618808448907*^9, 
   3.8261880979127617`*^9}, 3.826188246090951*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"4e0eb56e-5fe7-4384-9c47-94822e67be12"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "1.17", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric7pt1\>\"", ",", " ", "metric7pt1", ",", " ", 
     "\"\<FlatFLRW\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(frlw\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"\[Eta]", ",", "x", ",", "y", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881134882107`*^9, 
   3.826188182894907*^9}, 3.826188246091243*^9},
 CellLabel->"In[84]:=",ExpressionUUID->"4384d786-341d-47f9-b55f-96fda3f06726"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.430325`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.826188141558408*^9, 3.826188185220209*^9, 
  3.8261882460913963`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"26520343-78bb-4e06-8f60-1ec4892acbf5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.826188246091609*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"e2332a61-ce16-4416-bb36-15de23cc41ca"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "frlw"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702107763`*^9, 3.826188187891799*^9}, 
   3.826188246091732*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"4d623f4c-e7fc-48d8-8d68-b04edf9df18d"],

Cell[BoxData["\<\"FlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702107763`*^9, 3.8261881878944273`*^9}, 
   3.82618824609186*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"0bf25b1d-5392-425d-a9dc-2da173fe83ff"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702107763`*^9, 3.82618818789639*^9}, 
   3.826188246091948*^9},
 CellLabel->
  "Out[87]//TraditionalForm=",ExpressionUUID->"0a26fd1c-3216-4bd9-aca3-\
381c006a97a1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.826188246092155*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"6dc0e4f6-8acf-49d0-b3aa-844a8d21f5c9"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702733603`*^9, 3.826188187948009*^9}, 
   3.826188246092284*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"4e10b38d-c1bc-4499-9376-30f7ab6323cb"],

Cell[BoxData["\<\"ChristoffelSymbolFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702733603`*^9, 3.826188187954335*^9}, 
   3.8261882460924177`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"de6442d9-c2c0-4597-be70-a574ff5d52b9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}
          },
          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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}
          },
          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[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261881702733603`*^9, 3.8261881879664993`*^9}, 
   3.826188246092505*^9},
 CellLabel->
  "Out[90]//TraditionalForm=",ExpressionUUID->"02b2f7d3-b2bc-43a2-a627-\
f0b687a9084e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.8261882460927143`*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"7d3ae7a7-4576-4e55-ac3d-35bc5c6354cd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.82618817029559*^9, 3.826188187999507*^9}, 
   3.826188246092853*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"a454a420-de10-428c-a192-56e4a5fb4a12"],

Cell[BoxData["\<\"RiemannTensorFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.82618817029559*^9, 3.826188188005249*^9}, 
   3.82618824609298*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"72315a35-971c-4724-9d62-9ec91b21bda1"],

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", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], ")"}]}], 
           "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], ")"}]}], 
           "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], 
             ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], ")"}]}], 
           "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[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}], "0"},
          {"0", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "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[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "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", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], ")"}]}], 
           "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}], "0", 
           "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}]},
          {"0", "0", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "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", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Eta]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Eta]"}],
                  MultilineFunction->None], ")"}], "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], ")"}]}], 
           "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}], "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", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
               RowBox[{"\[PartialD]", "\[Eta]"}],
               MultilineFunction->None], ")"}], "2"], 
            RowBox[{"4", " ", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
                RowBox[{"\[PartialD]", "\[Eta]"}],
                MultilineFunction->None], ")"}], "2"], 
             RowBox[{"4", " ", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.82618817029559*^9, 3.82618818808762*^9}, 
   3.826188246093073*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"c5343af7-43ed-447b-8aac-\
2fa706569fe8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.826188246093292*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"af4a1f45-a585-4af1-881a-837518476b6c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170365674*^9, 3.8261881881009407`*^9}, 
   3.8261882460934467`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"ff98a2d1-2c25-4882-8cc1-9f13b89148a3"],

Cell[BoxData["\<\"RicciTensorFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170365674*^9, 3.826188188105031*^9}, 
   3.8261882460935698`*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"ef4f6940-3d43-4c2b-9af5-9183c0374661"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
              RowBox[{"\[PartialD]", "\[Eta]"}],
              MultilineFunction->None], ")"}], "2"], "-", 
           RowBox[{
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Eta]", "2"]}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]], "0", 
       "0", "0"},
      {"0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Eta]", "2"]}],
         MultilineFunction->None], 
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Eta]", "2"]}],
         MultilineFunction->None], 
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Eta]", "2"]}],
         MultilineFunction->None], 
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170365674*^9, 3.826188188107538*^9}, 
   3.8261882460936737`*^9},
 CellLabel->
  "Out[96]//TraditionalForm=",ExpressionUUID->"1bc3c04d-57e6-43cd-a751-\
4fcec23663db"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.826188246093871*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"65db5d46-8709-418b-a93f-37f16a78e4dc"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170381423*^9, 3.826188188137026*^9}, 
   3.8261882460940247`*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"a730bd24-8365-410f-a351-0a6f2aa1a506"],

Cell[BoxData["\<\"RicciScalarFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170381423*^9, 3.826188188140956*^9}, 
   3.82618824609416*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"faeb421e-a086-4e65-9c97-a421b15bf13b"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"3", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
          RowBox[{"\[PartialD]", "\[Eta]"}],
          MultilineFunction->None], ")"}], "2"], "-", 
       RowBox[{"2", " ", 
        RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Eta]", "2"]}],
         MultilineFunction->None]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "3"]}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170381423*^9, 3.8261881881429653`*^9}, 
   3.8261882460942793`*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"68ada9ea-d950-40a2-acf6-\
117e87b653e9"],

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",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.826188246094493*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"c67f9f79-3fdb-40f5-88af-14661ee7eaf7"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.826188170415525*^9, 3.826188188153062*^9}, 3.8261882460946493`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"e6f56138-1aba-47eb-9755-0f423599b900"],

Cell[BoxData["\<\"KretschmannScalarFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.826188170415525*^9, 3.826188188157167*^9}, 3.826188246094783*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"f64e562e-8e53-40a7-98dd-92856023ebcc"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"3", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"8", " ", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Eta]", "2"]}],
          MultilineFunction->None], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Eta]"}],
            MultilineFunction->None], ")"}], "2"]}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Eta]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"5", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
           RowBox[{"\[PartialD]", "\[Eta]"}],
           MultilineFunction->None], ")"}], "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "6"]}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.826188170415525*^9, 3.826188188159397*^9}, 3.826188246094887*^9},
 CellLabel->
  "Out[102]//TraditionalForm=",ExpressionUUID->"2cf1155e-7906-4343-846c-\
38f1c879b7e2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.826188246095087*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"96e3d72e-3966-4b91-89a1-c4f357100316"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.8261881704312687`*^9, 3.826188188188239*^9}, 
   3.8261882460952473`*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"2c02fbc2-3260-4c72-b6c6-c3e29db1f05b"],

Cell[BoxData["\<\"EinsteinTensorFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.8261881704312687`*^9, 3.826188188193162*^9}, 
   3.8261882460953693`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"175acabf-ecd1-4b82-9e57-9f63f0384dc7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
            RowBox[{"\[PartialD]", "\[Eta]"}],
            MultilineFunction->None], ")"}], "2"]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]], "0", 
       "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
             RowBox[{"\[PartialD]", "\[Eta]"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Eta]", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]], "0", 
       "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
             RowBox[{"\[PartialD]", "\[Eta]"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Eta]", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
             RowBox[{"\[PartialD]", "\[Eta]"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Eta]", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.8261881704312687`*^9, 3.826188188196167*^9}, 
   3.826188246095462*^9},
 CellLabel->
  "Out[105]//TraditionalForm=",ExpressionUUID->"0728e732-92f0-4336-9f97-\
518f26ca3f06"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.8261882460956573`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"d1a27df9-c966-41c8-a23c-b4b6c456d97e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170475993*^9, 3.8261881882079983`*^9}, 
   3.826188246095796*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"0e93ea5f-d40f-4e16-a876-3c283382d181"],

Cell[BoxData["\<\"WeylTensorFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170475993*^9, 3.826188188211916*^9}, 
   3.826188246095932*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"460e8be9-4db3-4317-9538-c4ed14ada2cb"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 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.826188170475993*^9, 3.826188188248375*^9}, 
   3.826188246096036*^9},
 CellLabel->
  "Out[108]//TraditionalForm=",ExpressionUUID->"e982dabf-1811-4a30-9db5-\
b052c105d694"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.8261882460962553`*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"3110107e-f2dc-4b9a-b1fc-5a9e84b57bbd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8261881705206203`*^9, 3.82618818826018*^9}, 
   3.826188246096404*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"0dccb600-a773-4c92-8361-e634681d66c4"],

Cell[BoxData["\<\"CottonTensorFlatFLRW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8261881705206203`*^9, 3.826188188264114*^9}, 
   3.8261882460965443`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"24077452-2078-4b6f-ab5f-45c761368376"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8261881705206203`*^9, 3.826188188292645*^9}, 
   3.826188246096642*^9},
 CellLabel->
  "Out[111]//TraditionalForm=",ExpressionUUID->"a33bf021-57fe-4b5f-ad05-\
c7920dac9bfc"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Maybe", " ", "try", " ", "making", " ", "this", " ", "spherically", " ", 
    "symmetric", " ", "and", " ", "separating", " ", "out", " ", "wave", " ", 
    "equation", " ", "as", " ", "in", " ", "example", " ", 
    RowBox[{"documentation", "?"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
   RowBox[{"phi", "=", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[Phi]\>\""}], "}"}], ",", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"\[Phi]", "[", 
       RowBox[{"\[Eta]", ",", "x"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.826188481578532*^9, 3.826188509470331*^9}, {
  3.826189427801818*^9, 3.826189443583827*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"9772be52-7d88-4f30-9407-e9af4dc5b2ab"],

Cell[BoxData[
 TagBox["\<\"\[Phi]\"\>",
  DisplayForm]], "Output",
 CellChangeTimes->{3.826189444137987*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"e2811d0e-3d69-4a44-b7fb-f844c1ac6abd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6pt2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"MergeTensors", "[", 
       RowBox[{"CovariantD", "[", 
        RowBox[{"phi", ",", "\[Alpha]", ",", 
         RowBox[{"-", "\[Alpha]"}]}], "]"}], "]"}], "]"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        SuperscriptBox["m", "2"], "+", " ", 
        RowBox[{"\[Xi]", " ", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], " ", ")"}], " ", 
      "phi"}]}], "   ", "//", " ", "Expand"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt2", "  ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.8261883551661882`*^9, 3.8261883679967737`*^9}, {
  3.8261889957986403`*^9, 3.826189049704812*^9}, {3.826189484535112*^9, 
  3.826189492605381*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"52b182e5-f610-4eef-a5d2-172c66d2ea84"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["x", "2"]}],
      MultilineFunction->None], 
     RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], "+", 
   FractionBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Phi]", "(", 
       RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["\[Eta]", "2"]}],
     MultilineFunction->None], 
    RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "+", 
   FractionBox[
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
      RowBox[{"\[PartialD]", "\[Eta]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Eta]"}],
      MultilineFunction->None]}], 
    SuperscriptBox[
     RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]], "-", 
   FractionBox[
    RowBox[{"3", " ", "\[Xi]", " ", 
     FormBox[
      TagBox["\<\"\[Phi]\"\>",
       DisplayForm],
      TraditionalForm], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Eta]", "2"]}],
      MultilineFunction->None]}], 
    SuperscriptBox[
     RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"3", " ", "\[Xi]", " ", 
     FormBox[
      TagBox["\<\"\[Phi]\"\>",
       DisplayForm],
      TraditionalForm], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
        RowBox[{"\[PartialD]", "\[Eta]"}],
        MultilineFunction->None], ")"}], "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "3"]}]], "+", 
   RowBox[{
    SuperscriptBox["m", "2"], " ", 
    FormBox[
     TagBox["\<\"\[Phi]\"\>",
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.82618902912364*^9, 3.826189050706353*^9}, 
   3.8261894478272667`*^9, 3.8261894932666407`*^9},
 CellLabel->
  "Out[136]//TraditionalForm=",ExpressionUUID->"49b7137c-ab37-4524-82a1-\
385c4db827f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eq6pt2", " ", "/.", " ", 
   RowBox[{"\[Xi]", "\[Rule]", " ", 
    RowBox[{"1", "/", "6"}]}]}], "  ", "//", " ", "pdConv"}]], "Input",
 CellChangeTimes->{{3.826189505797842*^9, 3.82618951991573*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"a89068e0-de58-477f-bb25-4e630ca7609a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["x", "2"]}],
      MultilineFunction->None], 
     RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]]}], "+", 
   FractionBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Phi]", "(", 
       RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["\[Eta]", "2"]}],
     MultilineFunction->None], 
    RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]], "+", 
   FractionBox[
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
      RowBox[{"\[PartialD]", "\[Eta]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"\[Eta]", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Eta]"}],
      MultilineFunction->None]}], 
    SuperscriptBox[
     RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]], "-", 
   FractionBox[
    RowBox[{
     FormBox[
      TagBox["\<\"\[Phi]\"\>",
       DisplayForm],
      TraditionalForm], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Eta]", "2"]}],
      MultilineFunction->None]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     FormBox[
      TagBox["\<\"\[Phi]\"\>",
       DisplayForm],
      TraditionalForm], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}]}], 
        RowBox[{"\[PartialD]", "\[Eta]"}],
        MultilineFunction->None], ")"}], "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptCapitalC]", "(", "\[Eta]", ")"}], "3"]}]], "+", 
   RowBox[{
    SuperscriptBox["m", "2"], " ", 
    FormBox[
     TagBox["\<\"\[Phi]\"\>",
      DisplayForm],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8261895142111263`*^9, 3.826189520398109*^9}},
 CellLabel->
  "Out[138]//TraditionalForm=",ExpressionUUID->"8d454729-f359-40d2-9732-\
b01f596c03b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9pt6", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq9pt6", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"4", " ", "\[Pi]", " ", "t"}], ")"}], 
    FractionBox[
     RowBox[{"-", "d"}], "2"]], " ", 
   RowBox[{"Exp", "[", 
    FractionBox[
     RowBox[{"-", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], 
     RowBox[{"2", "t"}]], "]"}], " ", 
   RowBox[{"Sum", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "n", "]"}], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      SuperscriptBox["t", "n"]}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.826189725999792*^9, 3.8261898175147753`*^9}, {
  3.826189854543573*^9, 3.82618987254944*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"3cbed842-5ae9-4e86-9f62-415eb37c0679"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{"-", "d"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"2", " ", "t"}]]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "0"}], "\[Infinity]"], 
   RowBox[{
    SuperscriptBox["t", "n"], " ", 
    RowBox[{
     RowBox[{"a", "[", "n", "]"}], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.8261898190871773`*^9, {3.826189856582303*^9, 3.826189873918065*^9}},
 CellLabel->
  "Out[146]=",ExpressionUUID->"ba0dafb8-4f67-4efe-a082-847eb21bd09e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9pt7", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq9pt7", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"4", " ", "\[Pi]", " ", "t"}], ")"}], 
    FractionBox[
     RowBox[{"-", "d"}], "2"]], " ", 
   RowBox[{"Sum", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "n", "]"}], "[", "x", "]"}], " ", 
      SuperscriptBox["t", "n"]}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.8261898368356657`*^9, 3.82618987751089*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"965094d6-d705-42ba-8acc-7de814f29bc6"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{"-", "d"}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "0"}], "\[Infinity]"], 
   RowBox[{
    SuperscriptBox["t", "n"], " ", 
    RowBox[{
     RowBox[{"a", "[", "n", "]"}], "[", "x", "]"}]}]}]}]], "Output",
 CellChangeTimes->{{3.826189865340541*^9, 3.8261898782787933`*^9}},
 CellLabel->
  "Out[148]=",ExpressionUUID->"a0d37725-a578-48a3-a39c-e9e48f273574"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Page", " ", "195", " ", "rewrite", " ", "these", " ", "terms"}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{"eq9pt6", " ", ",", " ", "t"}], " ", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{"eq9pt6", " ", ",", " ", "t"}], " ", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{"eq9pt6", " ", ",", " ", "t"}], " ", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.826189953728827*^9, 3.826190023751709*^9}, {
  3.826190169307087*^9, 
  3.8261901778978024`*^9}},ExpressionUUID->"2397b4f3-b600-4400-83f6-\
5660ca52a182"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["2", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "d"}]]}], " ", "d", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"2", " ", "t"}]]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    FractionBox["d", "2"]}]], " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "0"}], "\[Infinity]"], 
   RowBox[{
    SuperscriptBox["t", "n"], " ", 
    RowBox[{
     RowBox[{"a", "[", "n", "]"}], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{{3.826189963033834*^9, 3.82619002481479*^9}},
 CellLabel->
  "Out[165]=",ExpressionUUID->"306c02a7-c2aa-4050-a8f5-cdcaf56d7c3e"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{
    RowBox[{"-", "1"}], "-", "d"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"2", " ", "t"}]]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "2"}], "-", 
    FractionBox["d", "2"]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "0"}], "\[Infinity]"], 
    RowBox[{
     SuperscriptBox["t", "n"], " ", 
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
  RowBox[{"\[Sigma]", "[", 
   RowBox[{"x", ",", "y"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.826189963033834*^9, 3.826190024819512*^9}},
 CellLabel->
  "Out[166]=",ExpressionUUID->"b115b0e4-2848-4e4a-92fb-984bce61e176"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{"-", "d"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"2", " ", "t"}]]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "d"}], "/", "2"}]], " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "0"}], "\[Infinity]"], 
   RowBox[{"n", " ", 
    SuperscriptBox["t", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "n"}]], " ", 
    RowBox[{
     RowBox[{"a", "[", "n", "]"}], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{{3.826189963033834*^9, 3.826190024822391*^9}},
 CellLabel->
  "Out[167]=",ExpressionUUID->"b5ae75a0-b143-4e0b-910b-1fbd6090446f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9pt22", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq9pt22", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"MergeTensors", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "[", 
        RowBox[{
        "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Delta]"}], "]"}], 
       RowBox[{
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "[", 
        RowBox[{
         RowBox[{"-", "\[Alpha]"}], ",", 
         RowBox[{"-", "\[Beta]"}], ",", 
         RowBox[{"-", "\[Gamma]"}], ",", 
         RowBox[{"-", "\[Delta]"}]}], "]"}]}], "]"}], "]"}], "+", "\n", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", "4"}], ")"}], "*", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"MergeTensors", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "[", 
         RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "[", 
         RowBox[{
          RowBox[{"-", "\[Alpha]"}], ",", 
          RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "]"}]}], "+", "\n", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "]"}], ")"}], "2"]}], " ", "//", " ", 
   "Expand", " "}]}]}], "Input",
 CellChangeTimes->{{3.826190301649654*^9, 3.826190417477252*^9}, {
  3.826190496634931*^9, 3.826190535499433*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"8a352ba7-24fb-43ac-84ef-b0fd49df36d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "\[Eta]", "]"}], "4"]}], 
    SuperscriptBox[
     RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}], "6"]]}], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
       MultilineFunction->None], "[", "\[Eta]", "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "\[Eta]", "]"}]}], 
   SuperscriptBox[
    RowBox[{"\[ScriptCapitalC]", "[", "\[Eta]", "]"}], "5"]]}]], "Output",
 CellChangeTimes->{{3.826190519275413*^9, 3.826190536919332*^9}},
 CellLabel->
  "Out[181]=",ExpressionUUID->"c3417f10-872f-4f70-8cc7-c666b511af66"]
}, Open  ]]
},
WindowSize->{1276, 755},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"da221f52-4fac-4a3e-8d92-98de9a81d280"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 946, 14, 159, "Title",ExpressionUUID->"5181d870-3178-4183-906f-9f504b674666",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1529, 38, 648, 12, 76, "Author",ExpressionUUID->"57c6e755-e937-4060-bf38-b82737cf7e46",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2192, 53, 557, 13, 63, "Input",ExpressionUUID->"e0a4aa8c-f3ea-4d81-bc98-f7a82db393ef"],
Cell[CellGroupData[{
Cell[2774, 70, 228, 4, 69, "Section",ExpressionUUID->"a3674fe3-55f1-45dd-a3cf-718bb721398a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3005, 76, 438, 10, 63, "Input",ExpressionUUID->"668e4449-b8db-487a-9504-84abfadfd512",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3446, 88, 1087, 18, 43, "Output",ExpressionUUID->"d4873bb5-e1d3-4d56-aa95-ac57ba13c85a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4570, 111, 591, 10, 55, "Section",ExpressionUUID->"83644d27-5f7d-4c94-9cde-beeaef028186",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5164, 123, 644, 11, 63, "Input",ExpressionUUID->"4a0439b7-9959-4427-a6f7-e4c11cf9ebaf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5811, 136, 887, 14, 43, "Output",ExpressionUUID->"2e718551-3f7d-441d-91ad-0a6a2ace2157",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6701, 152, 588, 11, 84, "Input",ExpressionUUID->"d30244db-1aad-45f3-b9f0-016e42d4c5c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7292, 165, 1131, 20, 43, "Output",ExpressionUUID->"087c4e18-75b1-4f1b-9d07-0f44ddb29fc3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[8460, 190, 228, 4, 55, "Section",ExpressionUUID->"9d525282-df53-4b24-8997-d68f9f599f19",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8691, 196, 1645, 45, 189, "Input",ExpressionUUID->"24e926f4-03ef-423b-a275-874e2ea7026f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10339, 243, 1313, 23, 24, "Print",ExpressionUUID->"7835716e-3bad-4c75-97ce-e0c7bb1be9b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11655, 268, 1332, 24, 24, "Print",ExpressionUUID->"c4a370d9-ee7d-4286-8e5c-871930b56263",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12990, 294, 1533, 25, 63, "Output",ExpressionUUID->"d9ce3af0-ea9c-48d9-a7ed-cabd07ccd11a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14526, 321, 246, 4, 41, "Input",ExpressionUUID->"a3ad3348-b454-4219-b164-21e01d71c4f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14809, 330, 240, 4, 55, "Section",ExpressionUUID->"5cd8efbd-0343-466c-973c-ab26624cc957",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15052, 336, 2714, 61, 441, "Input",ExpressionUUID->"d8013d73-a4be-493a-acd5-58fec35315de",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[17769, 399, 2568, 76, 339, "Output",ExpressionUUID->"632d9c06-24ab-48a7-86e4-8a226f3d8ff7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20374, 480, 362, 6, 55, "Section",ExpressionUUID->"626eee25-c8a1-401d-91b4-ff29e25414bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[20739, 488, 1659, 41, 126, "Input",ExpressionUUID->"8e7b9bb7-1652-46a4-aaf4-66020a9ccf64",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22401, 531, 1055, 26, 84, "Input",ExpressionUUID->"05a08f60-3bd0-45eb-ae52-77d7f0677f10",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[23493, 562, 249, 4, 55, "Section",ExpressionUUID->"5f289549-418e-4f52-9a9c-ee760a05ec47",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23745, 568, 1498, 36, 176, "Input",ExpressionUUID->"6b894d00-8afb-471f-aa42-d2d404f9b4fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25246, 606, 1428, 44, 103, "Output",ExpressionUUID->"7a347354-5284-4270-ac39-62b0e5883be5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26677, 652, 515, 12, 41, "Input",ExpressionUUID->"f2580d39-4761-4568-b0ad-91b5934a0277",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27195, 666, 1056, 32, 109, "Output",ExpressionUUID->"231f44d4-a426-4527-9fe8-a9e1fdd3e572",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28254, 700, 552, 14, 60, "Input",ExpressionUUID->"841d6df6-cef6-4495-86b4-ff5b875585dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28809, 716, 387, 8, 60, "Output",ExpressionUUID->"deb2868f-31df-453b-b8bd-c337ca55740e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29199, 726, 697, 18, 60, "Input",ExpressionUUID->"84769d92-a5cf-4127-a64d-749b99b7a9d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29899, 746, 388, 8, 41, "Output",ExpressionUUID->"eb306b79-b8d8-427c-9455-1b542c4777dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30290, 756, 492, 12, 41, "Input",ExpressionUUID->"3b6468c9-610d-4d9b-a48e-22c2bde16626",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30785, 770, 420, 8, 43, "Output",ExpressionUUID->"1912fd10-3ed3-4f8b-876f-da1ea764da8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31208, 780, 1011, 27, 60, "Input",ExpressionUUID->"017003e8-38f5-407b-9dff-0599dae55d7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32222, 809, 378, 9, 45, "Output",ExpressionUUID->"c3af5ea2-8d89-4cef-af3a-00dfc81644cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32603, 820, 2453, 64, 231, "Input",ExpressionUUID->"707d404f-3791-4011-9f87-62ea1dae752f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35059, 886, 569, 14, 44, "Output",ExpressionUUID->"1fa6ce5f-3f68-4e9f-ad52-603dddfa8f53",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35631, 902, 568, 13, 44, "Output",ExpressionUUID->"537f30f1-d16c-45a3-9a5f-5e68e3f58873",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36202, 917, 571, 13, 44, "Output",ExpressionUUID->"1167437a-0ad1-4aee-8fb9-f91915d6e2a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36776, 932, 1040, 22, 105, "Input",ExpressionUUID->"cfb20453-f834-493f-978d-d3db3adcb844",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37819, 956, 1105, 30, 105, "Output",ExpressionUUID->"fef52f0c-5d0e-4763-bdef-311ba04ff454",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[38961, 991, 235, 4, 55, "Section",ExpressionUUID->"0f0d0e96-618d-4aaf-a9c2-635b70a53f23",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39199, 997, 5727, 130, 714, "Input",ExpressionUUID->"4e0eb56e-5fe7-4384-9c47-94822e67be12",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[44929, 1129, 993, 21, 65, "Input",ExpressionUUID->"4384d786-341d-47f9-b55f-96fda3f06726",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45925, 1152, 309, 6, 41, "Output",ExpressionUUID->"26520343-78bb-4e06-8f60-1ec4892acbf5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46237, 1160, 810, 18, 84, "Input",ExpressionUUID->"e2332a61-ce16-4416-bb36-15de23cc41ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47050, 1180, 593, 12, 45, "Output",ExpressionUUID->"4d623f4c-e7fc-48d8-8d68-b04edf9df18d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47646, 1194, 511, 8, 41, "Output",ExpressionUUID->"0bf25b1d-5392-425d-a9dc-2da173fe83ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[48160, 1204, 1377, 35, 100, "Output",ExpressionUUID->"0a26fd1c-3216-4bd9-aca3-381c006a97a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[49540, 1241, 813, 18, 84, "Input",ExpressionUUID->"6dc0e4f6-8acf-49d0-b3aa-844a8d21f5c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[50356, 1261, 707, 14, 45, "Output",ExpressionUUID->"4e10b38d-c1bc-4499-9376-30f7ab6323cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[51066, 1277, 607, 9, 41, "Output",ExpressionUUID->"de6442d9-c2c0-4597-be70-a574ff5d52b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[51676, 1288, 13394, 381, 400, "Output",ExpressionUUID->"02b2f7d3-b2bc-43a2-a627-f0b687a9084e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[65073, 1671, 812, 18, 84, "Input",ExpressionUUID->"7d3ae7a7-4576-4e55-ac3d-35bc5c6354cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[65888, 1691, 580, 11, 45, "Output",ExpressionUUID->"a454a420-de10-428c-a192-56e4a5fb4a12",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[66471, 1704, 521, 8, 41, "Output",ExpressionUUID->"72315a35-971c-4724-9d62-9ec91b21bda1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[66995, 1714, 24972, 625, 540, "Output",ExpressionUUID->"c5343af7-43ed-447b-8aac-2fa706569fe8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[91970, 2341, 808, 18, 84, "Input",ExpressionUUID->"af4a1f45-a585-4af1-881a-837518476b6c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[92781, 2361, 568, 11, 45, "Output",ExpressionUUID->"ff98a2d1-2c25-4882-8cc1-9f13b89148a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[93352, 2374, 522, 8, 41, "Output",ExpressionUUID->"ef4f6940-3d43-4c2b-9af5-9183c0374661",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[93877, 2384, 3096, 82, 222, "Output",ExpressionUUID->"1bc3c04d-57e6-43cd-a751-4fcec23663db",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[96976, 2468, 810, 18, 84, "Input",ExpressionUUID->"65db5d46-8709-418b-a93f-37f16a78e4dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[97789, 2488, 531, 10, 41, "Output",ExpressionUUID->"a730bd24-8365-410f-a351-0a6f2aa1a506",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98323, 2500, 521, 8, 41, "Output",ExpressionUUID->"faeb421e-a086-4e65-9c97-a421b15bf13b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98847, 2510, 1426, 37, 86, "Output",ExpressionUUID->"68ada9ea-d950-40a2-acf6-117e87b653e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100276, 2549, 745, 18, 84, "Input",ExpressionUUID->"c67f9f79-3fdb-40f5-88af-14661ee7eaf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101024, 2569, 361, 8, 41, "Output",ExpressionUUID->"e6f56138-1aba-47eb-9755-0f423599b900",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101388, 2579, 358, 6, 41, "Output",ExpressionUUID->"f64e562e-8e53-40a7-98dd-92856023ebcc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101749, 2587, 2061, 55, 88, "Output",ExpressionUUID->"2cf1155e-7906-4343-846c-38f1c879b7e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[103813, 2644, 796, 19, 84, "Input",ExpressionUUID->"96e3d72e-3966-4b91-89a1-c4f357100316",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[104612, 2665, 502, 11, 45, "Output",ExpressionUUID->"2c02fbc2-3260-4c72-b6c6-c3e29db1f05b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[105117, 2678, 461, 8, 41, "Output",ExpressionUUID->"175acabf-ecd1-4b82-9e57-9f63f0384dc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[105581, 2688, 4021, 107, 218, "Output",ExpressionUUID->"0728e732-92f0-4336-9f97-518f26ca3f06",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[109605, 2797, 863, 20, 84, "Input",ExpressionUUID->"d1a27df9-c966-41c8-a23c-b4b6c456d97e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[110471, 2819, 585, 12, 45, "Output",ExpressionUUID->"0e93ea5f-d40f-4e16-a876-3c283382d181",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111059, 2833, 522, 9, 41, "Output",ExpressionUUID->"460e8be9-4db3-4317-9538-c4ed14ada2cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111584, 2844, 9665, 252, 308, "Output",ExpressionUUID->"e982dabf-1811-4a30-9db5-b052c105d694",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[121252, 3098, 723, 18, 84, "Input",ExpressionUUID->"3110107e-f2dc-4b9a-b1fc-5a9e84b57bbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[121978, 3118, 337, 8, 45, "Output",ExpressionUUID->"0dccb600-a773-4c92-8361-e634681d66c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[122318, 3128, 289, 5, 41, "Output",ExpressionUUID->"24077452-2078-4b6f-ab5f-45c761368376",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[122610, 3135, 9636, 296, 308, "Output",ExpressionUUID->"a33bf021-57fe-4b5f-ad05-c7920dac9bfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[132283, 3436, 966, 22, 81, "Input",ExpressionUUID->"9772be52-7d88-4f30-9407-e9af4dc5b2ab"],
Cell[133252, 3460, 191, 5, 41, "Output",ExpressionUUID->"e2811d0e-3d69-4a44-b7fb-f844c1ac6abd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133480, 3470, 1079, 26, 107, "Input",ExpressionUUID->"52b182e5-f610-4eef-a5d2-172c66d2ea84"],
Cell[134562, 3498, 2606, 80, 86, "Output",ExpressionUUID->"49b7137c-ab37-4524-82a1-385c4db827f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137205, 3583, 317, 7, 41, "Input",ExpressionUUID->"a89068e0-de58-477f-bb25-4e630ca7609a"],
Cell[137525, 3592, 2536, 80, 86, "Output",ExpressionUUID->"8d454729-f359-40d2-9732-b01f596c03b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140098, 3677, 978, 28, 102, "Input",ExpressionUUID->"3cbed842-5ae9-4e86-9f62-415eb37c0679"],
Cell[141079, 3707, 839, 27, 65, "Output",ExpressionUUID->"ba0dafb8-4f67-4efe-a082-847eb21bd09e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141955, 3739, 728, 20, 94, "Input",ExpressionUUID->"965094d6-d705-42ba-8acc-7de814f29bc6"],
Cell[142686, 3761, 607, 19, 65, "Output",ExpressionUUID->"a0d37725-a578-48a3-a39c-e9e48f273574"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143330, 3785, 835, 21, 105, "Input",ExpressionUUID->"2397b4f3-b600-4400-83f6-5660ca52a182"],
Cell[144168, 3808, 890, 29, 65, "Output",ExpressionUUID->"306c02a7-c2aa-4050-a8f5-cdcaf56d7c3e"],
Cell[145061, 3839, 960, 31, 67, "Output",ExpressionUUID->"b115b0e4-2848-4e4a-92fb-984bce61e176"],
Cell[146024, 3872, 870, 28, 65, "Output",ExpressionUUID->"b5ae75a0-b143-4e0b-910b-1fbd6090446f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146931, 3905, 1728, 46, 126, "Input",ExpressionUUID->"8a352ba7-24fb-43ac-84ef-b0fd49df36d1"],
Cell[148662, 3953, 891, 24, 64, "Output",ExpressionUUID->"c3417f10-872f-4f70-8cc7-c666b511af66"]
}, Open  ]]
}
]
*)