Simple example for perturbations within GR and BD.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    129615,       3835]
NotebookOptionsPosition[    114715,       3634]
NotebookOutlinePosition[    115135,       3651]
CellTagsIndexPosition[    115092,       3648]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["FTeV usage example", "Title",
 CellChangeTimes->{{3.844797980064087*^9, 3.84479799623921*^9}, {
  3.848701239820629*^9, 
  3.848701245310186*^9}},ExpressionUUID->"802d2333-dac9-4242-8f34-\
44007c3482fe"],

Cell["\<\
Using FTeV for computing perturbations within General Relativity and \
Brans-Dicke\
\>", "Subtitle",
 CellChangeTimes->{{3.844798015714377*^9, 3.844798046417861*^9}, {
  3.844798634894075*^9, 3.8447986530752697`*^9}, {3.848701252240885*^9, 
  3.848701267393819*^9}},ExpressionUUID->"7be74280-c356-4981-9fcc-\
bd68705aa55e"],

Cell["Davi C. Rodrigues", "Author",
 CellChangeTimes->{{3.844798099252222*^9, 
  3.844798101299684*^9}},ExpressionUUID->"9fd97147-d2a2-4d3f-b9ec-\
d144c0d84f40"],

Cell[CellGroupData[{

Cell["Starting...", "Section",
 CellChangeTimes->{{3.844798126231683*^9, 3.844798130956996*^9}, {
  3.848701273300066*^9, 
  3.848701274470083*^9}},ExpressionUUID->"4553eade-54a0-4d8d-85c3-\
15ace1120300"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FTeV`"}]], "Input",
 CellChangeTimes->{{3.798737641987597*^9, 3.798737663285014*^9}, {
  3.798908145387265*^9, 3.798908170162689*^9}, {3.844797444879881*^9, 
  3.8447974580985107`*^9}},
 CellLabel->
  "(Local2) In[1]:=",ExpressionUUID->"d52121a8-d085-4b07-9f49-4259fe44d831"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Fast Tensors eValuation\"\>",
    StripOnInput->False,
    FontWeight->Bold], "\[InvisibleSpace]", "\<\" v.0.13.2\"\>", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   StyleBox["\<\"(2021.12.17 00:28:18)\"\>",
    StripOnInput->False,
    FontSize->9]}],
  SequenceForm[
   Style["Fast Tensors eValuation", Bold], " v.0.13.2", " ", 
   Style["(2021.12.17 00:28:18)", 9]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.844797458674621*^9, {3.848701288217287*^9, 3.8487013172501698`*^9}, 
   3.852576783297001*^9},
 CellLabel->
  "During evaluation of (Local2) \
In[1]:=",ExpressionUUID->"40834afd-6b3b-48c6-afda-12ce10ebbf37"],

Cell[BoxData["\<\"Help: Start by defining $Coordinates (coordinates names \
vector) and $Metric (the metric matrix).\"\>"], "Print",
 CellChangeTimes->{
  3.844797458674621*^9, {3.848701288217287*^9, 3.8487013172501698`*^9}, 
   3.852576783302163*^9},
 CellLabel->
  "During evaluation of (Local2) \
In[1]:=",ExpressionUUID->"ce1a0ecf-a4f7-4202-ae34-fbdf873dca29"],

Cell[BoxData["\<\"Use tensorEvaluate[\\\"X\\\"] or tev[\\\"X\\\"] to compute \
X, where X can be: \\n * \\\"Chr\\\" for Christoffel symbol, \\n * \
\\\"Riemann\\\" for Riemann tensor, \\n * \\\"Ricci\\\" for Ricci tensor, \\n \
* \\\"RicciS\\\" for Ricci scalar, \\n * \\\"G\\\" for Einstein tensor, \\n * \
\\\"Weyl\\\" for Weyl tensor, \\n * \\\"Kret\\\" for Kretschmann \
scalar.\"\>"], "Print",
 CellChangeTimes->{
  3.844797458674621*^9, {3.848701288217287*^9, 3.8487013172501698`*^9}, 
   3.8525767833071327`*^9},
 CellLabel->
  "During evaluation of (Local2) \
In[1]:=",ExpressionUUID->"267b7895-b545-45af-9159-6051756180b3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["General Relativity", "Section",
 CellChangeTimes->{{3.800128494072328*^9, 3.800128521848126*^9}, {
   3.800131565365781*^9, 3.800131569215107*^9}, 3.844797468325625*^9, {
   3.844798088102598*^9, 
   3.8447980904760838`*^9}},ExpressionUUID->"908bef5c-e348-4c19-b3a6-\
a8405e88aa9b"],

Cell[TextData[{
 "FTeV introduces two variables to deal with spacetime and space, their names \
are ",
 StyleBox["spacetime", "ExternalLanguage"],
 " and ",
 StyleBox["space", "ExternalLanguage"],
 ". They are shorthand notations for all the \[LineSeparator]coordinate \
names. ",
 StyleBox["TensorPrint", "ExternalLanguage"],
 " hides the space and spacetime coordinates, which is convenient for \
visualization. "
}], "Text",
 CellChangeTimes->{{3.8447982735387383`*^9, 3.844798378610684*^9}, {
   3.848701363256144*^9, 3.848701372999111*^9}, {3.852576530118477*^9, 
   3.85257659338898*^9}, {3.852576664512794*^9, 3.852576732654686*^9}, 
   3.852576787949564*^9},ExpressionUUID->"3df3c8f8-f508-4268-adc3-\
9e352adacc08"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Coordinates", "=", 
   RowBox[{"{", 
    RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$PerturbationSymbol", " ", "=", " ", "\[CurlyEpsilon]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$Metric", " ", "=", " ", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[CurlyEpsilon]", " ", 
         RowBox[{"\[Psi]", "@", "spacetime"}]}]}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"2", " ", "\[CurlyEpsilon]", " ", 
           RowBox[{"\[Chi]", "@", "spacetime"}]}]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"2", " ", "\[CurlyEpsilon]", " ", 
           RowBox[{"\[Chi]", "@", "spacetime"}]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"2", " ", "\[CurlyEpsilon]", " ", 
           RowBox[{"\[Chi]", "@", "spacetime"}]}]}], ")"}]}]}
     }], "\[NoBreak]", ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.798940913183795*^9, 3.798940970625696*^9}},
 CellLabel->
  "(Local2) In[2]:=",ExpressionUUID->"9ad8ae90-4dbb-4a3f-9daf-972fb51a06cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Normal", "@", 
   RowBox[{"FirstOrder", "@", 
    RowBox[{"tev", "[", "\"\<Chr\>\"", "]"}]}]}], " ", "//", " ", 
  "TensorPrint"}]], "Input",
 CellChangeTimes->{{3.798836170359995*^9, 3.798836179558167*^9}, {
  3.79883632281361*^9, 3.798836327772624*^9}, {3.79890659733115*^9, 
  3.798906598269989*^9}, {3.800107189694798*^9, 3.8001072043132753`*^9}, {
  3.844797482311472*^9, 3.8447974906360607`*^9}},
 CellLabel->
  "(Local2) In[5]:=",ExpressionUUID->"b809391c-b937-433f-ad8f-05123f751500"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576791781354*^9},ExpressionUUID->"8137f252-4165-41a2-90e4-\
95497683cff2"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767917989883`*^9},ExpressionUUID->"0d027aa5-4fcd-40b6-92e0-\
85d3fe32b535"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.85257679184927*^9},ExpressionUUID->"84f72ec0-6667-43de-b1ef-c07074b80aef"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767918667507`*^9},ExpressionUUID->"a45572ef-6d5e-4085-95aa-\
76a7ed81bf8d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576791909812*^9},ExpressionUUID->"208e3e4b-aeb7-4e66-be56-\
a1a43b1c6a8b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576791928144*^9},ExpressionUUID->"58a1be54-ed4e-42c1-9fcb-\
275dc8ec0297"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576791972081*^9},ExpressionUUID->"938d7524-319c-419e-abd0-\
bc4971fcd194"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576791989463*^9},ExpressionUUID->"3eef4284-6b59-4094-988f-\
43e40045c2dd"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.85257679203519*^9},ExpressionUUID->"3962a255-5368-4553-8e60-9ccd4447c67b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792054916*^9},ExpressionUUID->"9dc335c9-74ca-4e6e-9561-\
4e0c2d9eebf3"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792097909*^9},ExpressionUUID->"fb56a7b2-75d8-4f5b-8ccd-\
0357a1c0f7ae"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792115038*^9},ExpressionUUID->"93a0d44d-5f53-476a-b422-\
1e8c76a8ae26"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792156279*^9},ExpressionUUID->"a7364bfe-dd5d-465c-9704-\
f78507204cbf"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792173933*^9},ExpressionUUID->"c8c511c4-0e7e-4564-876c-\
6b5fb9c4bd91"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767922171993`*^9},ExpressionUUID->"e4314d97-359c-4753-8c35-\
d6a0f2d0ce71"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792233448*^9},ExpressionUUID->"0486d63d-35aa-4678-a0d3-\
4fcc50ac72ea"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767922788877`*^9},ExpressionUUID->"5fe3810c-8e80-4e1f-91ff-\
4c54c38ba907"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767922958937`*^9},ExpressionUUID->"b20efe2b-8a61-4635-909d-\
74c62a2715f8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792340914*^9},ExpressionUUID->"71dc5ea5-d4ef-4359-8e32-\
4181671820aa"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792357605*^9},ExpressionUUID->"8adbcd1f-890b-4a91-8958-\
c8c02470a9bc"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792402647*^9},ExpressionUUID->"6a955938-68df-47e4-b47b-\
f08d8f167af4"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.85257679242076*^9},ExpressionUUID->"d92b9098-725f-471e-b1ef-f89222f15d8d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.85257679246731*^9},ExpressionUUID->"9dc9c2af-84ea-48e5-a178-fa90a3c3d85a"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792484296*^9},ExpressionUUID->"f034b210-726d-4c61-809a-\
07677e4ca6e2"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767925345907`*^9},ExpressionUUID->"cf3c9675-ad96-4276-8683-\
ba90c36661fa"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792554182*^9},ExpressionUUID->"47639a47-f36d-485b-8845-\
f367b457e286"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792599514*^9},ExpressionUUID->"bb5bfba0-ab93-4866-b4b6-\
f027e46ea80b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792616509*^9},ExpressionUUID->"76f481e3-4dbf-41a7-a7ab-\
eb92d2d1ae5c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792661195*^9},ExpressionUUID->"8b8d6819-31e7-423b-b596-\
ca5e122645a8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767926786003`*^9},ExpressionUUID->"d1d7dce6-d929-45b0-9a57-\
515d66b3ee17"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Psi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792722794*^9},ExpressionUUID->"08d5974c-6088-4e3c-a6b5-\
00a0dfc85c1e"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792740271*^9},ExpressionUUID->"6cf9298d-0d0c-44e1-a2e0-\
9ef3f311f8f8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792786408*^9},ExpressionUUID->"e6e267f2-b0c8-4b37-8f30-\
6d71c4edd4e6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8525767928051157`*^9},ExpressionUUID->"82caa9c7-c78c-4208-9c38-\
34b324ede8ec"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792850841*^9},ExpressionUUID->"5150468b-82f1-448a-aeb8-\
8baf3f1b3081"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792869102*^9},ExpressionUUID->"572ababc-e7e7-4a72-9405-\
33ecee382ed1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792915785*^9},ExpressionUUID->"dd3f7102-e208-4855-8284-\
b7f46a7ad5f5"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792932569*^9},ExpressionUUID->"64acfcc4-87bc-484a-8ed0-\
046df6889c90"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792977002*^9},ExpressionUUID->"84b0cd44-8710-4496-bb84-\
9d5f59d8db76"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.852576792995636*^9},ExpressionUUID->"6e57a8a6-36a9-4779-8068-\
6c6306343f7f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"RicciTensor", " ", "=", " ", 
   RowBox[{"FirstOrder", "@", 
    RowBox[{"tev", "[", "\"\<ricci\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Normal", "@", "RicciTensor"}], " ", "//", " ", 
  "TensorPrint"}]}], "Input",
 CellChangeTimes->{{3.798916939166093*^9, 3.79891697203323*^9}, {
  3.8447975001793833`*^9, 3.844797520169701*^9}, {3.844797555462448*^9, 
  3.844797577537847*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"b34610b8-bb04-464d-b259-fea850b4952b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975780054903`*^9},ExpressionUUID->"1df24a5e-72e8-4ecd-83d6-\
d42376f804a0"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578024086*^9},ExpressionUUID->"77cf82dc-8d15-411f-8bc1-\
c9af0dc3e161"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578087366*^9},ExpressionUUID->"689fdd03-2bd6-417e-b435-\
3b747a1466a6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975781066628`*^9},ExpressionUUID->"c40bb223-7bd4-41a5-8f9b-\
5fe7eed87a0b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975781674223`*^9},ExpressionUUID->"76a62b2c-4bfc-4fc6-bd8e-\
549c67df9e5f"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578188046*^9},ExpressionUUID->"b5dbc7f7-7f4b-4ced-91ce-\
0eeb7b2a9b16"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578247651*^9},ExpressionUUID->"bb7d2cd1-5f9e-4590-ac3f-\
aff7d31e372d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975782711267`*^9},ExpressionUUID->"1e5e8a0b-73f0-4a6c-8116-\
f8a904dd8254"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578335565*^9},ExpressionUUID->"6c99dba6-17d3-4806-8f0a-\
eeecc74d6de8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975783550797`*^9},ExpressionUUID->"b7f19837-f17a-4ee4-899e-\
f8c5cc4bca88"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975784172153`*^9},ExpressionUUID->"2b5a3e55-9d44-488f-b6cd-\
77d4b1100a65"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578440419*^9},ExpressionUUID->"bac29071-094d-4427-9ab5-\
12408e14c5e6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578498433*^9},ExpressionUUID->"cb05a755-5533-4667-a7a4-\
8cae403730d9"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975785189953`*^9},ExpressionUUID->"63a39022-d368-4b3a-9655-\
5b49f0db9adc"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797578584497*^9},ExpressionUUID->"61f01188-c6c6-4343-ba5e-\
42ef90c437d1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447975786048403`*^9},ExpressionUUID->"21d6b15a-eb76-4416-a1e8-\
2c5f82a16873"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"GTensor", "=", 
   RowBox[{"FirstOrder", "@", 
    RowBox[{"tev", "[", "\"\<G\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", 
   RowBox[{"GTensor", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"a", "+", "1"}], ",", 
      RowBox[{"b", "+", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Normal", "@", "GTensor"}], " ", "//", " ", 
  "TensorPrint"}]}], "Input",
 CellChangeTimes->{{3.798834774409037*^9, 3.798834778699657*^9}, 
   3.798835140156535*^9, {3.798835242790324*^9, 3.798835243151478*^9}, {
   3.7988353929078608`*^9, 3.798835394857213*^9}, {3.798906611951178*^9, 
   3.798906612789867*^9}, {3.800187373998458*^9, 3.800187431875967*^9}, {
   3.8001874650843678`*^9, 3.800187466739901*^9}, {3.8001875121542187`*^9, 
   3.800187536455119*^9}, {3.8001875993468018`*^9, 3.800187714667706*^9}, {
   3.800188120553494*^9, 3.800188212806422*^9}, {3.80018827997058*^9, 
   3.8001882921887608`*^9}, {3.8001884991733093`*^9, 3.80018851987396*^9}, {
   3.800188560330639*^9, 3.800188561856483*^9}, {3.8447975277308283`*^9, 
   3.8447975450008*^9}, {3.8447975823361263`*^9, 3.844797615948722*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"9f449812-1a0d-41e1-87ec-bc1ae63aaa5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616282435*^9},ExpressionUUID->"922e8411-a05a-465e-a51c-\
e3fa9698d12b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447976162995367`*^9},ExpressionUUID->"6e17dffa-053c-4eb4-b3c7-\
898f1c145154"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447976163594017`*^9},ExpressionUUID->"6a3ce64f-a0bd-430d-82ac-\
7af30bdacbc6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.84479761638065*^9},ExpressionUUID->"ae765a40-bcdb-49ca-a568-7db5850ce9dc"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616436449*^9},ExpressionUUID->"8a2abc0c-13f6-484d-9aa1-\
f28a741445a6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447976164575863`*^9},ExpressionUUID->"7d6bddf7-f5ec-4edf-9561-\
adc8fc580bed"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616515286*^9},ExpressionUUID->"b28a8fe1-e5cc-417c-acb7-\
c9d2acbb429b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616537991*^9},ExpressionUUID->"7090a06c-c9a6-4d52-a433-\
d55dd29c406b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616599134*^9},ExpressionUUID->"f443fea4-8906-4748-9727-\
d065d9fc063f"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616619586*^9},ExpressionUUID->"8f89f385-6696-42ac-b60a-\
80a763c60ea5"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447976166829576`*^9},ExpressionUUID->"0e8e3995-c622-4d36-962d-\
95f4e4a40546"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.84479761670441*^9},ExpressionUUID->"47e46138-39c5-41d2-9fe7-cae834ec0d08"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616763096*^9},ExpressionUUID->"e7c48a90-ecb4-4319-a634-\
3e21c01b2409"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616783793*^9},ExpressionUUID->"87b6d69f-cc16-4b56-958a-\
990a200d3aa8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447976168408403`*^9},ExpressionUUID->"4b9c8464-ee53-4148-a297-\
07e73c993489"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797616862969*^9},ExpressionUUID->"a4ebee6c-2827-4fa2-8afb-\
c59c6159c754"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Energy momentum tensor \[LineSeparator]",
 StyleBox["-- For small velocities (and signature + - - -)",
  FontSize->12]
}], "Subsection",
 CellChangeTimes->{{3.798905237339349*^9, 3.7989052450172777`*^9}, {
   3.798905398241331*^9, 3.798905401207488*^9}, {3.800188580007464*^9, 
   3.800188585979883*^9}, {3.800190150631448*^9, 3.800190161601169*^9}, 
   3.844797627987753*^9},ExpressionUUID->"6b5e548d-25cf-45f3-b11c-\
c48152275714"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"u", ",", "v", ",", "h"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"u", "[", "1", "]"}], "=", 
    RowBox[{
     SqrtBox["\[CurlyEpsilon]"], " ", 
     RowBox[{
      RowBox[{"v", "[", "1", "]"}], "[", "spacetime", "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"u", "[", "a", "]"}], " ", "is", " ", "contravariant", " ", 
    RowBox[{"tensor", "."}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", "2", "]"}], "=", 
   RowBox[{
    SqrtBox["\[CurlyEpsilon]"], " ", 
    RowBox[{
     RowBox[{"v", "[", "2", "]"}], "[", "spacetime", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", "3", "]"}], "=", 
   RowBox[{
    SqrtBox["\[CurlyEpsilon]"], " ", 
    RowBox[{
     RowBox[{"v", "[", "3", "]"}], "[", "spacetime", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"uu", " ", "=", 
  RowBox[{"Normal", "@", 
   RowBox[{"FirstOrder", "@", 
    RowBox[{"Contract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", "a", "]"}], 
       RowBox[{"u", "[", "b", "]"}], " ", 
       RowBox[{"g", "[", 
        RowBox[{"a", ",", "b"}], "]"}]}], ",", "a", ",", "b"}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Echo", "[", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"u", "[", "0", "]"}], " ", "=", 
     RowBox[{"Normal", "@", 
      RowBox[{"FirstOrder", "[", 
       RowBox[{
        RowBox[{"u", "[", "0", "]"}], "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"uu", "\[Equal]", "1"}], ",", 
           RowBox[{"u", "[", "0", "]"}]}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], ",", 
    "\[IndentingNewLine]", "\"\<u[0] = \>\""}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.800114372888888*^9, 3.800114435279174*^9}, {
  3.800114465600958*^9, 3.800114481572652*^9}, {3.800114520951686*^9, 
  3.800114530284832*^9}, {3.8001145932651052`*^9, 3.800114601339036*^9}, {
  3.80011472077746*^9, 3.800114726504486*^9}, {3.8001148313418903`*^9, 
  3.800114941168149*^9}, {3.800114982613505*^9, 3.800114997191593*^9}, {
  3.800186847134636*^9, 3.800186854469227*^9}, {3.8001871302667837`*^9, 
  3.800187136923279*^9}, {3.800234266426502*^9, 3.800234295887929*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f2b9009b-0eb3-4068-8865-6945436c7d12"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"u", "[", "0", "]"}], "2"], "+", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"u", "[", "0", "]"}], "2"], " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}]}], "-", 
     SuperscriptBox[
      RowBox[{
       RowBox[{"v", "[", "1", "]"}], "[", 
       RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"], "-", 
     SuperscriptBox[
      RowBox[{
       RowBox[{"v", "[", "2", "]"}], "[", 
       RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"], "-", 
     SuperscriptBox[
      RowBox[{
       RowBox[{"v", "[", "3", "]"}], "[", 
       RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.800114941860422*^9, {3.800114987757716*^9, 3.800114997989201*^9}, 
   3.800127616959383*^9, 3.8001285298847113`*^9, 3.80013157524207*^9, 
   3.800131619832038*^9, 3.800132134035165*^9, {3.800133491699587*^9, 
   3.800133520379109*^9}, 3.800148876555458*^9, 3.800186677392652*^9, 
   3.80018687810003*^9, 3.8001871382598457`*^9, 3.8001885747832947`*^9, {
   3.800234371511063*^9, 3.800234393695038*^9}, 3.844797655118217*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"219bd3ee-9db9-443a-bdd9-7aadfa04e5e1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"u[0] = \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"1", "+", 
   RowBox[{
    FractionBox["1", "2"], " ", "\[CurlyEpsilon]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}]}], "+", 
      SuperscriptBox[
       RowBox[{
        RowBox[{"v", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{
        RowBox[{"v", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{
        RowBox[{"v", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x1", ",", "x2", ",", "x3"}], "]"}], "2"]}], 
     ")"}]}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797655154131*^9},ExpressionUUID->"90cf3328-3357-43fc-b00e-\
1e52df2d28b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", 
  RowBox[{"Ttensor", ",", " ", "a", ",", "b"}], "]"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"TTensor", " ", "=", " ", 
    RowBox[{"FirstOrder", "@", 
     RowBox[{"ToTensor", "[", " ", 
      RowBox[{
       RowBox[{"Contract", "[", 
        RowBox[{
         RowBox[{"\[CurlyEpsilon]", " ", 
          RowBox[{"\[Rho]", "@", "spacetime"}], " ", 
          RowBox[{"u", "[", "c", "]"}], 
          RowBox[{"g", "[", 
           RowBox[{"a", ",", "c"}], "]"}], " ", 
          RowBox[{"u", "[", "d", "]"}], 
          RowBox[{"g", "[", 
           RowBox[{"d", ",", "b"}], "]"}]}], ",", "c", ",", "d"}], "]"}], ",",
        "a", ",", "b"}], "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Rho]", " ", "is", " ", "a", " ", "perturbation"}], ",", " ", 
    RowBox[{
     RowBox[{"the", " ", "background", " ", "is", " ", "Minkowski"}], ";", 
     " ", 
     RowBox[{"hence", " ", "the", " ", "\[CurlyEpsilon]", " ", 
      RowBox[{"use", "."}]}]}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"TTensor", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"a", "+", "1"}], ",", 
      RowBox[{"b", "+", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ttrace", " ", "=", " ", 
    RowBox[{"Simplify", "@", 
     RowBox[{"Contract", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gI", "[", 
         RowBox[{"a", ",", "b"}], "]"}], 
        RowBox[{"T", "[", 
         RowBox[{"a", ",", "b"}], "]"}]}], ",", "a", ",", "b"}], "]"}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Normal", "[", "TTensor", "]"}], " ", "//", " ", 
  "TensorPrint"}]}], "Input",
 CellChangeTimes->{{3.7988511649082603`*^9, 3.79885126400644*^9}, {
   3.798851398816581*^9, 3.798851418199092*^9}, {3.798851474026938*^9, 
   3.798851479843856*^9}, 3.798851593474197*^9, {3.798851692846355*^9, 
   3.798851708832354*^9}, {3.798851740646414*^9, 3.798851759355237*^9}, {
   3.798852222733069*^9, 3.79885222278981*^9}, {3.798853358509615*^9, 
   3.7988533747672443`*^9}, {3.798853623482707*^9, 3.798853656463498*^9}, {
   3.798854593609926*^9, 3.798854714599361*^9}, {3.7989051952670193`*^9, 
   3.798905206697196*^9}, {3.798905434303652*^9, 3.798905434780438*^9}, {
   3.798906791151565*^9, 3.798906803286916*^9}, {3.798940997493936*^9, 
   3.798940999427309*^9}, 3.800114077138299*^9, {3.800114255589654*^9, 
   3.8001143023433723`*^9}, {3.800114342953932*^9, 3.800114355011997*^9}, {
   3.800114680550622*^9, 3.800114681642127*^9}, {3.800115037166416*^9, 
   3.8001150398850603`*^9}, {3.800188634350377*^9, 3.8001886420960207`*^9}, {
   3.8002343183990498`*^9, 3.8002343432616243`*^9}, {3.844797660278411*^9, 
   3.844797712874777*^9}, {3.8447985285519238`*^9, 
   3.8447985323542233`*^9}},ExpressionUUID->"dbbb8936-4cbc-44e7-8a35-\
3b9a1a1c0bde"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", "\[Rho]"}]}]], "Echo",
 CellChangeTimes->{
  3.844797714329795*^9},ExpressionUUID->"3b4eafd0-dfc4-4394-b542-\
13600f923170"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tensors for representing the GR field equations", "Subsubsection",
 CellChangeTimes->{{3.800187199302932*^9, 3.800187219843267*^9}, {
  3.800190038615467*^9, 
  3.800190048380999*^9}},ExpressionUUID->"c0b7ac10-3d94-4378-a28f-\
e2e120c1159e"],

Cell["\<\
These equations should be understood as being equal to zero. Since it is \
easier to manipulate expressions without an equality symbol, it is commonly \
more useful to define field equations as expressions that should be equality \
to zero. Moreover, to change from the latter to full equalities it is easy, \
just add an \[OpenCurlyDoubleQuote]== 0\[CloseCurlyDoubleQuote] (possibly \
with a Thread).\
\>", "Text",
 CellChangeTimes->{{3.8001872341644*^9, 
  3.800187338908836*^9}},ExpressionUUID->"979b1801-8d83-4ba5-ad75-\
63c71961f763"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gTensor", " ", "=", " ", "$Metric"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GRTensor", "=", " ", 
   RowBox[{"FirstOrder", "[", 
    RowBox[{"GTensor", " ", "-", 
     RowBox[{"8", " ", "\[Pi]", " ", "G0", " ", "TTensor"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GR", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", 
   RowBox[{"GRTensor", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"a", "+", "1"}], ",", 
      RowBox[{"b", "+", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GRtrace", "=", " ", 
   RowBox[{"Contract", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"gI", "[", 
       RowBox[{"a", ",", "b"}], "]"}], " ", 
      RowBox[{"GR", "[", 
       RowBox[{"a", ",", "b"}], "]"}]}], ",", "a", ",", "b"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GRRTensor", " ", "=", " ", 
    RowBox[{"FirstOrder", "[", 
     RowBox[{"GRTensor", " ", "-", 
      RowBox[{
       FractionBox["1", "2"], " ", "GRtrace", " ", "gTensor"}]}], "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "It", " ", "is", " ", "the", " ", "GR", " ", "equation", " ", "written", 
    " ", "with", " ", "the", " ", "Ricci", " ", "tensor", " ", "on", " ", 
    "the", " ", "left", " ", "hand", " ", 
    RowBox[{"side", "."}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Normal", "@", "GRRTensor"}], " ", "//", " ", 
  "TensorPrint"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<---\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Normal", "@", "GRTensor"}], " ", "//", " ", 
  "TensorPrint"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.80018722825452*^9, 3.800187231070533*^9}, {
   3.800187346175808*^9, 3.800187361564704*^9}, {3.800188609089225*^9, 
   3.800188625231876*^9}, {3.800188657599065*^9, 3.800188789715673*^9}, {
   3.8001889875524387`*^9, 3.8001889899673023`*^9}, {3.800189149172247*^9, 
   3.8001891924356327`*^9}, {3.800189354467698*^9, 3.80018948284664*^9}, {
   3.800189682766467*^9, 3.8001896925999393`*^9}, {3.800189734016314*^9, 
   3.800189734066679*^9}, 3.800189767127664*^9, {3.8001898019059753`*^9, 
   3.800189809959592*^9}, {3.8001898874052553`*^9, 3.800189922715303*^9}, {
   3.800190012807571*^9, 3.8001900181313477`*^9}, {3.800190058939148*^9, 
   3.800190090636457*^9}, {3.800190199159809*^9, 3.8001902120129642`*^9}, {
   3.84479772783948*^9, 3.844797755290773*^9}, {3.8447978026794367`*^9, 
   3.844797852183148*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"96cda6a6-88ce-45a3-8d4a-618050fde266"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "G0", " ", "\[Pi]", " ", "\[Rho]"}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978525131474`*^9},ExpressionUUID->"29aa1dc9-924a-4be6-a978-\
47ed41bfdd07"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.84479785255142*^9},ExpressionUUID->"591ce528-694d-487f-948c-dfaf0a022619"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852593911*^9},ExpressionUUID->"a1c1600b-2b7a-45e2-a3c6-\
754544a41d35"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852612512*^9},ExpressionUUID->"f60275b7-98d3-4d56-a7fa-\
3ec95d801e28"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852657398*^9},ExpressionUUID->"6e85f5c6-9183-41fb-9ffe-\
cfd64b9a6ee5"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "G0", " ", "\[Pi]", " ", "\[Rho]"}], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852676949*^9},ExpressionUUID->"3fb4b112-35a7-4f84-9f5c-\
b228c37d8bb4"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852721459*^9},ExpressionUUID->"06453d17-8a4c-42c8-9859-\
ddb73bb9d901"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852743363*^9},ExpressionUUID->"dd5672c6-599b-4694-8bbe-\
0c55265f3bb7"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978527911997`*^9},ExpressionUUID->"33ac31d6-1799-46e1-a63f-\
4465267d5dd9"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852810566*^9},ExpressionUUID->"f0cad81a-ddc8-47d7-969b-\
94247b1bf8ad"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "G0", " ", "\[Pi]", " ", "\[Rho]"}], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852860464*^9},ExpressionUUID->"a076fbf6-41f4-40bf-b437-\
f30fcca1440d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852879455*^9},ExpressionUUID->"f4d0a722-c3c5-4c5d-817e-\
e21a6d184e73"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.84479785293309*^9},ExpressionUUID->"e4a2d9ef-dc0b-4938-95a1-5d15801c10bd"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797852955502*^9},ExpressionUUID->"327f5d0b-39ce-44e7-b36e-\
d1862cbae37d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978530101624`*^9},ExpressionUUID->"3eda8a68-a0a3-46ae-b538-\
7db6bdeaf7e4"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "G0", " ", "\[Pi]", " ", "\[Rho]"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None]}], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978530337753`*^9},ExpressionUUID->"64183cfa-f844-4348-a803-\
29e065fa9d27"],

Cell[BoxData["\<\"---\"\>"], "Print",
 CellChangeTimes->{3.800189811100676*^9, 3.800189929969083*^9, 
  3.800190019486149*^9, 3.8001901793854513`*^9, 3.8001902134599257`*^9, 
  3.800234394547488*^9, 3.8447978530786943`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"ec9a4ebb-be2f-41b6-b936-c94d60f9ef93"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", "G0", " ", "\[Pi]", " ", "\[Rho]"}], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853086904*^9},ExpressionUUID->"7d954a62-53f3-42e0-b82f-\
2e17055087ee"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978531063423`*^9},ExpressionUUID->"e60c25df-9f25-44b7-beb7-\
4c89640c488c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853153139*^9},ExpressionUUID->"975dd28e-4824-4031-9cc3-\
765a0d774604"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978531726933`*^9},ExpressionUUID->"a893549f-2bdf-4d31-873c-\
41d22c8acb45"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853220375*^9},ExpressionUUID->"83cac134-c564-45e6-885b-\
8db380d53961"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853239835*^9},ExpressionUUID->"92b031e3-f901-4ce5-b09d-\
3d5f67a0295e"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853287302*^9},ExpressionUUID->"b5c59649-088c-4e8a-80e7-\
960d42c9f8e9"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978533108892`*^9},ExpressionUUID->"dca6ba86-23df-4f76-9423-\
9f045fe25cf1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853358953*^9},ExpressionUUID->"eb33f763-8b45-4680-aa9a-\
3c94b4aca0a3"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978533789*^9},ExpressionUUID->"5d95670a-b541-4fee-bae1-1d263da6f4d2"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853432282*^9},ExpressionUUID->"f30ada5a-57b9-435b-83a9-\
187691f2bc7d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978534568243`*^9},ExpressionUUID->"1188e9a3-c38a-420c-b885-\
04f4b0c9203c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CurlyEpsilon]", " ", 
   SuperscriptBox["\[Chi]", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853504129*^9},ExpressionUUID->"46b4cc82-33b6-4414-90d0-\
b8e6840db777"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853523932*^9},ExpressionUUID->"ed7a0255-cbe0-49a6-8fe9-\
cea573a156ab"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{
   RowBox[{"-", "\[CurlyEpsilon]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.8447978535740767`*^9},ExpressionUUID->"acaa9fac-0431-4491-9658-\
4af770aa8046"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  RowBox[{"\[CurlyEpsilon]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Chi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "+", 
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Chi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None]}]}], ")"}]}]}]], "Echo",
 CellChangeTimes->{
  3.844797853594489*^9},ExpressionUUID->"6b06f7c1-e65e-4135-8768-\
525bf3c8793c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Brans-Dicke", "Section",
 CellChangeTimes->{{3.798838774265664*^9, 3.7988387825976562`*^9}, {
  3.798904364007701*^9, 3.798904377356461*^9}, {3.798941015783609*^9, 
  3.79894101606488*^9}, {3.800127557023019*^9, 3.800127557438724*^9}, {
  3.800148452728322*^9, 3.800148453538548*^9}, {3.8447981702224293`*^9, 
  3.8447981723376913`*^9}},ExpressionUUID->"3610e300-86ce-4b2c-8f7a-\
88aebf0250f6"],

Cell["\<\
We can consider the Brans-Dicke field equations in a single \
(matrix/tensorial) equation\
\>", "Text",
 CellChangeTimes->{{3.844798189281406*^9, 
  3.844798258698738*^9}},ExpressionUUID->"d4926008-81c8-48b7-b75d-\
12d6a0f66ae6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "\[Phi]", ",", " ", "\[Xi]", ",", " ", "\[Chi]", ",", " ", "\[Psi]"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BransDickeAdd", " ", "=", " ", 
   RowBox[{"Simplify", "@", 
    RowBox[{"FirstOrder", "[", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"\[Phi]", "@", "spacetime"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"DDCov", "[", 
          RowBox[{"\[Phi]", "@", "spacetime"}], "]"}], "[", "]"}], " ", "-", 
        " ", 
        RowBox[{"$Metric", " ", 
         RowBox[{"TensorBox", "[", 
          RowBox[{"\[Phi]", "@", "spacetime"}], "]"}]}]}], " ", ")"}]}], 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Phi]", "[", "spacetime__", "]"}], ":=", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[Sigma]0", " ", "+", " ", 
     RowBox[{"\[CurlyEpsilon]", " ", 
      RowBox[{"\[Sigma]", "[", "spacetime", "]"}]}]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BDFieldEq", " ", "=", " ", 
   RowBox[{"FirstOrder", "[", 
    RowBox[{"Normal", "[", 
     RowBox[{"GTensor", " ", "-", " ", "BransDickeAdd", " ", "-", "  ", 
      RowBox[{
       FractionBox[
        RowBox[{"8", " ", "\[Pi]", " "}], 
        RowBox[{"\[Phi]", "@", "spacetime"}]], " ", "TTensor"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"BDFieldEq", " ", "//", " ", 
  "TensorPrint"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.798838786989832*^9, 3.79883884482806*^9}, {
  3.798838881098855*^9, 3.798838914487357*^9}, {3.7988390710023203`*^9, 
  3.7988390782420387`*^9}, {3.798839180280447*^9, 3.798839184251047*^9}, {
  3.798839243500985*^9, 3.798839366218112*^9}, {3.7988400138376713`*^9, 
  3.798840021573264*^9}, {3.798853879562325*^9, 3.798853905417057*^9}, {
  3.798941048578609*^9, 3.798941132534906*^9}, {3.798941263694647*^9, 
  3.798941265006776*^9}, {3.7989416853071947`*^9, 3.7989417029265423`*^9}, {
  3.844798427024406*^9, 3.8447984286096077`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"226d7bb4-baf1-4a75-9c22-8bfb206cde3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "8"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "\[Sigma]0"}]], " ", "\[Pi]", " ", "\[Rho]"}], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Chi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "+", 
          SuperscriptBox["\[Chi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "+", 
          SuperscriptBox["\[Chi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None]}], ")"}]}]}], ")"}], " ", 
     "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {(((-8) E^(-$CellContext`\[Sigma]0)) Pi) $CellContext`\[Rho] - 
     Derivative[0, 0, 0, 2][$CellContext`\[Sigma]] - Derivative[
     0, 0, 2, 0][$CellContext`\[Sigma]] - Derivative[
     0, 2, 0, 0][$CellContext`\[Sigma]] - 
     2 (Derivative[0, 0, 0, 2][$CellContext`\[Chi]] + 
      Derivative[0, 0, 2, 0][$CellContext`\[Chi]] + 
      Derivative[0, 2, 0, 0][$CellContext`\[Chi]])}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.8447984538129683`*^9},ExpressionUUID->"a59d681c-17eb-4de2-b93b-\
0fd2a50aa7a4"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 1, 0, 0][$CellContext`\[Sigma]] - 2 
     Derivative[1, 1, 0, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.8447984538326397`*^9},ExpressionUUID->"6b8c55df-f5f6-474c-a722-\
bbfdc16bd5b3"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 0, 1, 0][$CellContext`\[Sigma]] - 2 
     Derivative[1, 0, 1, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.84479845392487*^9},ExpressionUUID->"3ccf9a4a-54e2-4b5e-92df-79afe8e1d693"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]0, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 0, 0, 1][$CellContext`\[Sigma]] - 2 
     Derivative[1, 0, 0, 1][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798453944045*^9},ExpressionUUID->"7f9ad481-3b07-4fef-a6f5-\
79da57c8b92c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 1, 0, 0][$CellContext`\[Sigma]] - 2 
     Derivative[1, 1, 0, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.8447984540283937`*^9},ExpressionUUID->"b92eff86-5c03-4324-aaaf-\
e8fbea3f3532"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 0, {
    Derivative[0, 0, 0, 2][$CellContext`\[Sigma]] + 
     Derivative[0, 0, 0, 2][$CellContext`\[Chi]] + 
     Derivative[0, 0, 0, 2][$CellContext`\[Psi]] + 
     Derivative[0, 0, 2, 0][$CellContext`\[Sigma]] + 
     Derivative[0, 0, 2, 0][$CellContext`\[Chi]] + 
     Derivative[0, 0, 2, 0][$CellContext`\[Psi]] - Derivative[
     2, 0, 0, 0][$CellContext`\[Sigma]] - 2 
     Derivative[2, 0, 0, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.84479845405154*^9},ExpressionUUID->"90c92695-0024-43fa-adaa-4c4740802dcf"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 1, 1, 0][$CellContext`\[Sigma]] - Derivative[
     0, 1, 1, 0][$CellContext`\[Chi]] - Derivative[
     0, 1, 1, 0][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454138814*^9},ExpressionUUID->"b607f283-5205-464c-a449-\
c9568c342166"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]1, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 1, 0, 1][$CellContext`\[Sigma]] - Derivative[
     0, 1, 0, 1][$CellContext`\[Chi]] - Derivative[
     0, 1, 0, 1][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454158925*^9},ExpressionUUID->"d07e401f-4107-46f5-a3ce-\
0ce569e82f1d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 0, 1, 0][$CellContext`\[Sigma]] - 2 
     Derivative[1, 0, 1, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454249543*^9},ExpressionUUID->"0cc20f52-cb72-4648-86cd-\
8aec77baba47"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 1, 1, 0][$CellContext`\[Sigma]] - Derivative[
     0, 1, 1, 0][$CellContext`\[Chi]] - Derivative[
     0, 1, 1, 0][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.84479845427236*^9},ExpressionUUID->"ebe4fcd1-c215-4da0-b3b7-3db2f16fac2c"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 0, {
    Derivative[0, 0, 0, 2][$CellContext`\[Sigma]] + 
     Derivative[0, 0, 0, 2][$CellContext`\[Chi]] + 
     Derivative[0, 0, 0, 2][$CellContext`\[Psi]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Sigma]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Chi]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Psi]] - Derivative[
     2, 0, 0, 0][$CellContext`\[Sigma]] - 2 
     Derivative[2, 0, 0, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454362173*^9},ExpressionUUID->"9a2558ed-8dd0-4da6-836d-\
91e73f7a484d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]2, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 0, 1, 1][$CellContext`\[Sigma]] - Derivative[
     0, 0, 1, 1][$CellContext`\[Chi]] - Derivative[
     0, 0, 1, 1][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.8447984543817787`*^9},ExpressionUUID->"161d4064-1a26-4f68-814d-\
6e22d5e7bfe1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 0\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[1, 0, 0, 1][$CellContext`\[Sigma]] - 2 
     Derivative[1, 0, 0, 1][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454467416*^9},ExpressionUUID->"1f69870e-7216-4456-bcfd-\
40db81ded576"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 1\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 1, 0, 1][$CellContext`\[Sigma]] - Derivative[
     0, 1, 0, 1][$CellContext`\[Chi]] - Derivative[
     0, 1, 0, 1][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.8447984544900217`*^9},ExpressionUUID->"ff2bbb1d-3a9f-4eed-9212-\
5bc0a08ed844"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 2\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[Sigma]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None]}], "-", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 
    0, {-Derivative[0, 0, 1, 1][$CellContext`\[Sigma]] - Derivative[
     0, 0, 1, 1][$CellContext`\[Chi]] - Derivative[
     0, 0, 1, 1][$CellContext`\[Psi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454575791*^9},ExpressionUUID->"6f7346d8-be79-4e2e-b391-\
5121eb3f6cd3"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"\[LeftDoubleBracket]3, 3\[RightDoubleBracket] : \"\>",
   "EchoLabel"], "  ", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Chi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "+", 
       SuperscriptBox["\[Psi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Chi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None]}]}], ")"}], " ", "\[CurlyEpsilon]"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[CurlyEpsilon]", "]"}], "2"],
     SeriesData[$CellContext`\[CurlyEpsilon], 0, {}, 1, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[CurlyEpsilon], 0, {
    Derivative[0, 0, 2, 0][$CellContext`\[Sigma]] + 
     Derivative[0, 0, 2, 0][$CellContext`\[Chi]] + 
     Derivative[0, 0, 2, 0][$CellContext`\[Psi]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Sigma]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Chi]] + 
     Derivative[0, 2, 0, 0][$CellContext`\[Psi]] - Derivative[
     2, 0, 0, 0][$CellContext`\[Sigma]] - 2 
     Derivative[2, 0, 0, 0][$CellContext`\[Chi]]}, 1, 2, 1],
   Editable->False]}]], "Echo",
 CellChangeTimes->{
  3.844798454600114*^9},ExpressionUUID->"e87252e4-cc7e-4d57-8349-\
f29148bc8bd3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
Evaluator->"Local2",
WindowSize->{1280, 1395},
WindowMargins->{{550, Automatic}, {Automatic, 22}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"89abc8ca-4810-46a9-a70c-ed08effed34e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 209, 4, 123, "Title",ExpressionUUID->"802d2333-dac9-4242-8f34-44007c3482fe"],
Cell[792, 28, 333, 7, 67, "Subtitle",ExpressionUUID->"7be74280-c356-4981-9fcc-bd68705aa55e"],
Cell[1128, 37, 161, 3, 41, "Author",ExpressionUUID->"9fd97147-d2a2-4d3f-b9ec-d144c0d84f40"],
Cell[CellGroupData[{
Cell[1314, 44, 205, 4, 84, "Section",ExpressionUUID->"4553eade-54a0-4d8d-85c3-15ace1120300"],
Cell[CellGroupData[{
Cell[1544, 52, 305, 6, 51, "Input",ExpressionUUID->"d52121a8-d085-4b07-9f49-4259fe44d831"],
Cell[CellGroupData[{
Cell[1874, 62, 710, 19, 29, "Print",ExpressionUUID->"40834afd-6b3b-48c6-afda-12ce10ebbf37"],
Cell[2587, 83, 364, 7, 29, "Print",ExpressionUUID->"ce1a0ecf-a4f7-4202-ae34-fbdf873dca29"],
Cell[2954, 92, 632, 11, 198, "Print",ExpressionUUID->"267b7895-b545-45af-9159-6051756180b3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3647, 110, 288, 5, 84, "Section",ExpressionUUID->"908bef5c-e348-4c19-b3a6-a8405e88aa9b"],
Cell[3938, 117, 723, 16, 73, "Text",ExpressionUUID->"3df3c8f8-f508-4268-adc3-9e352adacc08"],
Cell[4664, 135, 1400, 37, 176, "Input",ExpressionUUID->"9ad8ae90-4dbb-4a3f-9daf-972fb51a06cd"],
Cell[CellGroupData[{
Cell[6089, 176, 527, 11, 51, "Input",ExpressionUUID->"b809391c-b937-433f-ad8f-05123f751500"],
Cell[CellGroupData[{
Cell[6641, 191, 435, 13, 33, "Echo",ExpressionUUID->"8137f252-4165-41a2-90e4-95497683cff2"],
Cell[7079, 206, 437, 13, 33, "Echo",ExpressionUUID->"0d027aa5-4fcd-40b6-92e0-85d3fe32b535"],
Cell[7519, 221, 432, 12, 33, "Echo",ExpressionUUID->"84f72ec0-6667-43de-b1ef-c07074b80aef"],
Cell[7954, 235, 437, 13, 33, "Echo",ExpressionUUID->"a45572ef-6d5e-4085-95aa-76a7ed81bf8d"],
Cell[8394, 250, 435, 13, 33, "Echo",ExpressionUUID->"208e3e4b-aeb7-4e66-be56-a1a43b1c6a8b"],
Cell[8832, 265, 435, 13, 33, "Echo",ExpressionUUID->"58a1be54-ed4e-42c1-9fcb-275dc8ec0297"],
Cell[9270, 280, 435, 13, 33, "Echo",ExpressionUUID->"938d7524-319c-419e-abd0-bc4971fcd194"],
Cell[9708, 295, 435, 13, 33, "Echo",ExpressionUUID->"3eef4284-6b59-4094-988f-43e40045c2dd"],
Cell[10146, 310, 432, 12, 33, "Echo",ExpressionUUID->"3962a255-5368-4553-8e60-9ccd4447c67b"],
Cell[10581, 324, 435, 13, 33, "Echo",ExpressionUUID->"9dc335c9-74ca-4e6e-9561-4e0c2d9eebf3"],
Cell[11019, 339, 435, 13, 33, "Echo",ExpressionUUID->"fb56a7b2-75d8-4f5b-8ccd-0357a1c0f7ae"],
Cell[11457, 354, 435, 13, 33, "Echo",ExpressionUUID->"93a0d44d-5f53-476a-b422-1e8c76a8ae26"],
Cell[11895, 369, 435, 13, 33, "Echo",ExpressionUUID->"a7364bfe-dd5d-465c-9704-f78507204cbf"],
Cell[12333, 384, 435, 13, 33, "Echo",ExpressionUUID->"c8c511c4-0e7e-4564-876c-6b5fb9c4bd91"],
Cell[12771, 399, 437, 13, 33, "Echo",ExpressionUUID->"e4314d97-359c-4753-8c35-d6a0f2d0ce71"],
Cell[13211, 414, 435, 13, 33, "Echo",ExpressionUUID->"0486d63d-35aa-4678-a0d3-4fcc50ac72ea"],
Cell[13649, 429, 437, 13, 33, "Echo",ExpressionUUID->"5fe3810c-8e80-4e1f-91ff-4c54c38ba907"],
Cell[14089, 444, 456, 14, 33, "Echo",ExpressionUUID->"b20efe2b-8a61-4635-909d-74c62a2715f8"],
Cell[14548, 460, 435, 13, 33, "Echo",ExpressionUUID->"71dc5ea5-d4ef-4359-8e32-4181671820aa"],
Cell[14986, 475, 454, 14, 33, "Echo",ExpressionUUID->"8adbcd1f-890b-4a91-8958-c8c02470a9bc"],
Cell[15443, 491, 435, 13, 33, "Echo",ExpressionUUID->"6a955938-68df-47e4-b47b-f08d8f167af4"],
Cell[15881, 506, 432, 12, 33, "Echo",ExpressionUUID->"d92b9098-725f-471e-b1ef-f89222f15d8d"],
Cell[16316, 520, 451, 13, 33, "Echo",ExpressionUUID->"9dc9c2af-84ea-48e5-a178-fa90a3c3d85a"],
Cell[16770, 535, 435, 13, 33, "Echo",ExpressionUUID->"f034b210-726d-4c61-809a-07677e4ca6e2"],
Cell[17208, 550, 437, 13, 33, "Echo",ExpressionUUID->"cf3c9675-ad96-4276-8683-ba90c36661fa"],
Cell[17648, 565, 435, 13, 33, "Echo",ExpressionUUID->"47639a47-f36d-485b-8845-f367b457e286"],
Cell[18086, 580, 435, 13, 33, "Echo",ExpressionUUID->"bb5bfba0-ab93-4866-b4b6-f027e46ea80b"],
Cell[18524, 595, 435, 13, 33, "Echo",ExpressionUUID->"76f481e3-4dbf-41a7-a7ab-eb92d2d1ae5c"],
Cell[18962, 610, 435, 13, 33, "Echo",ExpressionUUID->"8b8d6819-31e7-423b-b596-ca5e122645a8"],
Cell[19400, 625, 456, 14, 33, "Echo",ExpressionUUID->"d1d7dce6-d929-45b0-9a57-515d66b3ee17"],
Cell[19859, 641, 435, 13, 33, "Echo",ExpressionUUID->"08d5974c-6088-4e3c-a6b5-00a0dfc85c1e"],
Cell[20297, 656, 435, 13, 33, "Echo",ExpressionUUID->"6cf9298d-0d0c-44e1-a2e0-9ef3f311f8f8"],
Cell[20735, 671, 454, 14, 33, "Echo",ExpressionUUID->"e6e267f2-b0c8-4b37-8f30-6d71c4edd4e6"],
Cell[21192, 687, 437, 13, 33, "Echo",ExpressionUUID->"82caa9c7-c78c-4208-9c38-34b324ede8ec"],
Cell[21632, 702, 454, 14, 33, "Echo",ExpressionUUID->"5150468b-82f1-448a-aeb8-8baf3f1b3081"],
Cell[22089, 718, 435, 13, 33, "Echo",ExpressionUUID->"572ababc-e7e7-4a72-9405-33ecee382ed1"],
Cell[22527, 733, 435, 13, 33, "Echo",ExpressionUUID->"dd3f7102-e208-4855-8284-b7f46a7ad5f5"],
Cell[22965, 748, 435, 13, 33, "Echo",ExpressionUUID->"64acfcc4-87bc-484a-8ed0-046df6889c90"],
Cell[23403, 763, 435, 13, 33, "Echo",ExpressionUUID->"84b0cd44-8710-4496-bb84-9d5f59d8db76"],
Cell[23841, 778, 435, 13, 33, "Echo",ExpressionUUID->"6e57a8a6-36a9-4779-8068-6c6306343f7f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24325, 797, 525, 12, 64, "Input",ExpressionUUID->"b34610b8-bb04-464d-b259-fea850b4952b"],
Cell[CellGroupData[{
Cell[24875, 813, 1069, 34, 34, "Echo",ExpressionUUID->"1df24a5e-72e8-4ecd-83d6-d42376f804a0"],
Cell[25947, 849, 461, 14, 33, "Echo",ExpressionUUID->"77cf82dc-8d15-411f-8bc1-c9af0dc3e161"],
Cell[26411, 865, 461, 14, 33, "Echo",ExpressionUUID->"689fdd03-2bd6-417e-b435-3b747a1466a6"],
Cell[26875, 881, 463, 14, 33, "Echo",ExpressionUUID->"c40bb223-7bd4-41a5-8f9b-5fe7eed87a0b"],
Cell[27341, 897, 463, 14, 33, "Echo",ExpressionUUID->"76a62b2c-4bfc-4fc6-bd8e-549c67df9e5f"],
Cell[27807, 913, 1270, 41, 34, "Echo",ExpressionUUID->"b5dbc7f7-7f4b-4ced-91ce-0eeb7b2a9b16"],
Cell[29080, 956, 686, 22, 34, "Echo",ExpressionUUID->"bb7d2cd1-5f9e-4590-ac3f-aff7d31e372d"],
Cell[29769, 980, 688, 22, 34, "Echo",ExpressionUUID->"1e5e8a0b-73f0-4a6c-8116-f8a904dd8254"],
Cell[30460, 1004, 461, 14, 33, "Echo",ExpressionUUID->"6c99dba6-17d3-4806-8f0a-eeecc74d6de8"],
Cell[30924, 1020, 688, 22, 34, "Echo",ExpressionUUID->"b7f19837-f17a-4ee4-899e-f8c5cc4bca88"],
Cell[31615, 1044, 1272, 41, 34, "Echo",ExpressionUUID->"2b5a3e55-9d44-488f-b6cd-77d4b1100a65"],
Cell[32890, 1087, 686, 22, 34, "Echo",ExpressionUUID->"bac29071-094d-4427-9ab5-12408e14c5e6"],
Cell[33579, 1111, 461, 14, 33, "Echo",ExpressionUUID->"cb05a755-5533-4667-a7a4-8cae403730d9"],
Cell[34043, 1127, 688, 22, 34, "Echo",ExpressionUUID->"63a39022-d368-4b3a-9655-5b49f0db9adc"],
Cell[34734, 1151, 686, 22, 34, "Echo",ExpressionUUID->"61f01188-c6c6-4343-ba5e-42ef90c437d1"],
Cell[35423, 1175, 1272, 41, 34, "Echo",ExpressionUUID->"21d6b15a-eb76-4416-a1e8-2c5f82a16873"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36744, 1222, 1347, 28, 90, "Input",ExpressionUUID->"9f449812-1a0d-41e1-87ec-bc1ae63aaa5a"],
Cell[CellGroupData[{
Cell[38116, 1254, 880, 28, 34, "Echo",ExpressionUUID->"922e8411-a05a-465e-a51c-e3fa9698d12b"],
Cell[38999, 1284, 463, 14, 33, "Echo",ExpressionUUID->"6e17dffa-053c-4eb4-b3c7-898f1c145154"],
Cell[39465, 1300, 463, 14, 33, "Echo",ExpressionUUID->"6a3ce64f-a0bd-430d-82ac-7af30bdacbc6"],
Cell[39931, 1316, 458, 13, 33, "Echo",ExpressionUUID->"ae765a40-bcdb-49ca-a568-7db5850ce9dc"],
Cell[40392, 1331, 461, 14, 33, "Echo",ExpressionUUID->"8a2abc0c-13f6-484d-9aa1-f28a741445a6"],
Cell[40856, 1347, 1253, 40, 34, "Echo",ExpressionUUID->"7d6bddf7-f5ec-4edf-9561-adc8fc580bed"],
Cell[42112, 1389, 686, 22, 34, "Echo",ExpressionUUID->"b28a8fe1-e5cc-417c-acb7-c9d2acbb429b"],
Cell[42801, 1413, 686, 22, 34, "Echo",ExpressionUUID->"7090a06c-c9a6-4d52-a433-d55dd29c406b"],
Cell[43490, 1437, 461, 14, 33, "Echo",ExpressionUUID->"f443fea4-8906-4748-9727-d065d9fc063f"],
Cell[43954, 1453, 686, 22, 34, "Echo",ExpressionUUID->"8f89f385-6696-42ac-b60a-80a763c60ea5"],
Cell[44643, 1477, 1253, 40, 34, "Echo",ExpressionUUID->"0e8e3995-c622-4d36-962d-95f4e4a40546"],
Cell[45899, 1519, 683, 21, 34, "Echo",ExpressionUUID->"47e46138-39c5-41d2-9fe7-cae834ec0d08"],
Cell[46585, 1542, 461, 14, 33, "Echo",ExpressionUUID->"e7c48a90-ecb4-4319-a634-3e21c01b2409"],
Cell[47049, 1558, 686, 22, 34, "Echo",ExpressionUUID->"87b6d69f-cc16-4b56-958a-990a200d3aa8"],
Cell[47738, 1582, 688, 22, 34, "Echo",ExpressionUUID->"4b9c8464-ee53-4148-a297-07e73c993489"],
Cell[48429, 1606, 1251, 40, 34, "Echo",ExpressionUUID->"a4ebee6c-2827-4fa2-8afb-c59c6159c754"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49729, 1652, 451, 9, 89, "Subsection",ExpressionUUID->"6b5e548d-25cf-45f3-b11c-c48152275714"],
Cell[CellGroupData[{
Cell[50205, 1665, 2479, 67, 249, "Input",ExpressionUUID->"f2b9009b-0eb3-4068-8865-6945436c7d12"],
Cell[52687, 1734, 1356, 32, 46, "Output",ExpressionUUID->"219bd3ee-9db9-443a-bdd9-7aadfa04e5e1"],
Cell[54046, 1768, 944, 28, 46, "Echo",ExpressionUUID->"90cf3328-3357-43fc-b00e-1e52df2d28b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55027, 1801, 3003, 70, 220, "Input",ExpressionUUID->"dbbb8936-4cbc-44e7-8a35-3b9a1a1c0bde"],
Cell[58033, 1873, 275, 7, 32, "Echo",ExpressionUUID->"3b4eafd0-dfc4-4394-b542-13600f923170"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58345, 1885, 247, 4, 56, "Subsubsection",ExpressionUUID->"c0b7ac10-3d94-4378-a28f-e2e120c1159e"],
Cell[58595, 1891, 549, 10, 102, "Text",ExpressionUUID->"979b1801-8d83-4ba5-ad75-63c71961f763"],
Cell[CellGroupData[{
Cell[59169, 1905, 2654, 62, 321, "Input",ExpressionUUID->"96cda6a6-88ce-45a3-8d4a-618050fde266"],
Cell[CellGroupData[{
Cell[61848, 1971, 1157, 36, 34, "Echo",ExpressionUUID->"29aa1dc9-924a-4be6-a978-47ed41bfdd07"],
Cell[63008, 2009, 458, 13, 33, "Echo",ExpressionUUID->"591ce528-694d-487f-948c-dfaf0a022619"],
Cell[63469, 2024, 461, 14, 33, "Echo",ExpressionUUID->"a1c1600b-2b7a-45e2-a3c6-754544a41d35"],
Cell[63933, 2040, 461, 14, 33, "Echo",ExpressionUUID->"f60275b7-98d3-4d56-a7fa-3ec95d801e28"],
Cell[64397, 2056, 461, 14, 33, "Echo",ExpressionUUID->"6e85f5c6-9183-41fb-9ffe-cfd64b9a6ee5"],
Cell[64861, 2072, 1336, 42, 34, "Echo",ExpressionUUID->"3fb4b112-35a7-4f84-9f5c-b228c37d8bb4"],
Cell[66200, 2116, 686, 22, 34, "Echo",ExpressionUUID->"06453d17-8a4c-42c8-9859-ddb73bb9d901"],
Cell[66889, 2140, 686, 22, 34, "Echo",ExpressionUUID->"dd5672c6-599b-4694-8bbe-0c55265f3bb7"],
Cell[67578, 2164, 463, 14, 33, "Echo",ExpressionUUID->"33ac31d6-1799-46e1-a63f-4465267d5dd9"],
Cell[68044, 2180, 686, 22, 34, "Echo",ExpressionUUID->"f0cad81a-ddc8-47d7-969b-94247b1bf8ad"],
Cell[68733, 2204, 1336, 42, 34, "Echo",ExpressionUUID->"a076fbf6-41f4-40bf-b437-f30fcca1440d"],
Cell[70072, 2248, 686, 22, 34, "Echo",ExpressionUUID->"f4d0a722-c3c5-4c5d-817e-e21a6d184e73"],
Cell[70761, 2272, 458, 13, 33, "Echo",ExpressionUUID->"e4a2d9ef-dc0b-4938-95a1-5d15801c10bd"],
Cell[71222, 2287, 686, 22, 34, "Echo",ExpressionUUID->"327f5d0b-39ce-44e7-b36e-d1862cbae37d"],
Cell[71911, 2311, 688, 22, 34, "Echo",ExpressionUUID->"3eda8a68-a0a3-46ae-b538-7db6bdeaf7e4"],
Cell[72602, 2335, 1338, 42, 34, "Echo",ExpressionUUID->"64183cfa-f844-4348-a803-29e065fa9d27"],
Cell[73943, 2379, 328, 6, 29, "Print",ExpressionUUID->"ec9a4ebb-be2f-41b6-b936-c94d60f9ef93"],
Cell[74274, 2387, 946, 29, 34, "Echo",ExpressionUUID->"7d954a62-53f3-42e0-b82f-2e17055087ee"],
Cell[75223, 2418, 463, 14, 33, "Echo",ExpressionUUID->"e60c25df-9f25-44b7-beb7-4c89640c488c"],
Cell[75689, 2434, 461, 14, 33, "Echo",ExpressionUUID->"975dd28e-4824-4031-9cc3-765a0d774604"],
Cell[76153, 2450, 463, 14, 33, "Echo",ExpressionUUID->"a893549f-2bdf-4d31-873c-41d22c8acb45"],
Cell[76619, 2466, 461, 14, 33, "Echo",ExpressionUUID->"83cac134-c564-45e6-885b-8db380d53961"],
Cell[77083, 2482, 1251, 40, 34, "Echo",ExpressionUUID->"92b031e3-f901-4ce5-b09d-3d5f67a0295e"],
Cell[78337, 2524, 686, 22, 34, "Echo",ExpressionUUID->"b5c59649-088c-4e8a-80e7-960d42c9f8e9"],
Cell[79026, 2548, 688, 22, 34, "Echo",ExpressionUUID->"dca6ba86-23df-4f76-9423-9f045fe25cf1"],
Cell[79717, 2572, 461, 14, 33, "Echo",ExpressionUUID->"eb33f763-8b45-4680-aa9a-3c94b4aca0a3"],
Cell[80181, 2588, 682, 21, 34, "Echo",ExpressionUUID->"5d95670a-b541-4fee-bae1-1d263da6f4d2"],
Cell[80866, 2611, 1251, 40, 34, "Echo",ExpressionUUID->"f30ada5a-57b9-435b-83a9-187691f2bc7d"],
Cell[82120, 2653, 688, 22, 34, "Echo",ExpressionUUID->"1188e9a3-c38a-420c-b885-04f4b0c9203c"],
Cell[82811, 2677, 461, 14, 33, "Echo",ExpressionUUID->"46b4cc82-33b6-4414-90d0-b8e6840db777"],
Cell[83275, 2693, 686, 22, 34, "Echo",ExpressionUUID->"ed7a0255-cbe0-49a6-8fe9-cea573a156ab"],
Cell[83964, 2717, 688, 22, 34, "Echo",ExpressionUUID->"acaa9fac-0431-4491-9658-4af770aa8046"],
Cell[84655, 2741, 1251, 40, 34, "Echo",ExpressionUUID->"6b06f7c1-e65e-4135-8768-525bf3c8793c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85991, 2790, 400, 6, 84, "Section",ExpressionUUID->"3610e300-86ce-4b2c-8f7a-88aebf0250f6"],
Cell[86394, 2798, 239, 6, 44, "Text",ExpressionUUID->"d4926008-81c8-48b7-b75d-12d6a0f66ae6"],
Cell[CellGroupData[{
Cell[86658, 2808, 2135, 51, 226, "Input",ExpressionUUID->"226d7bb4-baf1-4a75-9c22-8bfb206cde3f"],
Cell[CellGroupData[{
Cell[88818, 2863, 2491, 69, 34, "Echo",ExpressionUUID->"a59d681c-17eb-4de2-b93b-0fd2a50aa7a4"],
Cell[91312, 2934, 1178, 34, 34, "Echo",ExpressionUUID->"6b8c55df-f5f6-474c-a722-bbfdc16bd5b3"],
Cell[92493, 2970, 1173, 33, 34, "Echo",ExpressionUUID->"3ccf9a4a-54e2-4b5e-92df-79afe8e1d693"],
Cell[93669, 3005, 1176, 34, 34, "Echo",ExpressionUUID->"7f9ad481-3b07-4fef-a6f5-79da57c8b92c"],
Cell[94848, 3041, 1178, 34, 34, "Echo",ExpressionUUID->"b92eff86-5c03-4324-aaaf-e8fbea3f3532"],
Cell[96029, 3077, 2639, 74, 34, "Echo",ExpressionUUID->"90c92695-0024-43fa-adaa-4c4740802dcf"],
Cell[98671, 3153, 1388, 40, 34, "Echo",ExpressionUUID->"b607f283-5205-464c-a449-c9568c342166"],
Cell[100062, 3195, 1388, 40, 34, "Echo",ExpressionUUID->"d07e401f-4107-46f5-a3ce-0ce569e82f1d"],
Cell[101453, 3237, 1176, 34, 34, "Echo",ExpressionUUID->"0cc20f52-cb72-4648-86cd-8aec77baba47"],
Cell[102632, 3273, 1385, 39, 34, "Echo",ExpressionUUID->"ebe4fcd1-c215-4da0-b3b7-3db2f16fac2c"],
Cell[104020, 3314, 2642, 75, 34, "Echo",ExpressionUUID->"9a2558ed-8dd0-4da6-836d-91e73f7a484d"],
Cell[106665, 3391, 1390, 40, 34, "Echo",ExpressionUUID->"161d4064-1a26-4f68-814d-6e22d5e7bfe1"],
Cell[108058, 3433, 1176, 34, 34, "Echo",ExpressionUUID->"1f69870e-7216-4456-bcfd-40db81ded576"],
Cell[109237, 3469, 1390, 40, 34, "Echo",ExpressionUUID->"ff2bbb1d-3a9f-4eed-9212-5bc0a08ed844"],
Cell[110630, 3511, 1388, 40, 34, "Echo",ExpressionUUID->"6f7346d8-be79-4e2e-b391-5121eb3f6cd3"],
Cell[112021, 3553, 2642, 75, 34, "Echo",ExpressionUUID->"e87252e4-cc7e-4d57-8349-f29148bc8bd3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)