3_constructive_cosmology.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    412932,      10938]
NotebookOptionsPosition[    380967,      10152]
NotebookOutlinePosition[    381636,      10176]
CellTagsIndexPosition[    381593,      10173]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nG", "=", "17"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.713520967124276*^9, 3.713520995627535*^9}, {
  3.72145767354984*^9, 3.7214576763499537`*^9}, {3.721457707163679*^9, 
  3.72145771459975*^9}},ExpressionUUID->"3d24967c-1779-4b5b-af4f-\
c2d273167356"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"DOFJacobian", "[", 
   RowBox[{"\[CapitalPhi]_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"\[CapitalPhi]", "[", 
       RowBox[{"[", "A", "]"}], "]"}], ",", 
      RowBox[{"x", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"A", ",", 
      RowBox[{"Length", "[", "\[CapitalPhi]", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DOFSolve", "[", 
    RowBox[{"el_", ",", "derivs_", ",", "\[CapitalPhi]_", ",", "x_"}], "]"}], 
   ":=", 
   RowBox[{"el", "\[Rule]", 
    RowBox[{"SuccessivePDESolve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"DOFJacobian", "[", 
         RowBox[{"\[CapitalPhi]", ",", "x"}], "]"}], ".", "derivs"}], "/.", 
       RowBox[{"{", 
        RowBox[{"el", "\[Rule]", 
         RowBox[{"el", "@@", "x"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      "el", ",", "x"}], "]"}]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQPWHSqaXsM147LrpouBxEX/n1YAOITnj9Gkz/jX7j
ygmk9Xb/B9Mfym9NB9GXhQ3mgGjNl2KLQPQ8fZHFINptn89BbiA9aaPhYRDt
1tHwEES3uPA+AtGLYjew8gDp4/2CbCA6sKWR4RqQ5g/aDabX7Tp5QG/ma8dT
SoKHQPQesZnHQfS2ObanQLSIfNYrEL0gV+g3iDZKS+TWB9LCcxrBtMWZVxsM
gLT73KUbQbSgzM+b++e9dkz9r3ILRIsJn9vwedVrx7wlH8E0m+3KfSBa4+QH
MK3Se/MuiBbZ5v0ARE+YG/IaRHMpOr4B0Tq3vL6C6DOGMn9A9PqDVx0Ddr12
PDCP3QlEAwDJfLO2
  "],ExpressionUUID->"89627050-0bd7-46c6-a658-29ffd095d0bf"],

Cell["First run initialization cells from notebook 1!", "Text",
 CellChangeTimes->{{3.721457728652178*^9, 3.721457746414501*^9}},
 FontWeight->"Bold",ExpressionUUID->"7e45232e-93d8-4f50-a27c-d8c7846349ae"],

Cell[CellGroupData[{

Cell["\<\
Solution of the gravitational closure equations for metric and area-metric \
cosmology\
\>", "Title",
 CellChangeTimes->{
  3.721457066503883*^9},ExpressionUUID->"c6f65a9e-41a4-4494-8b12-\
73168aa0d861"],

Cell[CellGroupData[{

Cell["Geometric degrees of freedom", "Section",
 InitializationGroup->True,
 CellChangeTimes->{
  3.700216784769245*^9, {3.7003800107837963`*^9, 3.700380014576461*^9}, {
   3.7003812486979637`*^9, 3.700381249159711*^9}, {3.70038137846879*^9, 
   3.7003813809183607`*^9}, {3.7042976584435873`*^9, 
   3.7042976629189377`*^9}, {3.7214581198737707`*^9, 
   3.721458120244042*^9}},ExpressionUUID->"9547c2a4-3d79-4f9e-b8a8-\
8f52e3dac7e1"],

Cell["\<\
From the first notebook we obtained the FLRW metric and the cosmological \
area-metric and computed the initial data surface tensor fields specified in \
the thesis from them:\
\>", "Text",
 InitializationGroup->True,
 CellChangeTimes->{{3.700380017374764*^9, 3.700380043647946*^9}, {
  3.700380145593383*^9, 3.700380189927137*^9}, {3.700380224809531*^9, 
  3.700380292894949*^9}, {3.70038032819606*^9, 3.700380343803472*^9}, {
  3.70038039456806*^9, 3.700380459635149*^9}, {3.700380540448848*^9, 
  3.700380571220516*^9}, {3.702793865311792*^9, 3.7027938710676327`*^9}, {
  3.7027939444615793`*^9, 3.7027940232692223`*^9}, {3.704008390030809*^9, 
  3.704008391071022*^9}, {3.7040084736265383`*^9, 3.70400848522832*^9}, {
  3.7214570979507637`*^9, 
  3.721457176811207*^9}},ExpressionUUID->"1524ab1a-f634-480b-8100-\
3a812054c741"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"gFLRW", "//", "MatrixForm"}], "*)"}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.704607151016835*^9, 3.704607156669182*^9}, {
  3.7135208391179743`*^9, 
  3.71352085089157*^9}},ExpressionUUID->"be77f611-74c8-49ba-8777-\
8668983448a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"gBarFLRW", "[", "0", "]"}], "//", "MatrixForm"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRW", "[", "0", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          FractionBox[
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"], 
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}]], "0", "0"},
         {"0", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"]}], "0"},
         {"0", "0", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRWFlatCartesian", "[", "0", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"], "0", "0"},
         {"0", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"], "0"},
         {"0", "0", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}]}]}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.703492444770309*^9, 3.7034925306179047`*^9}, {
   3.703492771505776*^9, 3.703492782341813*^9}, {3.704008339537685*^9, 
   3.704008342098529*^9}, {3.7046071671450043`*^9, 3.7046071693139277`*^9}, {
   3.712590894656088*^9, 3.7125908952591953`*^9}, {3.713520875076084*^9, 
   3.713520884748959*^9}, {3.7135210789967327`*^9, 3.713521089421666*^9}, 
   3.713521158231371*^9},ExpressionUUID->"e932b660-5faa-4b31-9a82-\
e294170af2f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"gBarFLRW", "[", "1", "]"}], "//", 
      RowBox[{"MatrixForm", "\[IndentingNewLine]", 
       RowBox[{"gBarFLRW", "[", "2", "]"}]}]}], "//", 
     RowBox[{"MatrixForm", "\[IndentingNewLine]", 
      RowBox[{"gBarFLRW", "[", "3", "]"}]}]}], "//", "MatrixForm"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRW", "[", "1", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          FractionBox[
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}], 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"]], "0", "0"},
         {"0", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"a", "[", "t", "]"}], "2"]}]], "0"},
         {"0", "0", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"a", "[", "t", "]"}], "2"]}]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRW", "[", "2", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"a", "[", "t", "]"}], "2"], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"k", " ", 
                SuperscriptBox["r", "2"]}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"c", "[", "t", "]"}], "2"]}]]}], "0", "0"},
         {"0", 
          FractionBox[
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"a", "[", "t", "]"}], "2"]}], 
           SuperscriptBox[
            RowBox[{"c", "[", "t", "]"}], "2"]], "0"},
         {"0", "0", 
          FractionBox[
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"a", "[", "t", "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
           SuperscriptBox[
            RowBox[{"c", "[", "t", "]"}], "2"]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRW", "[", "3", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0"},
         {"0", "0", "0"},
         {"0", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRWFlatCartesian", "[", "1", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"]], "0", "0"},
         {"0", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"]], "0"},
         {"0", "0", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRWFlatCartesian", "[", "2", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          FractionBox[
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"], 
           SuperscriptBox[
            RowBox[{"c", "[", "t", "]"}], "2"]], "0", "0"},
         {"0", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"], 
           SuperscriptBox[
            RowBox[{"c", "[", "t", "]"}], "2"]], "0"},
         {"0", "0", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"a", "[", "t", "]"}], "2"], 
           SuperscriptBox[
            RowBox[{"c", "[", "t", "]"}], "2"]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"gBarFLRWFlatCartesian", "[", "3", "]"}], "=", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0"},
         {"0", "0", "0"},
         {"0", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], ";"}]}]}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.702794141221149*^9, 3.7027941469308777`*^9}, 
   3.7027944226643963`*^9, {3.702794469093302*^9, 3.702794492720084*^9}, {
   3.7034925570018663`*^9, 3.70349257246516*^9}, {3.703492625928463*^9, 
   3.703492650150669*^9}, {3.703492715897575*^9, 3.703492738912326*^9}, {
   3.70400828311406*^9, 3.7040083024501553`*^9}, {3.704607176810692*^9, 
   3.704607188461604*^9}, {3.712590897916849*^9, 3.712590907682427*^9}, {
   3.713520892230233*^9, 3.713520943964768*^9}, {3.713521027158025*^9, 
   3.713521066668153*^9}},ExpressionUUID->"7d1b67c8-b731-4e8f-b032-\
057b299d468a"],

Cell[TextData[{
 "The construction equations parametrize the degrees of freedom of the metric \
by ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Phi]", "A"], TraditionalForm]],ExpressionUUID->
  "52a01686-f316-4233-81e6-0234404af94c"],
 ":"
}], "Text",
 InitializationGroup->True,
 CellChangeTimes->{{3.700380956965022*^9, 3.70038103707056*^9}, {
  3.7042977014739227`*^9, 
  3.7042977056924353`*^9}},ExpressionUUID->"8175ab6d-a94a-4bd7-86e1-\
a5644f25db1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox[
    SuperscriptBox["I", "A"], "\[Alpha]\[Beta]"], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Intertwiner", "=", 
     RowBox[{"SymmetrizedArray", "[", 
      RowBox[{"{", 
       RowBox[{GridBox[{
          {"1", "0", "0"},
          {"0", "0", "0"},
          {"0", "0", "0"}
         }], ",", GridBox[{
          {"0", 
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}], "0"},
          {
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0"},
          {"0", "0", "0"}
         }], ",", GridBox[{
          {"0", "0", 
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}]},
          {"0", "0", "0"},
          {
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}], "0", "0"}
         }], ",", GridBox[{
          {"0", "0", "0"},
          {"0", "1", "0"},
          {"0", "0", "0"}
         }], ",", GridBox[{
          {"0", "0", "0"},
          {"0", "0", 
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}]},
          {"0", 
           RowBox[{"1", "/", 
            RowBox[{"Sqrt", "[", "2", "]"}]}], "0"}
         }], ",", GridBox[{
          {"0", "0", "0"},
          {"0", "0", "0"},
          {"0", "0", "1"}
         }]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SuperscriptBox[
     SubscriptBox["I", "A"], "\[Alpha]\[Beta]"], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"InverseIntertwinerRaw", "=", 
     RowBox[{"SymmetrizedArray", "[", 
      RowBox[{
       RowBox[{"pos_", "\[RuleDelayed]", 
        RowBox[{"(", 
         RowBox[{"el", "@@", "pos"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"d", "-", "1"}], ",", 
         RowBox[{"d", "-", "1"}]}], "}"}], ",", 
       RowBox[{"Symmetric", "[", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"InverseIntertwiner", "=", 
     RowBox[{"SymmetrizedArray", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Normal", "[", "InverseIntertwinerRaw", "]"}], "/.", 
        RowBox[{"Solve", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Thread", "[", 
           RowBox[{"Flatten", "/@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"TensorContract", "[", 
               RowBox[{
                RowBox[{
                "Intertwiner", "\[TensorProduct]", "InverseIntertwinerRaw"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"2", ",", "5"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"3", ",", "6"}], "}"}]}], "}"}]}], "]"}], 
              "\[Equal]", 
              RowBox[{"IdentityMatrix", "[", "n", "]"}]}], ")"}]}], "]"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"Normal", "[", 
           RowBox[{"Flatten", "[", "InverseIntertwinerRaw", "]"}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}], " ", "//", "First"}], "]"}]}], 
    ";"}]}]}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.697868097012103*^9, 3.697868111645952*^9}, {
   3.697868514143098*^9, 3.697868549233983*^9}, 3.6978686428161793`*^9, {
   3.6978686967342663`*^9, 3.697868835420154*^9}, 3.697868894016596*^9, {
   3.697868962743947*^9, 3.697869020979101*^9}, {3.697869676344058*^9, 
   3.6978696810299807`*^9}, {3.697870261487455*^9, 3.697870382820733*^9}, {
   3.697978286727762*^9, 3.697978286988927*^9}, {3.697978325134324*^9, 
   3.697978325539645*^9}, {3.697979646885825*^9, 3.6979797552968063`*^9}, {
   3.7002032975144176`*^9, 3.700203298374673*^9}, {3.700209256526203*^9, 
   3.7002092746983557`*^9}, {3.700380689433921*^9, 3.7003806910203533`*^9}, {
   3.700381063712056*^9, 3.700381146664482*^9}, {3.700385601228866*^9, 
   3.700385603284548*^9}, {3.700385808171117*^9, 3.700385809195094*^9}, {
   3.700386166944474*^9, 3.700386203630486*^9}, {3.700386234406942*^9, 
   3.700386268084181*^9}, {3.700389641939912*^9, 3.70038966308782*^9}, {
   3.700389729385672*^9, 3.700389743064426*^9}, {3.702794598739622*^9, 
   3.70279459949687*^9}, {3.702794690828621*^9, 3.70279471571914*^9}, {
   3.7034930476848917`*^9, 3.7034930741701517`*^9}, {3.703493123802343*^9, 
   3.703493124240765*^9}, {3.703493182617587*^9, 3.7034931836391487`*^9}, {
   3.703493232844949*^9, 3.703493259947308*^9}, {3.703496504380309*^9, 
   3.70349658196736*^9}, 3.703500577091037*^9, {3.7035012253589077`*^9, 
   3.703501287450694*^9}, {3.7135011599165916`*^9, 3.713501163545933*^9}, {
   3.7135012190748262`*^9, 3.713501240619453*^9}, {3.713501290203988*^9, 
   3.713501421627838*^9}, {3.713501486982523*^9, 3.713501488729463*^9}, {
   3.713501691575938*^9, 3.713501713080783*^9}, {3.713501772369761*^9, 
   3.713501772831544*^9}, {3.713501846956341*^9, 3.713501883370121*^9}, {
   3.713501969837829*^9, 3.71350197882058*^9}, {3.7135025015691357`*^9, 
   3.713502504895965*^9}, {3.7135025836340637`*^9, 3.713502690097973*^9}, {
   3.7135028336655083`*^9, 
   3.713502897208406*^9}},ExpressionUUID->"b597441b-c161-444a-bce6-\
d169216db6ed"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalPhi]g", "=", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPhi]", "[", "A", "]"}], "\[Rule]", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Intertwiner", "[", 
             RowBox[{"[", 
              RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{"Inverse", "[", 
              RowBox[{"gBarFLRW", "[", "0", "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", "1", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Beta]", ",", "1", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
      "gDOFAssumptions"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalPhi]g", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.697868097012103*^9, 3.697868111645952*^9}, {
   3.697868514143098*^9, 3.697868549233983*^9}, 3.6978686428161793`*^9, {
   3.6978686967342663`*^9, 3.697868835420154*^9}, 3.697868894016596*^9, {
   3.697868962743947*^9, 3.697869020979101*^9}, {3.697869676344058*^9, 
   3.6978696810299807`*^9}, {3.697870261487455*^9, 3.697870382820733*^9}, {
   3.697978286727762*^9, 3.697978286988927*^9}, {3.697978325134324*^9, 
   3.697978325539645*^9}, {3.697979646885825*^9, 3.6979797552968063`*^9}, {
   3.7002032975144176`*^9, 3.700203298374673*^9}, {3.700209256526203*^9, 
   3.7002092746983557`*^9}, {3.700380689433921*^9, 3.7003806910203533`*^9}, {
   3.700381063712056*^9, 3.700381146664482*^9}, {3.700385601228866*^9, 
   3.700385603284548*^9}, {3.700385808171117*^9, 3.700385809195094*^9}, {
   3.700386166944474*^9, 3.700386203630486*^9}, {3.700386234406942*^9, 
   3.700386268084181*^9}, {3.700389641939912*^9, 3.70038966308782*^9}, {
   3.700389729385672*^9, 3.700389743064426*^9}, {3.702794598739622*^9, 
   3.70279459949687*^9}, {3.702794690828621*^9, 3.70279471571914*^9}, {
   3.7034930476848917`*^9, 3.7034930741701517`*^9}, {3.703493123802343*^9, 
   3.703493124240765*^9}, {3.703493182617587*^9, 3.7034931836391487`*^9}, {
   3.703493232844949*^9, 3.703493259947308*^9}, {3.703496504380309*^9, 
   3.70349658196736*^9}, 3.703500577091037*^9, {3.7035783791683073`*^9, 
   3.703578381959156*^9}, {3.703578510835161*^9, 3.703578525971231*^9}, {
   3.703588676047299*^9, 3.703588732479734*^9}, {3.70419268424737*^9, 
   3.7041927026618633`*^9}, {3.704192763598723*^9, 3.704192763820199*^9}, {
   3.704297618416563*^9, 3.704297618988679*^9}, {3.70429978098517*^9, 
   3.704299789925887*^9}, 
   3.7125909217226067`*^9},ExpressionUUID->"5e058e1d-a121-4ec8-95f0-\
1d646c03d369"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "3", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "4", "]"}], "\[Rule]", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "5", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "6", "]"}], "\[Rule]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.704297550751399*^9, 3.70429761934945*^9, 3.704299790922783*^9, 
   3.704606011586684*^9, 3.704607335495821*^9, 3.707202045744471*^9, 
   3.707212325277706*^9, 3.7072125479096107`*^9, 3.707212877362071*^9, 
   3.707560089685684*^9, 3.707812583252385*^9, 3.708934180379829*^9, 
   3.709362981471307*^9, 3.7098826779011517`*^9, 3.709907208179103*^9, 
   3.710053502418105*^9, 3.710148940350415*^9, 3.710149127915905*^9, 
   3.710667833329835*^9, 3.710936193528123*^9, 3.711040248596738*^9, 
   3.711355959263085*^9, 3.711361463398365*^9, 3.711700831546254*^9, 
   3.7123952352362347`*^9, 3.71240725621103*^9, 3.712408760824274*^9, 
   3.7124110876277533`*^9, 3.712590925476924*^9, 3.712651789501914*^9, 
   3.712829960534068*^9, 3.713342872449396*^9, 3.713346657662529*^9, 
   3.7135029748093033`*^9, 3.713518426423903*^9, 3.713519896923242*^9, 
   3.713520166476778*^9, 3.713520607633747*^9, 3.713520959134789*^9, 
   3.7135210003471823`*^9, 3.713521093730608*^9, 3.713521187427259*^9, 
   3.713521269490325*^9, 3.713521346623631*^9, 3.713521418364318*^9, 
   3.713521474293003*^9, {3.713600821349807*^9, 3.713600825965456*^9}, {
   3.715905714618602*^9, 3.715905720245226*^9}, 3.7193995540024977`*^9, 
   3.7193998344626226`*^9, 3.72145703917797*^9, 3.721457490791821*^9, 
   3.721457558357313*^9, 3.7214576823449707`*^9, 3.721457780740048*^9, {
   3.721555999349036*^9, 
   3.721556004478138*^9}},ExpressionUUID->"d3cd0f98-7522-4ef5-b959-\
5f168799e93d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalPhi]gFlatCartesian", "=", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPhi]", "[", "A", "]"}], "\[Rule]", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Intertwiner", "[", 
             RowBox[{"[", 
              RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
            "*", 
            RowBox[{
             RowBox[{"Inverse", "[", 
              RowBox[{"gBarFLRWFlatCartesian", "[", "0", "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", "1", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Beta]", ",", "1", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
      "gDOFAssumptions"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalPhi]gFlatCartesian", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.7072020549017067`*^9, 3.707202080171068*^9}, {
  3.712590936132576*^9, 
  3.7125909366713533`*^9}},ExpressionUUID->"a8dcf3f8-6c69-482e-96a0-\
de2cc2b32fa6"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "3", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "4", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "5", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "6", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.707202080965478*^9, 3.707212325379801*^9, 3.707212548029935*^9, 
   3.707212877479048*^9, 3.707560089772965*^9, 3.707812583362146*^9, 
   3.708934180448782*^9, 3.709362981545969*^9, 3.7098826779688168`*^9, 
   3.7099072082799664`*^9, 3.710053502482573*^9, 3.710149128019349*^9, 
   3.710667833411804*^9, 3.710936193594101*^9, 3.71104024868189*^9, 
   3.7113559593097878`*^9, 3.711361463499825*^9, 3.7117008316126347`*^9, 
   3.7123952353375597`*^9, 3.7124072562778473`*^9, 3.712408760901972*^9, 
   3.712411087727394*^9, 3.71259093926353*^9, 3.712651789564521*^9, 
   3.712829960635847*^9, 3.713342872493268*^9, 3.713346657728635*^9, 
   3.7135029772786093`*^9, 3.7135184265913258`*^9, 3.713519897023374*^9, 
   3.713520166558404*^9, 3.71352060769981*^9, 3.713521000456079*^9, 
   3.7135210937969303`*^9, 3.713521187479732*^9, 3.713521269573934*^9, 
   3.713521346694522*^9, 3.713521418428587*^9, 3.713521474362657*^9, {
   3.713600821397031*^9, 3.713600826017362*^9}, {3.715905714677347*^9, 
   3.715905720450612*^9}, 3.719399559711975*^9, 3.7193998345531263`*^9, 
   3.721457039248505*^9, 3.72145749089223*^9, 3.721457564712994*^9, 
   3.7214576823740673`*^9, 3.7214577807987623`*^9, {3.721555999397772*^9, 
   3.721556004546547*^9}},ExpressionUUID->"fedd2042-82a6-4ab4-a81e-\
950d374a82c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalPhi]G", "=", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", "A", "]"}], "\[Rule]", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intertwiner", "[", 
               RowBox[{"[", 
                RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
              "*", 
              RowBox[{
               RowBox[{"gBarFLRW", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", 
            RowBox[{"n", "+", "A"}], "]"}], "\[Rule]", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"InverseIntertwiner", "[", 
               RowBox[{"[", 
                RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
              "*", 
              RowBox[{
               RowBox[{"gBarFLRW", "[", "2", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", 
            RowBox[{
             RowBox[{"2", "*", "n"}], "+", "A"}], "]"}], "\[Rule]", "0"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}], ",", "gDOFAssumptions"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}], ",", 
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "\[Rule]", "c"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalPhi]G", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.704299796287002*^9, 3.704299808390911*^9}, {
  3.7125909440752277`*^9, 
  3.7125909454381123`*^9}},ExpressionUUID->"5e894399-4253-446b-b910-\
dc451ff583ca"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "3", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "4", "]"}], "\[Rule]", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "5", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "6", "]"}], "\[Rule]", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "7", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["a", "2"], 
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}], ")"}]}]]}]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "8", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "9", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "10", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "11", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "12", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "13", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "14", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "15", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "16", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "17", "]"}], "\[Rule]", "0"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.704297838324312*^9, 3.704299813673895*^9, 3.704606011742202*^9, 
   3.704607335566636*^9, 3.707203458002255*^9, 3.7072123254800673`*^9, 
   3.707212548131528*^9, 3.707212877596828*^9, 3.707560089869022*^9, 
   3.707812583478409*^9, 3.70893418051512*^9, 3.709362981611055*^9, 
   3.709882678036078*^9, 3.7099072083623943`*^9, 3.7100535025497313`*^9, 
   3.710149128119418*^9, 3.710667833471877*^9, 3.7109361936589937`*^9, 
   3.71104024876265*^9, 3.7113559593686867`*^9, 3.711361463596304*^9, 
   3.711700831678667*^9, 3.7123952354342957`*^9, 3.712407256343445*^9, 
   3.7124087609498253`*^9, 3.712411087827305*^9, 3.71259094991124*^9, 
   3.7126517896332073`*^9, 3.71282996073558*^9, 3.713342872552133*^9, 
   3.71334665781605*^9, 3.713502980072028*^9, 3.7135184268404207`*^9, 
   3.7135198971237698`*^9, 3.713520166642926*^9, 3.713520607766567*^9, 
   3.7135210005148582`*^9, 3.7135210938478003`*^9, 3.713521187545679*^9, 
   3.713521269656708*^9, 3.713521346786491*^9, 3.713521418515048*^9, 
   3.7135214744568777`*^9, {3.713600821445004*^9, 3.713600826084865*^9}, {
   3.7159057147443333`*^9, 3.715905720529154*^9}, 3.719399579145368*^9, 
   3.719399834635281*^9, 3.7214570393104963`*^9, 3.721457490975733*^9, 
   3.721457585893002*^9, 3.721457682409974*^9, 3.721457780866415*^9, {
   3.721555999462821*^9, 
   3.721556004639522*^9}},ExpressionUUID->"496b429b-1a2a-4722-94d3-\
dccc24993966"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalPhi]GFlatCartesian", "=", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", "A", "]"}], "\[Rule]", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Intertwiner", "[", 
               RowBox[{"[", 
                RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
              "*", 
              RowBox[{
               RowBox[{"gBarFLRWFlatCartesian", "[", "1", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", 
            RowBox[{"n", "+", "A"}], "]"}], "\[Rule]", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"InverseIntertwiner", "[", 
               RowBox[{"[", 
                RowBox[{"A", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
              "*", 
              RowBox[{
               RowBox[{"gBarFLRWFlatCartesian", "[", "2", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPhi]", "[", 
            RowBox[{
             RowBox[{"2", "*", "n"}], "+", "A"}], "]"}], "\[Rule]", "0"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "5"}], "}"}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}], ",", "gDOFAssumptions"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}], ",", 
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "\[Rule]", "c"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalPhi]GFlatCartesian", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.707203463082842*^9, 3.707203474429731*^9}, {
  3.712590957058147*^9, 
  3.7125909596247263`*^9}},ExpressionUUID->"c903264d-6717-487e-aae4-\
414c5da02fcd"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "1", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "2", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "3", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "4", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "5", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "6", "]"}], "\[Rule]", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "7", "]"}], "\[Rule]", 
       FractionBox[
        SuperscriptBox["a", "2"], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "8", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "9", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "10", "]"}], "\[Rule]", 
       FractionBox[
        SuperscriptBox["a", "2"], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "11", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "12", "]"}], "\[Rule]", 
       FractionBox[
        SuperscriptBox["a", "2"], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "13", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "14", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "15", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "16", "]"}], "\[Rule]", "0"}]},
     {
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", "17", "]"}], "\[Rule]", "0"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.707203480149891*^9, 3.7072123255795603`*^9, 3.707212548230774*^9, 
   3.707212877731032*^9, 3.707560089954566*^9, 3.70781258359505*^9, 
   3.7089341805820103`*^9, 3.709362981677948*^9, 3.709882678101984*^9, 
   3.70990720846415*^9, 3.710053502607787*^9, 3.710149128218548*^9, 
   3.71066783353972*^9, 3.710936193706883*^9, 3.71104024884657*^9, 
   3.71135595943441*^9, 3.7113614636988792`*^9, 3.71170083174645*^9, 
   3.712395235601852*^9, 3.7124072564106493`*^9, 3.712408761000646*^9, 
   3.712411087926688*^9, 3.712590962544743*^9, 3.712651789697516*^9, 
   3.7128299608351803`*^9, 3.7133428726196117`*^9, 3.713346657897017*^9, 
   3.7135029821233*^9, 3.713518427057124*^9, 3.713519897206663*^9, 
   3.7135201667251*^9, 3.713520607834276*^9, 3.713521000732937*^9, 
   3.713521093913514*^9, 3.713521187611206*^9, 3.7135212697412043`*^9, 
   3.713521346869646*^9, 3.713521418598701*^9, 3.713521474539855*^9, {
   3.71360082149749*^9, 3.713600826149517*^9}, {3.715905714812141*^9, 
   3.715905720660611*^9}, 3.7193995935823298`*^9, 3.71939983474675*^9, 
   3.72145703937853*^9, 3.7214574910586042`*^9, 3.721457601173271*^9, 
   3.721457682440699*^9, 3.721457780932405*^9, {3.721555999529262*^9, 
   3.721556004712133*^9}},ExpressionUUID->"eb618a7f-b3ec-48b4-8cdf-\
ac1144883c5e"]
}, Open  ]],

Cell["\<\
The underlying degrees of freedom of our symmetric geometry are an \
alternative parametrization:\
\>", "Text",
 InitializationGroup->True,
 CellChangeTimes->{{3.704297687948436*^9, 
  3.704297776051433*^9}},ExpressionUUID->"4505f843-6a13-47de-bfb6-\
c2adc06915dc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DOFTrafo", "[", 
    RowBox[{"\[CapitalPhi]_", ",", "assumptions_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Join", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#1", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "@@", 
            RowBox[{"xx", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;"}], "]"}], "]"}]}], "\[Rule]", 
           RowBox[{"#1", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}], "/@", 
        "\[CapitalPhi]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#1", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "@@", 
                 RowBox[{"xx", "[", 
                  RowBox[{"[", 
                   RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}]}], "]"}], 
              "\[Rule]", 
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}]}], "]"}]}], 
             ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], ")"}], "&"}], "/@", 
         "\[CapitalPhi]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#1", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "@@", 
                 RowBox[{"xx", "[", 
                  RowBox[{"[", 
                   RowBox[{"2", ";;"}], "]"}], "]"}]}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Beta]", "+", "1"}], "]"}], "]"}]}], "]"}], 
              "\[Rule]", 
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}], ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Beta]", "+", "1"}], "]"}], "]"}]}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "1", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "\[Alpha]", ",", 
               RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], ")"}], "&"}], "/@", 
         "\[CapitalPhi]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
     "assumptions"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalPhi]gTrafo", "=", 
   RowBox[{"DOFTrafo", "[", 
    RowBox[{"\[CapitalPhi]g", ",", 
     RowBox[{"gDOFAssumptions", "/.", 
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalPhi]gFlatCartesianTrafo", "=", 
   RowBox[{"DOFTrafo", "[", 
    RowBox[{"\[CapitalPhi]gFlatCartesian", ",", 
     RowBox[{"gDOFAssumptions", "/.", 
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalPhi]GTrafo", "=", 
   RowBox[{"DOFTrafo", "[", 
    RowBox[{"\[CapitalPhi]G", ",", "coordinateAssumptions"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalPhi]GFlatCartesianTrafo", "=", 
   RowBox[{"DOFTrafo", "[", 
    RowBox[{"\[CapitalPhi]GFlatCartesian", ",", "coordinateAssumptions"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xg", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "r", ",", "\[Theta]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xgFlatCartesian", "=", 
   RowBox[{"{", "a", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xG", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "c", ",", "r", ",", "\[Theta]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xGFlatCartesian", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "c"}], "}"}]}], ";"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.704192767182716*^9, 3.704192804414431*^9}, {
  3.704192876841629*^9, 3.7041929195509768`*^9}, {3.704297575237411*^9, 
  3.704297621841115*^9}, {3.704297976589616*^9, 3.70429797719697*^9}, {
  3.704298027499745*^9, 3.7042982144879713`*^9}, {3.704298251267061*^9, 
  3.704298497330666*^9}, {3.7042985423760223`*^9, 3.704298552545004*^9}, {
  3.704299820811739*^9, 3.704299906186659*^9}, {3.707213559150977*^9, 
  3.707213598102627*^9}, {3.70721411321241*^9, 3.707214144485825*^9}, {
  3.707220698878598*^9, 3.7072207087646523`*^9}, {3.709905883592329*^9, 
  3.709905891926917*^9}},ExpressionUUID->"8e43664b-0a67-45fa-ac2a-\
cbd19837f4c3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gDOFFlatCartesianJacobian", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPhi]gFlatCartesian", "[", 
        RowBox[{"[", 
         RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"xgFlatCartesian", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "xgFlatCartesian", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"A", ",", 
       RowBox[{"Length", "[", "\[CapitalPhi]gFlatCartesian", "]"}]}], "}"}]}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"gDOFFlatCartesianJacobian", "//", "MatrixForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710134493730237*^9, 3.7101345564577503`*^9}, {
  3.710134606024528*^9, 3.7101346321519613`*^9}, {3.710669793712557*^9, 
  3.710669796319976*^9}, {3.71067011361827*^9, 
  3.7106701235684233`*^9}},ExpressionUUID->"92c6d10c-6db9-47a8-9e3a-\
95e04ba1640d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}], "0", "0", 
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}], "0", 
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.710669839863717*^9, 3.7106701267160997`*^9, 3.7109361939101267`*^9, 
   3.711040249037703*^9, 3.71135595970098*^9, 3.7113614639000587`*^9, 
   3.7117008319229918`*^9, 3.712395235985759*^9, 3.7124072565940733`*^9, 
   3.712408761174781*^9, 3.7124110881259604`*^9, 3.712590973327022*^9, 
   3.7126517898924417`*^9, 3.7128299610197906`*^9, 3.713342872835412*^9, 
   3.713346658084141*^9, 3.713502992777334*^9, 3.713518427579886*^9, 
   3.7135198973729973`*^9, 3.7135201668914337`*^9, 3.713520608001815*^9, 
   3.713521000927251*^9, 3.713521094030821*^9, 3.7135211877952213`*^9, 
   3.713521269833928*^9, 3.7135213470368147`*^9, 3.713521418779237*^9, 
   3.713521474710672*^9, {3.713600821682556*^9, 3.7136008263499947`*^9}, {
   3.715905714989974*^9, 3.715905720962775*^9}, 3.71939965089327*^9, 
   3.7193998349601717`*^9, 3.721457039628767*^9, 3.721457237653365*^9, 
   3.721457491312127*^9, 3.721457683013041*^9, 3.721457781126646*^9, {
   3.721555999731317*^9, 
   3.721556004813024*^9}},ExpressionUUID->"7084e364-c94c-4059-b053-\
e9d533dbf205"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"GDOFFlatCartesianJacobian", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPhi]GFlatCartesian", "[", 
        RowBox[{"[", 
         RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"xGFlatCartesian", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "xGFlatCartesian", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"A", ",", 
       RowBox[{"Length", "[", "\[CapitalPhi]GFlatCartesian", "]"}]}], "}"}]}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GDOFFlatCartesianJacobian", "//", "MatrixForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710134493730237*^9, 3.7101345564577503`*^9}, {
  3.710134606024528*^9, 3.7101346321519613`*^9}, {3.710669793712557*^9, 
  3.710669796319976*^9}},ExpressionUUID->"7e94acb7-72ce-48de-8291-\
7c9487ce8c7a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}], "0", "0", 
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}], "0", 
      RowBox[{"-", 
       FractionBox["2", 
        SuperscriptBox["a", "3"]]}], 
      FractionBox[
       RowBox[{"2", " ", "a"}], 
       SuperscriptBox["c", "2"]], "0", "0", 
      FractionBox[
       RowBox[{"2", " ", "a"}], 
       SuperscriptBox["c", "2"]], "0", 
      FractionBox[
       RowBox[{"2", " ", "a"}], 
       SuperscriptBox["c", "2"]], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["a", "2"]}], 
        SuperscriptBox["c", "3"]]}], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["a", "2"]}], 
        SuperscriptBox["c", "3"]]}], "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["a", "2"]}], 
        SuperscriptBox["c", "3"]]}], "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.710669839863717*^9, 3.7109361939586697`*^9, 3.7110402491105747`*^9, 
   3.711355959767434*^9, 3.711361463998629*^9, 3.711700831996763*^9, 
   3.712395236086623*^9, 3.7124072566609507`*^9, 3.712408761230537*^9, 
   3.712411088225066*^9, 3.712590975356452*^9, 3.712651789949788*^9, 
   3.712829961118869*^9, 3.7133428728814583`*^9, 3.713346658164702*^9, 
   3.71350300086355*^9, 3.7135184276940393`*^9, 3.713519897453889*^9, 
   3.713520166978252*^9, 3.713520608065037*^9, 3.71352100098076*^9, 
   3.713521094097488*^9, 3.713521187913454*^9, 3.7135212699073973`*^9, 
   3.7135213471185083`*^9, 3.713521418844161*^9, 3.713521474788608*^9, {
   3.713600821750246*^9, 3.713600826517025*^9}, {3.715905715043935*^9, 
   3.715905721178856*^9}, 3.7193998034930983`*^9, 3.7193998349864073`*^9, 
   3.721457039696947*^9, 3.721457239153873*^9, 3.721457491524992*^9, 
   3.7214576830800667`*^9, 3.721457781199622*^9, {3.721555999795307*^9, 
   3.721556004879032*^9}},ExpressionUUID->"ab506e98-3ba3-46ad-af34-\
feec5a1274b5"]
}, Open  ]],

Cell["\<\
From the geometric degrees of freedom we can compute the kinematical \
coefficients for the construction equations:\
\>", "Text",
 InitializationGroup->True,
 CellChangeTimes->{{3.700380296701548*^9, 3.700380297894834*^9}, {
  3.7003811828853197`*^9, 3.700381183891945*^9}, {3.704298581470689*^9, 
  3.704298608818232*^9}},ExpressionUUID->"88f9a319-85e9-4c48-bbaa-\
dec64d305420"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Pggeneral", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"InverseIntertwiner", "\[TensorProduct]", 
          RowBox[{"\[CapitalPhi]g", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Join", "[", 
       RowBox[{"coordinateAssumptions", ",", 
        RowBox[{"gDOFAssumptions", "/.", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pg", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"Normal", "[", "Pggeneral", "]"}], "/.", "\[CapitalPhi]g"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Pg", "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PgFlatCartesian", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"Normal", "[", "Pggeneral", "]"}], "/.", 
     "\[CapitalPhi]gFlatCartesian"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PgFlatCartesian", "//", "MatrixForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{
  3.697870402647484*^9, 3.697978331196974*^9, 3.697978428668172*^9, 
   3.700381209220233*^9, {3.7003895353998737`*^9, 3.700389623322452*^9}, {
   3.700389671399103*^9, 3.7003896753346243`*^9}, {3.702794742265608*^9, 
   3.702794744967999*^9}, {3.703493139128703*^9, 3.703493139486961*^9}, {
   3.7034931960782146`*^9, 3.703493248981573*^9}, {3.703500590455874*^9, 
   3.7035005911659527`*^9}, {3.703593485230768*^9, 3.703593496628573*^9}, {
   3.704299593713394*^9, 3.7042996445259*^9}, {3.704299938229933*^9, 
   3.704299949691659*^9}, {3.713503017001009*^9, 3.713503136213716*^9}, {
   3.713503286285203*^9, 3.71350328637189*^9}, {3.713503352533695*^9, 
   3.7135034016434526`*^9}, {3.713503431875001*^9, 3.713503446691193*^9}, {
   3.713503552443719*^9, 3.7135036054895782`*^9}, {3.713503686624652*^9, 
   3.713503755738055*^9}, {3.713509540976446*^9, 
   3.713509554936193*^9}},ExpressionUUID->"e2a2ac97-bd39-4c8d-a25e-\
fdf07b0b1bb9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], 
        SuperscriptBox["a", "2"]]}], "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}], "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
    StructuredArray[SymmetrizedArray, {3, 3}, 
     StructuredArray`StructuredData[
     SymmetrizedArray, {{1, 
        1} -> -$CellContext`a^(-2) (1 - $CellContext`k $CellContext`r^2), {2, 
        2} -> -$CellContext`a^(-2) $CellContext`r^(-2), {3, 
        3} -> -$CellContext`a^(-2) $CellContext`r^(-2) 
        Csc[$CellContext`\[Theta]]^2}, 
      Symmetric[{1, 2}]]]]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{{3.7135035590833797`*^9, 3.713503605957563*^9}, {
   3.713503698452752*^9, 3.7135037566476717`*^9}, 3.713509555309272*^9, 
   3.7135184278567867`*^9, 3.713519897539747*^9, 3.713520167057871*^9, 
   3.7135206081332397`*^9, 3.713521001047962*^9, 3.713521094163619*^9, 
   3.713521188045514*^9, 3.713521269990953*^9, 3.7135213472020397`*^9, 
   3.713521418931182*^9, 3.7135214748744097`*^9, {3.7136008218157587`*^9, 
   3.7136008269405622`*^9}, {3.715905715110964*^9, 3.715905721379758*^9}, 
   3.7193998351164007`*^9, 3.721457039761509*^9, 3.721457243821063*^9, 
   3.72145749169022*^9, 3.721457683297699*^9, 3.721457781264835*^9, {
   3.7215559998577147`*^9, 
   3.721556004941578*^9}},ExpressionUUID->"10365c35-4bfd-4e10-874d-\
1a55138b78e0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}], "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}], "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["a", "2"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
    StructuredArray[SymmetrizedArray, {3, 3}, 
     StructuredArray`StructuredData[
     SymmetrizedArray, {{1, 1} -> (-1) $CellContext`a^(-2), {2, 
        2} -> (-1) $CellContext`a^(-2), {3, 3} -> (-1) $CellContext`a^(-2)}, 
      Symmetric[{1, 2}]]]]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{{3.7135035590833797`*^9, 3.713503605957563*^9}, {
   3.713503698452752*^9, 3.7135037566476717`*^9}, 3.713509555309272*^9, 
   3.7135184278567867`*^9, 3.713519897539747*^9, 3.713520167057871*^9, 
   3.7135206081332397`*^9, 3.713521001047962*^9, 3.713521094163619*^9, 
   3.713521188045514*^9, 3.713521269990953*^9, 3.7135213472020397`*^9, 
   3.713521418931182*^9, 3.7135214748744097`*^9, {3.7136008218157587`*^9, 
   3.7136008269405622`*^9}, {3.715905715110964*^9, 3.715905721379758*^9}, 
   3.7193998351164007`*^9, 3.721457039761509*^9, 3.721457243821063*^9, 
   3.72145749169022*^9, 3.721457683297699*^9, 3.721457781264835*^9, {
   3.7215559998577147`*^9, 
   3.721556004961625*^9}},ExpressionUUID->"6f26d468-3a7d-4e45-9b00-\
4e841a0d5a64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"PGgeneral", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"1", "/", "6"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Activate", "@", 
         RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
            RowBox[{"InverseIntertwiner", ",", 
             RowBox[{"\[CapitalPhi]GTrafo", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"1", ";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
             "InverseIntertwiner", ",", 
             RowBox[{"\[CapitalPhi]GTrafo", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"1", ";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
             "Intertwiner", ",", 
             RowBox[{"\[CapitalPhi]GTrafo", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"n", "+", "1"}], ";;", 
                 RowBox[{"2", "*", "n"}]}], ",", "1"}], "]"}], "]"}]}], "]"}],
            ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "8"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"9", ",", "12"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"7", ",", "11"}], "}"}]}], "}"}]}], 
          "\[IndentingNewLine]", "]"}]}], "-", 
        RowBox[{
         RowBox[{"TensorContract", "[", 
          RowBox[{
           RowBox[{"InverseIntertwiner", "\[TensorProduct]", 
            RowBox[{"\[CapitalPhi]GTrafo", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"1", ";;", "n"}], ",", "1"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], 
             StyleBox["}", "Input"]}], "}"}]}], "]"}], "*", 
         RowBox[{"Activate", "@", 
          RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
             RowBox[{"InverseIntertwiner", ",", 
              RowBox[{"\[CapitalPhi]GTrafo", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"1", ";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
              "Intertwiner", ",", 
              RowBox[{"\[CapitalPhi]GTrafo", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"n", "+", "1"}], ";;", 
                  RowBox[{"2", "*", "n"}]}], ",", "1"}], "]"}], "]"}]}], 
             "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"5", ",", "8"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "6"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"3", ",", "7"}], "}"}]}], "}"}]}], 
           "\[IndentingNewLine]", "]"}]}]}]}], ")"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PG", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Normal", "[", "PGgeneral", "]"}], "/.", 
       "\[CapitalPhi]GTrafo"}], ",", "coordinateAssumptions"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PG", "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PGFlatCartesian", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Normal", "[", "PGgeneral", "]"}], "/.", 
       "\[CapitalPhi]GFlatCartesianTrafo"}], ",", "coordinateAssumptions"}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PGFlatCartesian", "//", "MatrixForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.7107523140072317`*^9, 3.710752411941062*^9}, {
   3.710752511878407*^9, 3.710752655047782*^9}, {3.7107528891613483`*^9, 
   3.710752901622613*^9}, {3.710753620771757*^9, 3.7107536268091927`*^9}, {
   3.710753721651267*^9, 3.710753724512753*^9}, {3.710754179121332*^9, 
   3.710754179504386*^9}, {3.710754220794785*^9, 3.710754230483665*^9}, 
   3.71075459396802*^9, {3.710754627058649*^9, 3.71075471062554*^9}, {
   3.713503198959845*^9, 3.713503203535122*^9}, {3.71350324862153*^9, 
   3.7135032745491657`*^9}, {3.713503504371616*^9, 3.7135035396694803`*^9}, {
   3.713503632955358*^9, 3.713503633064345*^9}, {3.713503702314266*^9, 
   3.71350372043314*^9}, {3.7135037754820633`*^9, 
   3.713503827686507*^9}},ExpressionUUID->"52b3a998-06f2-4507-ac61-\
a6c1398d6e58"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], 
       RowBox[{"3", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["c", "2"]}]], "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["c", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}], "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["c", "2"], " ", 
         SuperscriptBox["r", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
    StructuredArray[SymmetrizedArray, {3, 3}, 
     StructuredArray`StructuredData[
     SymmetrizedArray, {{1, 1} -> 
       Rational[
         1, 3] $CellContext`a^(-2) $CellContext`c^(-2) (-1 + $CellContext`k \
$CellContext`r^2), {2, 2} -> 
       Rational[-1, 
          3] $CellContext`a^(-2) $CellContext`c^(-2) $CellContext`r^(-2), {3, 
        3} -> Rational[-1, 
          3] $CellContext`a^(-2) $CellContext`c^(-2) $CellContext`r^(-2) 
        Csc[$CellContext`\[Theta]]^2}, 
      Symmetric[{1, 2}]]]]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{{3.710754645195374*^9, 3.710754711728826*^9}, 
   3.71093619428802*^9, 3.711040249468601*^9, 3.7113559606333437`*^9, 
   3.711361464479691*^9, 3.7117008323246193`*^9, 3.712395236579213*^9, 
   3.712407256985819*^9, 3.712408761589595*^9, 3.71241108868784*^9, 
   3.7125909919713907`*^9, 3.712651790269981*^9, 3.7128299615668*^9, 
   3.713342873235928*^9, 3.713346658661036*^9, 3.7135034617213917`*^9, {
   3.7135035320548573`*^9, 3.713503540403343*^9}, 3.713503633657011*^9, {
   3.713503765287066*^9, 3.7135038281879*^9}, 3.713518428222218*^9, 
   3.713519897982583*^9, 3.713520167438579*^9, 3.713520608343196*^9, 
   3.71352100125801*^9, 3.713521094297141*^9, 3.713521188178334*^9, 
   3.713521270091484*^9, 3.713521347533524*^9, 3.71352141913974*^9, 
   3.7135214750876637`*^9, {3.713600822029051*^9, 3.7136008270829153`*^9}, {
   3.715905715319996*^9, 3.715905721776534*^9}, 3.7193998353931723`*^9, 
   3.7214570399372063`*^9, 3.721457246371891*^9, 3.72145749207101*^9, 
   3.72145768394422*^9, 3.7214577815052147`*^9, {3.7215560000672503`*^9, 
   3.72155600504311*^9}},ExpressionUUID->"9069075e-b128-4941-847a-\
7292fffcb10b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["c", "2"]}]]}], "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["c", "2"]}]]}], "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["c", "2"]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
    StructuredArray[SymmetrizedArray, {3, 3}, 
     StructuredArray`StructuredData[
     SymmetrizedArray, {{1, 1} -> 
       Rational[-1, 3] $CellContext`a^(-2) $CellContext`c^(-2), {2, 2} -> 
       Rational[-1, 3] $CellContext`a^(-2) $CellContext`c^(-2), {3, 3} -> 
       Rational[-1, 3] $CellContext`a^(-2) $CellContext`c^(-2)}, 
      Symmetric[{1, 2}]]]]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{{3.710754645195374*^9, 3.710754711728826*^9}, 
   3.71093619428802*^9, 3.711040249468601*^9, 3.7113559606333437`*^9, 
   3.711361464479691*^9, 3.7117008323246193`*^9, 3.712395236579213*^9, 
   3.712407256985819*^9, 3.712408761589595*^9, 3.71241108868784*^9, 
   3.7125909919713907`*^9, 3.712651790269981*^9, 3.7128299615668*^9, 
   3.713342873235928*^9, 3.713346658661036*^9, 3.7135034617213917`*^9, {
   3.7135035320548573`*^9, 3.713503540403343*^9}, 3.713503633657011*^9, {
   3.713503765287066*^9, 3.7135038281879*^9}, 3.713518428222218*^9, 
   3.713519897982583*^9, 3.713520167438579*^9, 3.713520608343196*^9, 
   3.71352100125801*^9, 3.713521094297141*^9, 3.713521188178334*^9, 
   3.713521270091484*^9, 3.713521347533524*^9, 3.71352141913974*^9, 
   3.7135214750876637`*^9, {3.713600822029051*^9, 3.7136008270829153`*^9}, {
   3.715905715319996*^9, 3.715905721776534*^9}, 3.7193998353931723`*^9, 
   3.7214570399372063`*^9, 3.721457246371891*^9, 3.72145749207101*^9, 
   3.72145768394422*^9, 3.7214577815052147`*^9, {3.7215560000672503`*^9, 
   3.721556005060886*^9}},ExpressionUUID->"30e10ed8-738a-49aa-9ed1-\
6919beddc221"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Construct velocities", "Subsubsection",
 InitializationGroup->True,
 CellChangeTimes->{{3.710665713844817*^9, 3.710665720907683*^9}, {
  3.7214572622338867`*^9, 
  3.721457264955845*^9}},ExpressionUUID->"8967aae5-fae3-4012-9c05-\
2efb686c0777"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gFlatCartesianVelocity", "=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}]}], "*", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPhi]gFlatCartesian", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"a", "\[Rule]", 
         RowBox[{"a", "[", "t", "]"}]}], "}"}]}], ",", "t"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"gFlatCartesianVelocity", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.707218683985993*^9, 3.707218689876691*^9}, {
  3.710665769263131*^9, 3.7106657801349373`*^9}, {3.721457287654058*^9, 
  3.721457289869192*^9}},ExpressionUUID->"dcd061ee-961f-41a3-9c98-\
f9e164101f13"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.707218695776457*^9, 3.707560095944281*^9, 3.7078125913626823`*^9, 
   3.708934186482841*^9, 3.709362987827808*^9, 3.709882683536584*^9, 
   3.709908328072342*^9, 3.710053508666718*^9, 3.7101491345829973`*^9, 
   3.710665725273744*^9, 3.710665780449411*^9, 3.7106678340908623`*^9, 
   3.710936194393983*^9, 3.7110402495633917`*^9, 3.7113559608191757`*^9, 
   3.711361464597454*^9, 3.7117008324738407`*^9, 3.7123952367836657`*^9, 
   3.7124072573238487`*^9, 3.712408761680306*^9, 3.7124110888931704`*^9, 
   3.712590996582663*^9, 3.7126517903809223`*^9, 3.712829961701968*^9, 
   3.713342873337573*^9, 3.713346658762615*^9, 3.713503835556391*^9, 
   3.71351842844289*^9, 3.713519898156025*^9, 3.7135201675445223`*^9, 
   3.7135206084820023`*^9, 3.713521002017734*^9, 3.713521094428129*^9, 
   3.713521188327177*^9, 3.713521270190873*^9, 3.713521347637034*^9, 
   3.7135214193235817`*^9, 3.713521475268482*^9, {3.713600822097905*^9, 
   3.713600827217202*^9}, {3.715905715694491*^9, 3.715905722162219*^9}, 
   3.719399835707035*^9, 3.721457040260339*^9, 3.7214573028766403`*^9, 
   3.721457492263276*^9, 3.721457684100153*^9, 3.72145778189968*^9, {
   3.721556000277651*^9, 
   3.721556005141952*^9}},ExpressionUUID->"5eea1ab2-56ff-4d59-85f3-\
d4cf8499fea9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gVelocity", "=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}]}], "*", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPhi]g", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"a", "\[Rule]", 
         RowBox[{"a", "[", "t", "]"}]}], "}"}]}], ",", "t"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"gVelocity", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.7035904903170843`*^9, 3.703590585942955*^9}, 
   3.7099071966911507`*^9, {3.7099082044307423`*^9, 3.709908218723864*^9}, {
   3.710665845372005*^9, 3.710665851462987*^9}, {3.7214572950056877`*^9, 
   3.7214572950168447`*^9}},ExpressionUUID->"31162c45-423a-4256-85ad-\
8f7563b9af00"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.703590588006291*^9, 3.7040087495646763`*^9, 3.70400879173604*^9, 
   3.7041114587279797`*^9, 3.704606644213221*^9, 3.704607820592051*^9, 
   3.707209577022073*^9, 3.7072103246274557`*^9, 3.707210579783889*^9, 
   3.70721228350977*^9, 3.7072125505697193`*^9, 3.707212880367922*^9, 
   3.707560094962569*^9, 3.707812589695372*^9, 3.708934185761813*^9, 
   3.709362987161488*^9, 3.709882682814145*^9, 3.709908220307003*^9, 
   3.7100535079684277`*^9, 3.7101491337528887`*^9, 3.710665851912169*^9, 
   3.7106678341774063`*^9, 3.710936194461138*^9, 3.711040249648241*^9, 
   3.711355961085721*^9, 3.711361464699095*^9, 3.711700832550037*^9, 
   3.712395237053249*^9, 3.7124072573853493`*^9, 3.7124087617463083`*^9, 
   3.7124110891612453`*^9, 3.712591000030759*^9, 3.712651790429303*^9, 
   3.7128299618192263`*^9, 3.713342873382444*^9, 3.7133466588650427`*^9, 
   3.713503839172185*^9, 3.713518428508647*^9, 3.713519898257769*^9, 
   3.71352016762535*^9, 3.713520608548552*^9, 3.713521002269248*^9, 
   3.713521094558517*^9, 3.713521188547319*^9, 3.7135212702748547`*^9, 
   3.713521347718731*^9, 3.7135214193974247`*^9, 3.713521475357808*^9, {
   3.7136008221674232`*^9, 3.713600827283833*^9}, {3.715905715761677*^9, 
   3.715905722228698*^9}, 3.719399835761125*^9, 3.721457040328301*^9, 
   3.721457307423463*^9, 3.7214574923916893`*^9, 3.721457684181416*^9, 
   3.721457782298287*^9, {3.721556000345244*^9, 
   3.721556005212908*^9}},ExpressionUUID->"e0c69ed0-212e-49d8-b5b3-\
f2227636fb65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"GFlatCartesianVelocity", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{
        SubscriptBox["N", "lapse"], "[", "t", "]"}]}], "*", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPhi]GFlatCartesian", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}], ",", 
           RowBox[{"c", "\[Rule]", 
            RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ",", "t"}], "]"}]}], 
     ",", "GDOFAssumptions"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GFlatCartesianVelocity", "//", "TableForm"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710137852623111*^9, 3.710137856069684*^9}, {
  3.71015222613451*^9, 3.7101522472236*^9}, {3.710665784287159*^9, 
  3.7106657923983927`*^9}, {3.7214572950236263`*^9, 
  3.721457295038034*^9}},ExpressionUUID->"786e76bb-d314-413e-9b90-\
35990be978df"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]},
     {
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"c", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["c", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"c", "[", "t", "]"}], "3"], " ", 
        RowBox[{
         SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]},
     {"0"},
     {"0"},
     {
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"c", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["c", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"c", "[", "t", "]"}], "3"], " ", 
        RowBox[{
         SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]},
     {"0"},
     {
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"c", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["c", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"c", "[", "t", "]"}], "3"], " ", 
        RowBox[{
         SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]},
     {"0"},
     {"0"},
     {"0"},
     {"0"},
     {"0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.710137857916388*^9, 3.710149134783657*^9, {3.710152229508966*^9, 
   3.710152247612176*^9}, {3.710665766883116*^9, 3.710665792767761*^9}, 
   3.710667834242195*^9, 3.71093619452831*^9, 3.7110402497304783`*^9, 
   3.711355961802844*^9, 3.711361464798864*^9, 3.711700832612419*^9, 
   3.71239523726945*^9, 3.712407257463563*^9, 3.712408761815415*^9, 
   3.712411089344152*^9, 3.712591003929132*^9, 3.712651790500581*^9, 
   3.712829961934401*^9, 3.713342873436754*^9, 3.7133466589649677`*^9, 
   3.7135038434432383`*^9, 3.713518428571289*^9, 3.7135198983578672`*^9, 
   3.7135201677096367`*^9, 3.713520608618116*^9, 3.713521002472887*^9, 
   3.713521094713768*^9, 3.713521188661211*^9, 3.7135212703579187`*^9, 
   3.713521347804502*^9, 3.7135214194817953`*^9, 3.7135214754404097`*^9, {
   3.713600822234213*^9, 3.7136008273552017`*^9}, {3.7159057158281803`*^9, 
   3.715905722328533*^9}, 3.719399835817137*^9, 3.721457040396131*^9, 
   3.721457309919438*^9, 3.7214574925236397`*^9, 3.7214576843107367`*^9, 
   3.721457782516972*^9, {3.721556000411738*^9, 
   3.721556005279994*^9}},ExpressionUUID->"c8f320dc-460e-48e2-8053-\
32e66a728878"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Compute kinematical coefficients", "Subsection",
 InitializationGroup->True,
 CellChangeTimes->{{3.710665979981285*^9, 3.710665994115509*^9}, {
  3.7214573180807858`*^9, 
  3.72145732721384*^9}},ExpressionUUID->"e2edd598-724a-4840-a804-\
e0e697a5d307"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"[", 
      RowBox[{"A", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], " ", "=", " ", 
    
    SuperscriptBox[
     SubscriptBox[
      SuperscriptBox["F", "A"], "\[Nu]"], "\[Mu]"]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Fggeneral", "=", 
     RowBox[{"Normal", "[", 
      RowBox[{"2", "*", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"TensorContract", "[", 
          RowBox[{
           RowBox[{
           "Intertwiner", "\[TensorProduct]", "InverseIntertwiner", 
            "\[TensorProduct]", 
            RowBox[{"\[CapitalPhi]gTrafo", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"4", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Fg", "=", 
     RowBox[{"Fggeneral", "/.", "\[CapitalPhi]gTrafo"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FgFlatCartesian", "=", 
     RowBox[{"Fggeneral", "/.", "\[CapitalPhi]gFlatCartesianTrafo"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FgdE", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"Fggeneral", ",", 
           RowBox[{"\[CapitalPhi]gTrafo", "[", 
            RowBox[{"[", 
             RowBox[{"E", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"E", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710742860342821*^9, 3.710742906271641*^9}, {
  3.713503864878557*^9, 3.7135041122505827`*^9}, {3.713504152354268*^9, 
  3.7135041684864473`*^9}, {3.713504205091151*^9, 3.713504310216069*^9}, {
  3.713504387263382*^9, 3.713504429683649*^9}, {3.713504464189693*^9, 
  3.713504485773795*^9}, {3.713504518903041*^9, 3.71350454957191*^9}, {
  3.713504579906986*^9, 3.713504608500699*^9}, {3.7135047676460733`*^9, 
  3.713504797832398*^9}, {3.7135048377750683`*^9, 3.713504879180991*^9}, {
  3.713504910958148*^9, 
  3.713504923437516*^9}},ExpressionUUID->"be246c5e-7d45-4e7f-82a5-\
a26fdfbe7d10"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FGgeneral", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"2", "*", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"TensorContract", "[", 
         RowBox[{
          RowBox[{
          "Intertwiner", "\[TensorProduct]", "InverseIntertwiner", 
           "\[TensorProduct]", 
           RowBox[{"\[CapitalPhi]GTrafo", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"4", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "2"}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"-", "2"}], "*", 
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{
        "InverseIntertwiner", "\[TensorProduct]", "Intertwiner", 
         "\[TensorProduct]", 
         RowBox[{"\[CapitalPhi]GTrafo", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"n", "+", "1"}], ";;", 
             RowBox[{"2", "*", "n"}]}], ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", 
         RowBox[{"d", "-", "1"}], ",", 
         RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FG", "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"FGgeneral", "/.", "\[CapitalPhi]GTrafo"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FGFlatCartesian", "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"FGgeneral", "/.", "\[CapitalPhi]GFlatCartesianTrafo"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FGdE", "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"FGgeneral", ",", 
          RowBox[{"\[CapitalPhi]GTrafo", "[", 
           RowBox[{"[", 
            RowBox[{"E", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "nG"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710742860342821*^9, 3.710742906271641*^9}, {
   3.713503864878557*^9, 3.7135041122505827`*^9}, {3.713504152354268*^9, 
   3.7135041684864473`*^9}, {3.713504205091151*^9, 3.713504310216069*^9}, {
   3.713504387263382*^9, 3.713504429683649*^9}, {3.713504464189693*^9, 
   3.713504485773795*^9}, {3.713504518903041*^9, 3.71350454957191*^9}, {
   3.713504579906986*^9, 3.713504608500699*^9}, {3.7135047676460733`*^9, 
   3.713504797832398*^9}, {3.7135048377750683`*^9, 3.713504879180991*^9}, {
   3.713504910958148*^9, 3.713504957618675*^9}, {3.7135049883957644`*^9, 
   3.713505049974668*^9}, {3.713505294925364*^9, 3.713505298956786*^9}, 
   3.713505408684231*^9, {3.713505506177518*^9, 
   3.713505516079439*^9}},ExpressionUUID->"e9679341-5ddd-496b-936a-\
966cd33092f9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GMn", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", "3", "]"}]}], ",", "0", ",", "0", ",", 
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", "3", "]"}]}], ",", "0", ",", 
     RowBox[{"1", "/", 
      RowBox[{"Sqrt", "[", "3", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GMe", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"2", "/", "3"}], "]"}], ",", "0", ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"Sqrt", "[", "6", "]"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"Sqrt", "[", "6", "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"2", "/", "3"}], "]"}], ",", 
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", "6", "]"}]}], ",", "0", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"Sqrt", "[", "6", "]"}]}]}], 
      StyleBox["}", "Input"]}], 
     StyleBox[",", "Input"], 
     StyleBox["\[IndentingNewLine]", "Input"], 
     StyleBox[
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}],
       "Input"], 
     StyleBox[",", "Input"], 
     StyleBox["\[IndentingNewLine]", "Input"], 
     StyleBox[
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "3", "]"}]}], ",", 
        RowBox[{
         RowBox[{"-", "1"}], "/", 
         RowBox[{"Sqrt", "[", "3", "]"}]}], ",", "0", ",", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "3", "]"}]}]}], "}"}], "Input"]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710742915201516*^9, 3.710742921750115*^9}, {
   3.71074388607087*^9, 3.710743890752232*^9}, {3.710743933663661*^9, 
   3.710743938777095*^9}, {3.710749325171482*^9, 3.710749383772028*^9}, {
   3.710749446908009*^9, 3.710749598932715*^9}, {3.71074962956579*^9, 
   3.710749630755574*^9}, {3.710749676666935*^9, 3.710749676828309*^9}, {
   3.710749811123652*^9, 3.710749851573069*^9}, {3.710749882277218*^9, 
   3.710750006254591*^9}, {3.710750037030416*^9, 3.7107500566306343`*^9}, {
   3.710750097672303*^9, 3.7107501692151127`*^9}, {3.710750206022779*^9, 
   3.710750291391478*^9}, {3.71075032214272*^9, 3.710750429656905*^9}, {
   3.710750477550935*^9, 3.710750521520846*^9}, {3.710750554273452*^9, 
   3.710750685439807*^9}, 
   3.710750715650786*^9},ExpressionUUID->"8a1ae028-3715-4ee8-8a73-\
6b23ff3da0aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Gsinglebar", "=", 
   RowBox[{"TensorContract", "[", 
    RowBox[{
     RowBox[{"InverseIntertwiner", "\[TensorProduct]", 
      RowBox[{"\[CapitalPhi]GTrafo", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dGtriple\[CapitalPhi]triple", "=", 
   RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Intertwiner", "\[TensorProduct]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"IdentityMatrix", "[", "n", "]"}], "-", 
        RowBox[{
         RowBox[{"GMn", "\[TensorProduct]", 
          RowBox[{"\[CapitalPhi]GTrafo", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}]}], "/", 
         RowBox[{"TensorContract", "[", 
          RowBox[{
           RowBox[{"GMn", "\[TensorProduct]", 
            RowBox[{"\[CapitalPhi]GTrafo", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}]}]}], ")"}], 
      "\[TensorProduct]", "GMe"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "7"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GM", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"2", "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"Det", "[", "Gsinglebar", "]"}], "]"}], "*", 
      RowBox[{"Activate", "@", 
       RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
          RowBox[{"Intertwiner", ",", "InverseIntertwiner", ",", 
           RowBox[{"LeviCivitaTensor", "[", 
            RowBox[{"3", ",", "List"}], "]"}], ",", 
           "dGtriple\[CapitalPhi]triple", ",", 
           RowBox[{"\[CapitalPhi]GTrafo", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"\[CapitalPhi]GTrafo", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"2", "*", "n"}], "+", "1"}], ";;", "nG"}], ",", "1"}],
              "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "11"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "13"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "10"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12", ",", "14"}], "}"}]}], "}"}]}], 
        "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"6", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Det", "[", "Gsinglebar", "]"}], "]"}]}], "*", 
      RowBox[{"Activate", "@", 
       RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
          RowBox[{
           RowBox[{"LeviCivitaTensor", "[", 
            RowBox[{"3", ",", "List"}], "]"}], ",", 
           RowBox[{"IdentityMatrix", "[", "n", "]"}], ",", 
           "InverseIntertwiner", ",", "InverseIntertwiner", ",", "PGgeneral", 
           ",", "dGtriple\[CapitalPhi]triple", ",", 
           RowBox[{"\[CapitalPhi]GTrafo", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"\[CapitalPhi]GTrafo", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"2", "*", "n"}], "+", "1"}], ";;", "nG"}], ",", "1"}],
              "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "12"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "11"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "14"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"9", ",", "17"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"16", ",", "18"}], "}"}]}], "}"}]}], 
        "\[IndentingNewLine]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"Det", "[", "Gsinglebar", "]"}], "]"}]}], "*", 
        RowBox[{"Activate", "@", 
         RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
            RowBox[{
             RowBox[{"LeviCivitaTensor", "[", 
              RowBox[{"3", ",", "List"}], "]"}], ",", 
             RowBox[{"Inverse", "[", "Gsinglebar", "]"}], ",", 
             RowBox[{"TensorContract", "[", 
              RowBox[{
               RowBox[{"GMe", "\[TensorProduct]", "InverseIntertwiner"}], ",", 
               RowBox[{"{", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Activate", "@", 
               RowBox[{"TensorContract", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
                  RowBox[{
                  "InverseIntertwiner", ",", "dGtriple\[CapitalPhi]triple", 
                   ",", "dGtriple\[CapitalPhi]triple", ",", 
                   RowBox[{"\[CapitalPhi]GTrafo", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{";;", "n"}], ",", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"\[CapitalPhi]GTrafo", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ";;", "nG"}], ",", 
                    "1"}], "]"}], "]"}], ",", 
                   RowBox[{"\[CapitalPhi]GTrafo", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"2", "*", "n"}], "+", "1"}], ";;", "nG"}], ",", 
                    "1"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", ",", 
                 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"1", ",", "10"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"2", ",", "7"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"3", ",", "5"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"6", ",", "11"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"9", ",", "12"}], "}"}]}], "}"}]}], "]"}]}], "+", 
              
              RowBox[{"TensorContract", "[", 
               RowBox[{
                RowBox[{"Intertwiner", "\[TensorProduct]", 
                 RowBox[{"\[CapitalPhi]GTrafo", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"n", "+", "1"}], ";;", 
                    RowBox[{"2", "*", "n"}]}], ",", "1"}], "]"}], "]"}]}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}]}]}], "]"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "4"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"8", ",", "9"}], "}"}]}], "}"}]}], 
          "\[IndentingNewLine]", "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710742915201516*^9, 3.710742921750115*^9}, {
   3.71074388607087*^9, 3.710743890752232*^9}, {3.710743933663661*^9, 
   3.710743938777095*^9}, {3.710749325171482*^9, 3.710749383772028*^9}, {
   3.710749446908009*^9, 3.710749598932715*^9}, {3.71074962956579*^9, 
   3.710749630755574*^9}, {3.710749676666935*^9, 3.710749676828309*^9}, {
   3.710749811123652*^9, 3.710749851573069*^9}, {3.710749882277218*^9, 
   3.710750006254591*^9}, {3.710750037030416*^9, 3.7107500566306343`*^9}, {
   3.710750097672303*^9, 3.7107501692151127`*^9}, {3.710750206022779*^9, 
   3.710750291391478*^9}, {3.71075032214272*^9, 3.710750429656905*^9}, {
   3.710750477550935*^9, 3.710750521520846*^9}, {3.710750554273452*^9, 
   3.710750685439807*^9}, {3.710750715650786*^9, 3.7107507639596643`*^9}, {
   3.710750801015164*^9, 3.7107508154029093`*^9}, {3.710750848985914*^9, 
   3.7107509079362497`*^9}, {3.710751278621285*^9, 3.710751279116577*^9}, {
   3.7107513668079033`*^9, 3.710751402805778*^9}, {3.7107514608557367`*^9, 
   3.710751464720668*^9}, {3.7107515113676357`*^9, 3.7107515559311666`*^9}, {
   3.710752021960661*^9, 3.7107520754796677`*^9}, {3.7107521255762672`*^9, 
   3.7107521881599216`*^9}, {3.7107522455919657`*^9, 3.710752274544445*^9}, {
   3.71075475358681*^9, 3.7107547749870453`*^9}, {3.710755900296184*^9, 
   3.7107560213952627`*^9}, {3.710756061649911*^9, 3.7107562457441473`*^9}, {
   3.710756298110876*^9, 3.710756298263626*^9}, {3.710756328910924*^9, 
   3.710756374570992*^9}, {3.710756423126463*^9, 3.7107564232259417`*^9}, {
   3.710756507932138*^9, 3.710756536818684*^9}, 3.710772313534423*^9, {
   3.7107781083096848`*^9, 3.710778118769061*^9}, {3.71077815586547*^9, 
   3.710778158986725*^9}, {3.710778261898526*^9, 3.7107783216210337`*^9}, {
   3.710778379953185*^9, 3.7107785833398867`*^9}, {3.7107786318900747`*^9, 
   3.710778898358301*^9}, {3.710778930542454*^9, 3.7107789309828672`*^9}, {
   3.7107789624864798`*^9, 3.7107790335826683`*^9}, {3.710779253766211*^9, 
   3.710779260948398*^9}, {3.710780605387423*^9, 3.710780615440392*^9}, {
   3.7107806917065763`*^9, 3.710780691870819*^9}, {3.710780771283514*^9, 
   3.710780802377884*^9}, {3.710780859618167*^9, 3.710780884055925*^9}, {
   3.71078091589857*^9, 3.7107809593938103`*^9}, {3.71078105297735*^9, 
   3.710781064864521*^9}, {3.7107813094890633`*^9, 3.710781315132111*^9}, {
   3.710781417938451*^9, 
   3.710781472798074*^9}},ExpressionUUID->"d2f4033f-3240-456b-985e-\
df4a99a3f650"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GM", "/.", "\[CapitalPhi]GFlatCartesianTrafo"}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710751405868054*^9, 3.7107514701992493`*^9}, {
  3.7107811509366493`*^9, 
  3.710781157926189*^9}},ExpressionUUID->"ba7e7696-9b58-44cd-b464-\
d761f4779ebc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{
  3.7107514282036867`*^9, 3.710751470993285*^9, 3.7107515630687323`*^9, 
   3.710756539855137*^9, 3.7107807212997227`*^9, 3.710780965429088*^9, {
   3.71078112487465*^9, 3.7107811602007*^9}, 3.710781481159746*^9, 
   3.710936196265421*^9, 3.7110402515997047`*^9, 3.711355964417131*^9, 
   3.711361466661336*^9, 3.71170083415903*^9, 3.712395239097435*^9, 
   3.712407259112681*^9, 3.7124087657039833`*^9, 3.7124110912825813`*^9, 
   3.712651792222506*^9, 3.712829963632917*^9, 3.71334287510728*^9, 
   3.7133466611536407`*^9, 3.713505208649702*^9, 3.7135184300251293`*^9, 
   3.713519900102661*^9, 3.713520169061956*^9, 3.713520610335209*^9, 
   3.713521004675668*^9, 3.713521096947361*^9, 3.713521190170722*^9, 
   3.71352127197268*^9, 3.713521349095128*^9, 3.713521420827627*^9, 
   3.713521476796029*^9, {3.713600823668787*^9, 3.713600828861796*^9}, {
   3.7159057173919163`*^9, 3.715905723871716*^9}, 3.719399837379794*^9, 
   3.721457042183691*^9, 3.721457431685112*^9, 3.721457494209519*^9, 
   3.7214576861839247`*^9, 3.721457785147724*^9, {3.721556001812105*^9, 
   3.7215560067608013`*^9}},ExpressionUUID->"91e795f9-ecb6-45b6-b7c4-\
c0f459f613b6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"GMdE", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"GM", ",", 
         RowBox[{"\[CapitalPhi]GTrafo", "[", 
          RowBox[{"[", 
           RowBox[{"E", ",", "1"}], "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"E", ",", "nG"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710751588760203*^9, 
  3.710751751124864*^9}},ExpressionUUID->"18496a5c-91dd-44d8-bf01-\
3f346ed69fd0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"GMdE", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "/.", 
     "\[CapitalPhi]GFlatCartesianTrafo"}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", 
      RowBox[{"GDOFAssumptions", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], "\[Rule]", "a"}], "}"}]}]}], "]"}]}], 
   "]"}], "//", "MatrixForm"}]], "Input",
 InitializationGroup->True,
 CellChangeTimes->{{3.710751122461322*^9, 3.710751155290461*^9}, {
  3.71075123387712*^9, 3.710751241203289*^9}, {3.710781194889002*^9, 
  3.710781250045289*^9}},ExpressionUUID->"5036c3e9-4299-4fa9-968e-\
a6300d9ef6c8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", 
       FractionBox["2", 
        RowBox[{
         SqrtBox["3"], " ", 
         SuperscriptBox["a", "5"]}]]}], "0", 
      RowBox[{"-", 
       FractionBox[
        SqrtBox[
         FractionBox["2", "3"]], 
        SuperscriptBox["a", "5"]]}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      FractionBox[
       SqrtBox["2"], 
       SuperscriptBox["a", "5"]], "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 InitializationGroup->True,
 CellChangeTimes->{{3.7107512344206038`*^9, 3.710751242642808*^9}, {
   3.710781225578169*^9, 3.7107812504539433`*^9}, 3.710781489499009*^9, 
   3.710936197850622*^9, 3.7110402534420443`*^9, 3.711355966559054*^9, 
   3.711361468474783*^9, 3.7117008357353907`*^9, 3.712395241071039*^9, 
   3.712407260741696*^9, 3.712408767429927*^9, 3.7124110930817137`*^9, 
   3.712651794551051*^9, 3.712829965494811*^9, 3.713342877704105*^9, 
   3.7133466629718723`*^9, 3.713505213989501*^9, 3.713518431994707*^9, 
   3.713519901755623*^9, 3.713520170629665*^9, 3.713520612233004*^9, 
   3.713521098444477*^9, 3.713521191376998*^9, 3.713521273274049*^9, 
   3.713521350687438*^9, 3.713521422528522*^9, 3.713521478478361*^9, {
   3.7136008254825277`*^9, 3.713600830620337*^9}, {3.715905719113015*^9, 
   3.715905725373695*^9}, 3.719399839100897*^9, 3.721457043650608*^9, 
   3.7214574384108067`*^9, 3.721457495396285*^9, 3.721457687556041*^9, 
   3.721457787118552*^9, {3.721556003403007*^9, 
   3.721556008028449*^9}},ExpressionUUID->"4e8e40ef-d90f-4555-b4d5-\
b52f91398c7c"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Flat cartesian metric", "Section",
 CellChangeTimes->{{3.710664810751154*^9, 3.710664822007564*^9}, {
  3.710665198687396*^9, 
  3.710665199751547*^9}},ExpressionUUID->"d58285d1-c1f2-400b-95dd-\
fd5738093bd9"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox["C", TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c8c9d4d3-de78-4187-8c1d-7997cd863b1a"],
 "-sector"
}], "Subsection",
 CellChangeTimes->{{3.710657187369996*^9, 3.710657189183202*^9}, {
  3.7106574787455072`*^9, 
  3.710657481303091*^9}},ExpressionUUID->"872b0306-a3e2-4ecd-953a-\
d5d94c3c709c"],

Cell[CellGroupData[{

Cell["C coefficients", "Subsubsection",
 CellChangeTimes->{{3.7106660311087723`*^9, 
  3.71066603526757*^9}},ExpressionUUID->"03b71c7c-40e6-424b-9b5f-\
2aac210e6bdd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gC", "=", "C"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCdE", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CdE", ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7041760688161497`*^9, 3.704176113924589*^9}, 
   3.7041765430017767`*^9, {3.704176574694619*^9, 3.704176672573371*^9}, {
   3.7041770971009893`*^9, 3.70417713983043*^9}, {3.7041777205886793`*^9, 
   3.704177721387424*^9}, {3.704181146861415*^9, 3.704181150405054*^9}, {
   3.704181240223473*^9, 3.704181241588695*^9}, {3.7041812741489897`*^9, 
   3.7041812855055513`*^9}, {3.704185390427101*^9, 3.7041854017878647`*^9}, {
   3.7041854887294064`*^9, 3.7041855485630083`*^9}, {3.70419293728104*^9, 
   3.7041929565823097`*^9}, {3.707213803544039*^9, 3.707213804661458*^9}, {
   3.7072142708469963`*^9, 3.707214326533477*^9}, {3.707214368229376*^9, 
   3.707214397085422*^9}, {3.707214512419167*^9, 3.707214524349573*^9}, {
   3.7099071772962227`*^9, 3.709907196146261*^9}, {3.713505767312948*^9, 
   3.7135057791842117`*^9}, {3.713506054978265*^9, 3.7135061464956627`*^9}, {
   3.713506208045072*^9, 3.713506245521635*^9}, {3.713506294897859*^9, 
   3.713506295649283*^9}, {3.713511560571907*^9, 3.713511560804572*^9}, {
   3.7135119883957043`*^9, 3.713512008890877*^9}, {3.713518400649932*^9, 
   3.7135184093188677`*^9}, 
   3.713518480643911*^9},ExpressionUUID->"cc16b1db-646b-4d90-84c1-\
b70400342b13"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gDisplayC", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gC", "\[Rule]", "\"\<C\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCdE", "[", 
          RowBox[{"[", "A", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(\(:\)\(`1`\)\)]\)\>\"", "]"}], 
          "[", "A", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70721515452837*^9, 3.707215164033781*^9}, {
  3.709907177100602*^9, 3.7099071961621437`*^9}, {3.7135065449630136`*^9, 
  3.713506599080751*^9}, {3.713511571478304*^9, 3.7135115721960907`*^9}, {
  3.713518412693548*^9, 
  3.713518417013341*^9}},ExpressionUUID->"ffd93345-a64f-4d8d-9bbb-\
577b9d8548a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["C1", "Subsubsection",
 CellChangeTimes->{{3.710664835640687*^9, 
  3.710664839535008*^9}},ExpressionUUID->"8c16d470-d6a5-4cfe-ac23-\
fdcc197a4421"],

Cell["\<\
For a flat cartesian metric C1 is sufficient to determine C with one \
remaining constant:\
\>", "Text",
 CellChangeTimes->{{3.707215379954317*^9, 3.7072154715514393`*^9}, {
  3.710664847719487*^9, 3.7106648598075314`*^9}, {3.7106672572269287`*^9, 
  3.710667258098805*^9}},ExpressionUUID->"1733d2de-96f1-4d2c-9096-\
c930ce60d24d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gFlatCartesianCE", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"gC", "*", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCdE", "\[TensorProduct]", "FgFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7072134259027433`*^9, 3.7072134658433323`*^9}, {
   3.7072147065884523`*^9, 3.707214708655108*^9}, {3.70721475339678*^9, 
   3.70721476862702*^9}, {3.7072148804275923`*^9, 3.7072148913807487`*^9}, 
   3.707214939203206*^9, 3.7072149769019947`*^9, 3.709907196278296*^9, {
   3.710664880016013*^9, 3.71066488034359*^9}, {3.713499160249462*^9, 
   3.713499162567177*^9}, {3.7135058133284817`*^9, 3.713505814184601*^9}, {
   3.7135064440060863`*^9, 3.7135064561012907`*^9}, {3.7135184505498543`*^9, 
   3.7135184559080677`*^9}},ExpressionUUID->"68358ea0-9859-476e-9ac1-\
2e119bce39ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"gFlatCartesianCE", "[", "1", "]"}], "/", 
       RowBox[{"Sqrt", "[", "2", "]"}]}], "*", 
      RowBox[{"a", "^", "2"}]}], "]"}], "]"}], "/.", "gDisplayC"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.720784489852808*^9, 3.7207845496082172`*^9}, {
  3.720784580822747*^9, 3.720784582510113*^9}, {3.7207848040809183`*^9, 
  3.720784863544919*^9}},ExpressionUUID->"c08f0d7c-0a72-4fb9-9523-\
607e6ed6ebd6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(1\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox[
         "2"]]}], "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(2\\)\\)]\\)\"\>", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\
\\(3\\)\\)]\\)\"\>"},
     {"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(2\\)\\)]\\)\"\>", 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(4\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox[
         "2"]]}], "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(5\\)\\)]\\)\"\>"},
     {"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(3\\)\\)]\\)\"\>", \
"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(5\\)\\)]\\)\"\>", 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(6\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox["2"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.72078449129948*^9, 3.720784550147181*^9}, 
   3.720784583291637*^9, {3.720784817008038*^9, 3.7207848640796824`*^9}, 
   3.721457495541533*^9, 3.7215560109294157`*^9, 
   3.7215617835010653`*^9},ExpressionUUID->"5225fa8d-3831-4c4a-84db-\
ce371f2451f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gFlatCartesianCESolution", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"gFlatCartesianCE", "[", "1", "]"}], "]"}], "\[Equal]", 
        "0"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", "gCdE", "]"}]}], "\[IndentingNewLine]", "]"}], "//",
     "First"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gFlatCartesianCESolution", "[", "1", "]"}], "/.", 
  "gDisplayC"}]}], "Input",
 CellChangeTimes->{{3.707214980676711*^9, 3.707215042278729*^9}, {
   3.707215102529682*^9, 3.707215103072197*^9}, 3.709907196289871*^9, {
   3.710664885897593*^9, 3.710664892015189*^9}, {3.71350651100455*^9, 
   3.7135065170137777`*^9}, {3.713518462316181*^9, 
   3.71351851538546*^9}},ExpressionUUID->"d41af95c-471e-4f9d-888b-\
08ade6d3a0be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(1\\)\\)]\\)\"\>", 
    "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\<\"C\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(2\\)\\)]\\)\"\>", 
    "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(3\\)\\)]\\)\"\>", 
    "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(4\\)\\)]\\)\"\>", 
    "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\<\"C\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}]}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(5\\)\\)]\\)\"\>", 
    "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(6\\)\\)]\\)\"\>", 
    "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\<\"C\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7135185160064993`*^9, 3.713519902060204*^9, 
  3.713520170913947*^9, 3.7135212848305492`*^9, 3.713600830970891*^9, 
  3.7159057257435513`*^9, 3.719399839201778*^9, 3.721457495599249*^9, 
  3.721457817035078*^9, 3.721556010996257*^9, 
  3.7215617854031963`*^9},ExpressionUUID->"c10ef78c-ad72-45ee-8572-\
745c1717a0bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"gFlatCartesianCDOFSolution", "=", 
  RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DOFSolve", "[", 
      RowBox[{"C", ",", 
       RowBox[{"gCdE", "/.", 
        RowBox[{"gFlatCartesianCESolution", "[", "1", "]"}]}], ",", 
       RowBox[{"\[CapitalPhi]gFlatCartesian", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "xgFlatCartesian"}], 
      "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Const", "[", "0", "]"}], "\[Rule]", 
       RowBox[{"Const", "[", "1", "]"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", "coordinateAssumptions"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gFlatCartesianLagrangianCTerm", "=", 
   RowBox[{
    RowBox[{"gC", "/.", "gFlatCartesianCDOFSolution"}], "/.", 
    RowBox[{"{", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"a", "[", "t", "]"}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7072154899854403`*^9, 3.707215554975581*^9}, {
   3.7072156139235373`*^9, 3.707215620415896*^9}, {3.710664901376113*^9, 
   3.710664901453178*^9}, {3.710664944882072*^9, 3.710665119240223*^9}, {
   3.7135066655789833`*^9, 3.7135066711678267`*^9}, 3.71350733488871*^9, {
   3.7135073939261503`*^9, 3.713507425755578*^9}, {3.71351149236096*^9, 
   3.713511535332634*^9}, {3.7135116911891947`*^9, 3.7135117013451767`*^9}, {
   3.71351174724802*^9, 3.713511750370557*^9}, {3.713518532285638*^9, 
   3.713518581189384*^9}, {3.72156060497581*^9, 
   3.7215606122327423`*^9}},ExpressionUUID->"cf64c72c-421f-49a4-aa8b-\
c3e29f4719d2"],

Cell[BoxData[
 RowBox[{"C", "\[Rule]", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"Const", "[", "1", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.7072155561350393`*^9, {3.707215614533238*^9, 3.7072156212638187`*^9}, 
   3.707560101520976*^9, 3.7078125994477777`*^9, 3.7089341925062227`*^9, 
   3.709362994195739*^9, 3.7098826895200157`*^9, 3.710090953748296*^9, 
   3.710149142633606*^9, 3.710664932533264*^9, {3.710664973149665*^9, 
   3.710665120385882*^9}, 3.710667869218539*^9, 3.710936213060423*^9, 
   3.7110402684198837`*^9, 3.7113559808060703`*^9, 3.711361484433668*^9, 
   3.711700849046863*^9, 3.7123952562921457`*^9, 3.712407274812368*^9, 
   3.712408782581296*^9, 3.712411107679953*^9, 3.712651809534792*^9, 
   3.712829981486793*^9, 3.713342895407147*^9, 3.713346676903861*^9, 
   3.713499256867186*^9, 3.713505848557413*^9, 3.713506620396841*^9, 
   3.7135073543181753`*^9, {3.713507395952835*^9, 3.7135074289899397`*^9}, 
   3.7135075929284487`*^9, {3.713511521493248*^9, 3.713511536000752*^9}, {
   3.713511691484907*^9, 3.713511702150543*^9}, {3.713511750975378*^9, 
   3.713511756590014*^9}, 3.713512031676752*^9, {3.713518541892749*^9, 
   3.713518582208934*^9}, 3.713519902157987*^9, 3.7135201709915*^9, 
   3.7135212848967037`*^9, 3.7136008310372057`*^9, 3.7159057258138237`*^9, 
   3.719399839259198*^9, 3.7214574956792583`*^9, 3.7214578221582937`*^9, 
   3.721556011062409*^9, {3.721561786698329*^9, 3.721561789565798*^9}, 
   3.721561868342235*^9},ExpressionUUID->"2aa4422f-86ff-4969-a315-\
fec364e8e30c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "A"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "f93dfa92-2003-412c-a7d1-0816a4ba9fb1"],
 "-sector"
}], "Subsection",
 CellChangeTimes->{{3.713505664133235*^9, 
  3.713505684577547*^9}},ExpressionUUID->"0fea76ca-4ed3-41b1-aa05-\
375af0793097"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCA", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CA", ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCAdE", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CAdE", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gDisplayCA", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCA", "[", 
          RowBox[{"[", "A", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1`\)]\)\>\"", "]"}], "[", "A", 
          "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "n"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCAdE", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "E"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1` : `2`\)]\)\>\"", "]"}], "[", 
          RowBox[{"A", ",", "E"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "n"}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.720791742055187*^9, 
  3.7207917711731853`*^9}},ExpressionUUID->"b416d72d-1342-45fb-a0c8-\
763971959c17"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox["C2", 
  TraditionalForm]],ExpressionUUID->"3b1e2ba0-b1bb-43b4-880d-d07022a7d188"]], \
"Subsubsection",
 CellChangeTimes->{{3.712395577120604*^9, 
  3.712395579398806*^9}},ExpressionUUID->"bd9cc916-2994-474a-86af-\
3e6746658d7f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gFlatCartesianCE", "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"gCA", "\[TensorProduct]", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{"gCA", "\[TensorProduct]", "FgdE"}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "1"}], "}"}]}], "]"}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCAdE", "\[TensorProduct]", "FgFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.712395584603277*^9, 3.712395714307192*^9}, {
  3.71239577861141*^9, 3.712395779617856*^9}, {3.713519434098185*^9, 
  3.713519434527122*^9}, {3.720791803461328*^9, 
  3.720791818827198*^9}},ExpressionUUID->"3adf262e-77a8-433a-a167-\
d748f0bc9598"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "2", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/.", "gDisplayCA"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7207922644662*^9, 3.720792296751906*^9}, {
  3.7207923632474813`*^9, 3.720792364103026*^9}, {3.720792404623543*^9, 
  3.720792405076173*^9}, {3.720794090564464*^9, 
  3.720794090668812*^9}},ExpressionUUID->"a92ccd2c-e276-4939-8199-\
8e9df7f80b4d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
       "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], "+", 
       
       FractionBox[
        RowBox[{
        "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 1\\)]\\)\"\>"}], 
        
        SuperscriptBox["a", "2"]]}], 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], 
         " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 2\\)]\\)\"\>"}], 
        SuperscriptBox["a", "2"]]}], 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(3\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], 
         " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 3\\)]\\)\"\>"}], 
        SuperscriptBox["a", "2"]]}]},
     {
      FractionBox[
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 2\\)]\\)\"\>"}], 
       SuperscriptBox["a", "2"]], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", "+", 
       FractionBox[
        RowBox[{
        "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 4\\)]\\)\"\>"}], 
        
        SuperscriptBox["a", "2"]]}], 
      FractionBox[
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 5\\)]\\)\"\>"}], 
       SuperscriptBox["a", "2"]]},
     {
      FractionBox[
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 3\\)]\\)\"\>"}], 
       SuperscriptBox["a", "2"]], 
      FractionBox[
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 5\\)]\\)\"\>"}], 
       SuperscriptBox["a", "2"]], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", "+", 
       FractionBox[
        RowBox[{
        "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 6\\)]\\)\"\>"}], 
        
        SuperscriptBox["a", "2"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7207922657644176`*^9, 3.720792297657192*^9}, 
   3.7207923648951063`*^9, 3.7207924057368813`*^9, 3.720794091250433*^9, 
   3.721457496247059*^9, 3.721457836964595*^9, {3.721457950003479*^9, 
   3.7214579735425653`*^9}, 
   3.7215560111732807`*^9},ExpressionUUID->"d8656c77-4e7c-42ef-80f2-\
36ddbd72b98a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}], "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"gFlatCartesianCE", "[", "2", "]"}], "]"}], "\[Equal]", 
          "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Join", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Flatten", "[", "gCA", "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Flatten", "[", "gCAdE", "]"}]}], "\[IndentingNewLine]", 
         "]"}]}], "\[IndentingNewLine]", "]"}], "//", "First"}], ",", 
     "\[IndentingNewLine]", "coordinateAssumptions"}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCA", "/.", 
   RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
  "gDisplayCA"}]}], "Input",
 CellChangeTimes->{{3.7123957916022243`*^9, 3.712395802204316*^9}, {
   3.712396036914472*^9, 3.7123960610657053`*^9}, {3.713519442559885*^9, 
   3.71351947648532*^9}, 3.713519527496099*^9, {3.7207918236240587`*^9, 
   3.720791838810275*^9}},ExpressionUUID->"ffb9c3a4-20df-447d-bca9-\
fb99fc9b8100"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   174,2,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.712396066250651*^9, 3.712407287092079*^9, 3.712408796378688*^9, 
   3.7124111198428497`*^9, 3.712651821406036*^9, 3.712829998024769*^9, 
   3.713342912225987*^9, 3.713346691323348*^9, {3.713519459820278*^9, 
   3.71351947706609*^9}, 3.713519528023108*^9, 3.713519904299986*^9, 
   3.7135201730244017`*^9, 3.7135213133681393`*^9, 3.713600899457081*^9, 
   3.715905727730721*^9, 3.719399840883594*^9, 3.7207918397610083`*^9, 
   3.72145749636292*^9, 3.7214579778813553`*^9, 
   3.721556011227139*^9},ExpressionUUID->"5451736c-7590-47b4-bdf1-\
444cc9c2638c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", ",", "0", ",",
    "0", ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", ",", "0", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.713519477136414*^9, 3.713519528049945*^9, 
  3.713519904457045*^9, 3.713520173173275*^9, 3.713521313516378*^9, 
  3.71360089960366*^9, 3.7159057278743258`*^9, 3.7193998410381317`*^9, 
  3.720791839857353*^9, 3.721457496477212*^9, 3.7214579779056807`*^9, 
  3.721556011243388*^9},ExpressionUUID->"25d04fc6-32b9-4c13-b8a1-\
2e5c50b422c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gCAdE", "/.", 
   RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
  "gDisplayCA"}]], "Input",
 CellChangeTimes->{{3.720794758176894*^9, 
  3.7207947590662518`*^9}},ExpressionUUID->"cae5f2ee-df02-4263-924c-\
aba7a48e2964"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
       "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
      " ", 
      SuperscriptBox["a", "2"]}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
      " ", 
      SuperscriptBox["a", "2"]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
       "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", 
     RowBox[{
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
      " ", 
      SuperscriptBox["a", "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
       "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.720794759730918*^9, 3.721457496685259*^9, 
  3.721457980958288*^9, 
  3.721556011312798*^9},ExpressionUUID->"6504a8cf-5ee7-4165-88cb-\
598ebb2127b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorContract", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"gCA", "/.", 
       RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], ")"}], 
     "\[TensorProduct]", "gFlatCartesianVelocity"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], "/.", 
  "gDisplayCA"}]], "Input",
 CellChangeTimes->{{3.7123961734677362`*^9, 3.712396229103712*^9}, {
   3.712396263201385*^9, 3.712396279494508*^9}, {3.71240685779585*^9, 
   3.712406861250551*^9}, 3.713519482028846*^9, 3.713519531397852*^9, {
   3.7207918488263073`*^9, 3.720791858793359*^9}, 
   3.721457295144446*^9},ExpressionUUID->"c47567d7-9f64-4322-9621-\
82a6e4f4a34d"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
   "6", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
    RowBox[{
     SuperscriptBox["a", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "3"], " ", 
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]], "Output",
 CellChangeTimes->{{3.712396216100659*^9, 3.712396229500268*^9}, {
   3.712396273071225*^9, 3.712396280109161*^9}, 3.7124072876045027`*^9, 
   3.712408796607999*^9, 3.71241112039806*^9, 3.7126518219847517`*^9, 
   3.712829998557274*^9, 3.713342912826324*^9, 3.7133466918861437`*^9, 
   3.7135194861340227`*^9, 3.713519531809759*^9, 3.7135199046086206`*^9, 
   3.7135201732644053`*^9, 3.713521313585442*^9, 3.713600899677238*^9, 
   3.7159057279510517`*^9, 3.719399841112235*^9, 3.7207918660613213`*^9, 
   3.721457496754167*^9, 3.721457991305541*^9, 
   3.7215560113795347`*^9},ExpressionUUID->"840f7a5a-e5b9-4d6b-9bba-\
be91237422b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"gDOFFlatCartesianJacobian", ".", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"gCAdE", "/.", 
       RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], ")"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/.", "gDisplayCA"}]], "Input",
 CellChangeTimes->{{3.712396360944914*^9, 3.7123964447929993`*^9}, {
  3.712399309692583*^9, 3.7123993350415783`*^9}, {3.713519537773522*^9, 
  3.713519545477243*^9}, {3.720791870425655*^9, 3.720791881696879*^9}, {
  3.7207949424260063`*^9, 3.720794947695835*^9}, {3.7214580071494427`*^9, 
  3.7214580091384153`*^9}},ExpressionUUID->"d7f3effb-aaf5-4fa3-89be-\
3332b23a0394"],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"5", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
   "a"], "}"}]], "Output",
 CellChangeTimes->{{3.712396391905416*^9, 3.712396400302704*^9}, {
   3.71239643260431*^9, 3.712396448936183*^9}, {3.71239931278283*^9, 
   3.7123993366201468`*^9}, 3.712407288809877*^9, 3.712408797895733*^9, 
   3.712411121580531*^9, 3.712651823113089*^9, 3.712829999818204*^9, 
   3.713342914196904*^9, 3.7133466931067038`*^9, 3.713519546154517*^9, 
   3.713519904708651*^9, 3.713520173342874*^9, 3.713521313668682*^9, 
   3.71360089976081*^9, 3.715905728012746*^9, 3.719399841227346*^9, 
   3.720791882541918*^9, 3.721457496842545*^9, {3.721458000486947*^9, 
   3.721458010309742*^9}, 
   3.721556011463368*^9},ExpressionUUID->"9befdb93-3404-470c-b501-\
6c347602b938"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gFlatCartesianLagrangianCATerm", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"gCA", "/.", 
          RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}], ",", 
           RowBox[{"c", "\[Rule]", 
            RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}], 
       "\[TensorProduct]", "gFlatCartesianVelocity"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], "/.", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"gCA", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"F", "[", "1", "]"}]}], "*", 
         RowBox[{
          RowBox[{"a", "^", "5"}], "/", "6"}]}]}], "\[IndentingNewLine]", 
       "}"}], "/.", 
      RowBox[{"{", 
       RowBox[{"a", "\[Rule]", 
        RowBox[{"a", "[", "t", "]"}]}], "}"}]}], ")"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.712399347538848*^9, 3.712399548971678*^9}, {
   3.712399701753441*^9, 3.712399739527751*^9}, {3.7123998165645733`*^9, 
   3.7123998418675003`*^9}, {3.712399929881443*^9, 3.712399930241315*^9}, {
   3.712400232239328*^9, 3.712400235766127*^9}, {3.712400680824668*^9, 
   3.712400682497161*^9}, {3.712400717559855*^9, 3.7124007945724497`*^9}, {
   3.7124073967428207`*^9, 3.7124074002387877`*^9}, {3.71246780202345*^9, 
   3.712467802303541*^9}, {3.712651964711032*^9, 3.712652040195421*^9}, {
   3.712839870827565*^9, 3.7128399187534237`*^9}, {3.71351955102992*^9, 
   3.713519570181099*^9}, {3.720791885931798*^9, 3.720791982466754*^9}, {
   3.720792076222886*^9, 3.720792107924034*^9}, 
   3.7214572951605577`*^9},ExpressionUUID->"4d657d54-758d-4f66-bf70-\
545559666ae7"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"], " ", 
   RowBox[{"F", "[", "1", "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], 
  RowBox[{
   SubscriptBox["N", "lapse"], "[", "t", "]"}]]], "Output",
 CellChangeTimes->{3.720792108260947*^9, 3.721457496925585*^9, 
  3.721458019174162*^9, 
  3.721556011529248*^9},ExpressionUUID->"5f6c0953-746b-4a7e-8f01-\
1e76875b166d"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "a00110a5-32b6-4928-9c37-a95e5cf22962"],
 "-sector"
}], "Subsection",
 CellChangeTimes->{{3.70038917158633*^9, 3.700389182219658*^9}, {
  3.710657468754979*^9, 
  3.710657475383335*^9}},ExpressionUUID->"8249337d-193a-4481-b89e-\
2e2653d6c6a0"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "abf77488-5eaa-465c-8ee8-ef1f274276ea"],
 " coefficients"
}], "Subsubsection",
 CellChangeTimes->{{3.710666078733161*^9, 
  3.710666085595832*^9}},ExpressionUUID->"adba1258-462e-4c24-b450-\
f06b77564b41"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCAB", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CAB", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCABdE", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CABdE", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCdEab", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CdEab", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"d", "-", "1"}], ",", 
       RowBox[{"d", "-", "1"}]}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.703494875935891*^9, 3.7034948822515574`*^9}, {
   3.703494959488491*^9, 3.703494961263348*^9}, {3.7034950601088047`*^9, 
   3.7034950895546618`*^9}, {3.703495304981082*^9, 3.703495345169332*^9}, {
   3.703495532379491*^9, 3.70349557619281*^9}, {3.70349660133768*^9, 
   3.703496606751092*^9}, {3.7034966570455008`*^9, 3.7034966648933477`*^9}, {
   3.704193226061171*^9, 3.704193240530871*^9}, {3.704299470199032*^9, 
   3.7042994859001217`*^9}, {3.704299543592659*^9, 3.704299549452632*^9}, {
   3.704442551688158*^9, 3.7044425534437313`*^9}, {3.707209419421114*^9, 
   3.707209424379286*^9}, {3.70720975226521*^9, 3.707209866000699*^9}, {
   3.7072099101294107`*^9, 3.70720991399531*^9}, {3.707210069931086*^9, 
   3.707210071392524*^9}, {3.707210170794895*^9, 3.707210196984322*^9}, {
   3.707210466546845*^9, 3.70721050768832*^9}, {3.7072105979299726`*^9, 
   3.7072106282644777`*^9}, {3.707214809114159*^9, 3.70721481690343*^9}, {
   3.707217410744656*^9, 3.7072174111285*^9}, {3.709904128511923*^9, 
   3.7099042257578917`*^9}, {3.709907196480864*^9, 3.7099071964920063`*^9}, {
   3.709907316871912*^9, 3.709907319919664*^9}, 3.709908137871416*^9, 
   3.7106653708789*^9, {3.710742833604822*^9, 3.710742837808114*^9}, {
   3.7135058619909697`*^9, 3.713506002105163*^9}, {3.7135074596039543`*^9, 
   3.713507551168273*^9}, {3.713507605302837*^9, 3.713507605397406*^9}, {
   3.713508738760113*^9, 3.7135088009969683`*^9}, {3.713511550877738*^9, 
   3.713511551733128*^9}, {3.713518589934288*^9, 
   3.713518595698518*^9}},ExpressionUUID->"6d031220-497d-476c-afa9-\
65e00d952d9d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gDisplayCAB", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCAB", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "B"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1``2`\)]\)\>\"", "]"}], "[", 
          RowBox[{"A", ",", "B"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"B", ",", "n"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCABdE", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "B", ",", "E"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1``2` : `3`\)]\)\>\"", "]"}], 
          "[", 
          RowBox[{"A", ",", "B", ",", "E"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"B", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "n"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gCdEab", "[", 
          RowBox[{"[", 
           RowBox[{"E", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
         "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(\(:\)\*SuperscriptBox[\(`1`\), \
\(`2``3`\)]\)]\)\>\"", "]"}], "[", 
          RowBox[{"E", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Alpha]", ",", 
          RowBox[{"d", "-", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", 
          RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713507636740687*^9, 3.7135076563400393`*^9}, {
  3.7135088101893873`*^9, 3.713508875179031*^9}, {3.713518601035149*^9, 
  3.713518603891073*^9}},ExpressionUUID->"0eb291d1-f3eb-4ca9-b133-\
d97423d79bf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C10", "2"], TraditionalForm]],ExpressionUUID->
  "40cb7212-e998-4ff4-a119-ce8540b0c3a5"],
 ", C3, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C8", "3"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "3ad7b9c6-ff3d-4d68-a03c-2c1a1e6f45b8"]
}], "Subsubsection",
 CellChangeTimes->{{3.7106655334368057`*^9, 3.71066553988848*^9}, {
  3.7135108489156*^9, 
  3.713510860718734*^9}},ExpressionUUID->"94bd9488-20d4-4fec-800c-\
833ebe34e224"],

Cell[TextData[{
 "determines the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "f41bab0c-b0c8-45eb-ab18-cabbed1a4719"],
 " with one remaining constant:"
}], "Text",
 CellChangeTimes->{{3.71066554886775*^9, 3.710665587795435*^9}, {
  3.713510864827347*^9, 
  3.7135108689694757`*^9}},ExpressionUUID->"b3e9d920-51d8-40fe-90aa-\
9e1e47e1f599"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "10", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"gCAB", "\[TensorProduct]", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"2", "*", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"Symmetrize", "[", 
        RowBox[{
         RowBox[{"TensorContract", "[", 
          RowBox[{
           RowBox[{"gCAB", "\[TensorProduct]", "FgdE"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], "}"}]}], "]"}], ",", 
         RowBox[{"Symmetric", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}]}], "]"}]}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCABdE", "\[TensorProduct]", "FgFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713506018035479*^9, 3.713506035073563*^9}, {
  3.71350766618915*^9, 3.7135076723588257`*^9}, {3.71350770768373*^9, 
  3.713507741125736*^9}, {3.7135079554235983`*^9, 3.713508197815308*^9}, {
  3.7135186094358263`*^9, 
  3.7135186155379467`*^9}},ExpressionUUID->"2a6040cf-c321-4821-9ae0-\
28ccfa49b5bd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Symmetrize", "[", 
   RowBox[{
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"PgFlatCartesian", "\[TensorProduct]", "FgFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], "}"}]}], "]"}], ",", 
    RowBox[{"Antisymmetric", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7135187638549747`*^9, 
  3.713518846362598*^9}},ExpressionUUID->"4da90889-91d4-43ef-bdc1-\
c10fa42eaa61"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        Column], "\[NoBreak]", ")"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[
    StructuredArray[SymmetrizedArray, {3, 6, 3}, 
     StructuredArray`StructuredData[SymmetrizedArray, {}, 
      Antisymmetric[{1, 3}]]]]]]], "Output",
 CellChangeTimes->{{3.713518829624197*^9, 3.713518846647751*^9}, 
   3.7135199026997147`*^9, 3.7135201715462713`*^9, 3.713521285464994*^9, 
   3.713600831645281*^9, 3.7159057264682207`*^9, 3.719399839785617*^9, 
   3.7214574972361803`*^9, 3.721556011838293*^9, 
   3.721561880062729*^9},ExpressionUUID->"3bd95e15-932b-46e2-a78c-\
846d81a0e1fd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gFlatCartesianCE", "[", "3", "]"}], "=", 
   RowBox[{
    RowBox[{"2", "*", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
       "gCAB", "\[TensorProduct]", "PgFlatCartesian", "\[TensorProduct]", 
        "FgFlatCartesian"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "7"}], "}"}]}], "}"}]}], "]"}]}], "-", 
    "gCdEab"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713518662506839*^9, 3.71351874424629*^9}, {
  3.713518876784363*^9, 
  3.713518931469055*^9}},ExpressionUUID->"352af9f4-5c58-49e8-a4ac-\
0eb18e95efb4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "8", "]"}], "[", "3", "]"}], "=", 
   RowBox[{"Symmetrize", "[", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"gCdEab", "\[TensorProduct]", "FgFlatCartesian"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.713518672424658*^9, 3.713518684801737*^9}, {
  3.713518960661879*^9, 3.713518984419725*^9}, {3.71351905432343*^9, 
  3.7135190756392107`*^9}},ExpressionUUID->"fbf61072-7f83-46f3-8ea7-\
0ad94528e4d7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCESolution", "[", "10", "]"}], "[", "2", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"gFlatCartesianCE", "[", "8", "]"}], "[", "3", "]"}], 
           "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"gFlatCartesianCE", "[", "3", "]"}], "]"}], "\[Equal]", 
          "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"gFlatCartesianCE", "[", "10", "]"}], "[", "2", "]"}], 
           "]"}], "\[Equal]", "0"}], "]"}]}], "\[IndentingNewLine]", "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCdEab", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCAB", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCABdE", "]"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
    "First"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
    RowBox[{
     RowBox[{"gFlatCartesianCESolution", "[", "10", "]"}], "[", "2", "]"}]}], 
   "/.", "gDisplayCAB"}], "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Variables", "[", 
   RowBox[{
    RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
    RowBox[{
     RowBox[{"gFlatCartesianCESolution", "[", "10", "]"}], "[", "2", "]"}]}], 
   "]"}], "/.", "gDisplayCAB"}]}], "Input",
 CellChangeTimes->{{3.713510580144765*^9, 3.713510606715064*^9}, {
  3.713510653261426*^9, 3.713510799308248*^9}, {3.7135108800262136`*^9, 
  3.713510882945427*^9}, {3.7135109262012978`*^9, 3.713510927079969*^9}, {
  3.713518618450123*^9, 3.713518624587411*^9}, {3.713519001364544*^9, 
  3.713519012795187*^9}},ExpressionUUID->"ed3e0a46-883a-4eba-8167-\
1a55a012b37a"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   290,100,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7135190816260767`*^9, 3.71351990312154*^9, 
  3.7135201719166*^9, 3.713521285843421*^9, 3.7136008319020653`*^9, 
  3.715905726712482*^9, 3.719399840020854*^9, 3.721457497520563*^9, 
  3.7214580501419277`*^9, 3.721556012128026*^9, 
  3.721561883703219*^9},ExpressionUUID->"d087d35f-fd9f-4705-8d5d-\
310382bb8559"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
      "0", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"},
     {"0", 
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
      "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
      "0", "0", "0"},
     {"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", "0", "0", "0", 
      "0", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
      "0"},
     {"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", "0", 
      "0", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7135189933212214`*^9, 3.713519030428014*^9}, 
   3.713519081650092*^9, 3.713519903154738*^9, 3.713520171928339*^9, 
   3.713521285866835*^9, 3.7136008319175777`*^9, 3.7159057267222223`*^9, 
   3.719399840030233*^9, 3.721457497543737*^9, 3.721458050169261*^9, 
   3.721556012143703*^9, 
   3.721561883728252*^9},ExpressionUUID->"5c483883-1aa9-474f-9d0e-\
a982a402a9d9"],

Cell[BoxData[
 RowBox[{"{", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
  "}"}]], "Output",
 CellChangeTimes->{{3.7135189933212214`*^9, 3.713519030428014*^9}, 
   3.713519081650092*^9, 3.713519903154738*^9, 3.713520171928339*^9, 
   3.713521285866835*^9, 3.7136008319175777`*^9, 3.7159057267222223`*^9, 
   3.719399840030233*^9, 3.721457497543737*^9, 3.721458050169261*^9, 
   3.721556012143703*^9, 
   3.721561883741357*^9},ExpressionUUID->"68a26fa6-4d37-4817-9d37-\
5df3a63845fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gFlatCartesianCABDOFSolution", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"DOFSolve", "[", 
      RowBox[{
       RowBox[{"gCAB", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"gCABdE", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "4"}], "]"}], "]"}], "]"}], "/.", 
        RowBox[{
         RowBox[{"gFlatCartesianCESolution", "[", "10", "]"}], "[", "2", 
         "]"}]}], ",", 
       RowBox[{"\[CapitalPhi]gFlatCartesian", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "xgFlatCartesian"}], 
      "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Const", "[", "0", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"Const", "[", "2", "]"}], "/", "24"}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gFlatCartesianCABDOFSolution", "/.", "gDisplayCAB"}], "//", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.7072180421124687`*^9, 3.707218109839018*^9}, {
   3.7072185914104433`*^9, 3.707218592129012*^9}, {3.707218631234043*^9, 
   3.707218641927512*^9}, 3.709907196780607*^9, {3.7099083037453136`*^9, 
   3.70990831381604*^9}, {3.710665627660658*^9, 3.7106656339618807`*^9}, {
   3.710667028310877*^9, 3.710667033745489*^9}, {3.713508395473753*^9, 
   3.713508532365717*^9}, {3.7135085671558332`*^9, 3.713508582683868*^9}, {
   3.7135088957240133`*^9, 3.7135088987057734`*^9}, {3.7135109485373983`*^9, 
   3.713510949623027*^9}, 3.713511051523353*^9, {3.713511709507159*^9, 
   3.7135117108984327`*^9}, {3.713519093920719*^9, 3.713519133283029*^9}, {
   3.720809444235806*^9, 3.720809455127944*^9}, {3.721560617112689*^9, 
   3.7215606196002827`*^9}},ExpressionUUID->"e976a1ad-a8a6-47cc-b052-\
3e4c88556842"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
       "\[Rule]", 
       RowBox[{
        FractionBox["1", "24"], " ", 
        SuperscriptBox["a", "7"], " ", 
        RowBox[{"Const", "[", "2", "]"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.707218111109932*^9, {3.707218640018433*^9, 3.707218642534432*^9}, 
   3.707560095844985*^9, 3.707812591121841*^9, 3.7089341863986197`*^9, 
   3.7093629877477493`*^9, 3.70988268345415*^9, 3.709908315521072*^9, 
   3.710053508587678*^9, 3.710149134466074*^9, 3.710665635656672*^9, 
   3.7106670343226433`*^9, 3.7106679499622507`*^9, 3.710936213776208*^9, 
   3.7110402694149933`*^9, 3.711355981503294*^9, 3.711361485402875*^9, 
   3.711700849763433*^9, 3.7123952570551577`*^9, 3.7124072756292753`*^9, 
   3.712408783316556*^9, 3.7124111084129763`*^9, 3.712651810350786*^9, 
   3.71282998244088*^9, 3.713342896368113*^9, 3.7133466776504183`*^9, {
   3.713508427512591*^9, 3.713508452271165*^9}, 3.713508489211165*^9, {
   3.713508526722848*^9, 3.7135085326677227`*^9}, {3.713508576193741*^9, 
   3.7135085836941853`*^9}, {3.713508887569345*^9, 3.713508905274338*^9}, 
   3.713510976016901*^9, 3.713511052442631*^9, 3.71351171123621*^9, {
   3.713519127773031*^9, 3.713519133790162*^9}, 3.713519903257653*^9, 
   3.7135201720284977`*^9, 3.713521285943501*^9, 3.713600832005115*^9, 
   3.7159057267950068`*^9, 3.719399840172221*^9, {3.720809445592085*^9, 
   3.720809457916278*^9}, 3.721457497707486*^9, 3.721458054468419*^9, 
   3.721556012229765*^9, 3.72156176475215*^9, 
   3.7215618859436007`*^9},ExpressionUUID->"9bfd5088-f0fb-42a3-b15c-\
b0f50de1b80c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gFlatCartesianLagrangianCABTerm", "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
            RowBox[{
             RowBox[{"gFlatCartesianCESolution", "[", "10", "]"}], "[", "2", 
             "]"}]}], "/.", "gFlatCartesianCABDOFSolution"}], "/.", 
          RowBox[{"{", 
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}], "}"}]}], ")"}], 
        "\[TensorProduct]", "gFlatCartesianVelocity", "\[TensorProduct]", 
        "gFlatCartesianVelocity"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"gFlatCartesianLagrangianCABTerm", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"Det", "[", 
      RowBox[{"gBarFLRWFlatCartesian", "[", "0", "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"Join", "[", 
    RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.707218710938284*^9, 3.707218736947144*^9}, {
   3.713511077163007*^9, 3.7135110781053953`*^9}, {3.7135116276311493`*^9, 
   3.713511641792068*^9}, 3.713519145260065*^9, {3.721457295206627*^9, 
   3.7214572952106447`*^9}},ExpressionUUID->"a8e7e4e9-416a-4475-a65d-\
68247137c308"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"Const", "[", "2", "]"}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["a", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "2"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.707218739449709*^9, 3.7075600960294933`*^9, 3.707812591563573*^9, 
   3.7089341865492077`*^9, 3.7093629878982964`*^9, 3.7098826836048937`*^9, 
   3.709908331393868*^9, 3.710053508736937*^9, 3.7101491346846046`*^9, 
   3.710667975815124*^9, 3.710668014621737*^9, 3.7109362143375807`*^9, 
   3.710936353969697*^9, 3.711040270263618*^9, 3.71135598240584*^9, 
   3.711361486318391*^9, 3.7117008506161413`*^9, 3.7123952579707212`*^9, 
   3.712407276731305*^9, 3.712408784266683*^9, 3.71241110942946*^9, 
   3.7126518114851627`*^9, 3.712829983352858*^9, 3.713342897558052*^9, 
   3.7133466785505533`*^9, {3.7135110403757477`*^9, 3.7135110785827837`*^9}, 
   3.713511658560627*^9, 3.713511715352026*^9, 3.713519168908341*^9, 
   3.7135199033580914`*^9, 3.713520172109803*^9, 3.713521286010404*^9, 
   3.7136008320702972`*^9, 3.715905726863029*^9, 3.719399840230042*^9, {
   3.7208094471205063`*^9, 3.72080946058637*^9}, 3.721457497792472*^9, 
   3.721458056572166*^9, 3.721556012297176*^9, 
   3.721561888833748*^9},ExpressionUUID->"296cabe5-312a-46a0-bc0d-\
ab8ed12406c0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Construct the flat cartesian metric gravitational Lagrangian", \
"Subsection",
 CellChangeTimes->{{3.710668037497237*^9, 
  3.71066805939226*^9}},ExpressionUUID->"e16d092c-714b-42cd-ac78-\
83700187a283"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gLRenameConstants", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "[", "1", "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"-", "\[CapitalLambda]"}], "/", "\[Kappa]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Const", "[", "2", "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"-", "3"}], "/", "\[Kappa]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"gFlatCartesianLagrangian", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["N", "lapse"], "[", "t", "]"}], "*", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
        "gFlatCartesianLagrangianCTerm", "+", 
         "gFlatCartesianLagrangianCABTerm"}], "\[IndentingNewLine]", ")"}]}], 
      "/.", "gLRenameConstants"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.711701441815598*^9, 3.711701591126876*^9}, {
  3.713511774408695*^9, 3.713511812586183*^9}, {3.7208095104108677`*^9, 
  3.720809574350472*^9}, {3.720809610772511*^9, 3.720809615381419*^9}, {
  3.720809652007286*^9, 3.720809662900845*^9}, {3.720810394481545*^9, 
  3.720810409414298*^9}},ExpressionUUID->"1f510397-de4f-4d63-ad11-\
959aa761feb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"\[CapitalLambda]", " ", 
     SuperscriptBox[
      RowBox[{"a", "[", "t", "]"}], "3"], " ", 
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}]}], "\[Kappa]"]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"a", "[", "t", "]"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}], 
   RowBox[{"\[Kappa]", " ", 
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]], "Output",
 CellChangeTimes->{{3.711701522185363*^9, 3.711701592945313*^9}, 
   3.712395258120861*^9, 3.712407277196932*^9, 3.712408784365532*^9, 
   3.7124111096165123`*^9, 3.712651811715206*^9, 3.712829983871319*^9, 
   3.713342897749776*^9, 3.7133466788573313`*^9, 3.713511136898526*^9, {
   3.713511796529147*^9, 3.713511813080823*^9}, 3.7135191763628597`*^9, 
   3.7135199034580936`*^9, 3.713520172195364*^9, 3.713521286076933*^9, 
   3.713600832135015*^9, 3.715905726929421*^9, 3.719399840283887*^9, 
   3.720809334885702*^9, {3.7208095002098627`*^9, 3.7208095121626663`*^9}, {
   3.720809605674941*^9, 3.720809615870945*^9}, 3.72080966403426*^9, {
   3.72081039509382*^9, 3.7208104099661503`*^9}, 3.721457497942381*^9, 
   3.721458060393999*^9, 
   3.7215560123615637`*^9},ExpressionUUID->"34ba222c-02fc-40a6-a948-\
e98669270727"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derive the flat cartesian metric Friedmann equations", "Subsection",
 CellChangeTimes->{{3.7117016138790827`*^9, 
  3.7117016259813557`*^9}},ExpressionUUID->"7253c3a4-97fb-4615-ac66-\
d12a0738d3af"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gFlatCartesianEOMs", "=", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Expand", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"0", "\[Equal]", 
          RowBox[{"(", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{"gFlatCartesianLagrangian", ",", "x"}], "]"}], "-", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{"gFlatCartesianLagrangian", ",", 
                RowBox[{"D", "[", 
                 RowBox[{"x", ",", "t"}], "]"}]}], "]"}], ",", "t"}], "]"}], 
            "+", 
            RowBox[{
             RowBox[{"gFLRWFlatCartesianVolumeElement", "/", "2"}], "*", 
             RowBox[{"TensorContract", "[", 
              RowBox[{
               RowBox[{"gSourceTensor", "\[TensorProduct]", 
                RowBox[{"D", "[", 
                 RowBox[{"gFLRW", ",", "x"}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}]}]}], 
           "\[IndentingNewLine]", ")"}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["N", "lapse"], "[", "t", "]"}], "\[Rule]", "1"}], 
           ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              SubscriptBox["N", "lapse"], "'"}], "[", "t", "]"}], "\[Rule]", 
            "0"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"Join", "[", "coordinateAssumptions", "]"}]}], 
       "\[IndentingNewLine]", "]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["N", "lapse"], "[", "t", "]"}], ",", 
         RowBox[{"a", "[", "t", "]"}]}], "}"}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"gFlatCartesianEOMs", "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.711701629839961*^9, 3.7117017176594963`*^9}, {
  3.711701945165868*^9, 3.711702284682394*^9}, {3.711702319881691*^9, 
  3.71170234769086*^9}, {3.711702382481147*^9, 3.711702407902926*^9}, {
  3.71170734489202*^9, 3.711707360176272*^9}, {3.71282618207899*^9, 
  3.712826211698916*^9}, {3.71282637160699*^9, 
  3.71282639821031*^9}},ExpressionUUID->"e8b70bcf-439a-461e-86f0-\
3a124f4b0380"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "3"]}], "\[Kappa]"], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"a", "[", "t", "]"}], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "\[Kappa]"]}],
        "\[Equal]", "0"}]},
     {
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"]}], "\[Kappa]"], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "\[Kappa]"], "-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "\[Kappa]"]}], 
       "\[Equal]", "0"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.711702205298905*^9, 3.711702213954647*^9}, {
   3.7117022691559067`*^9, 3.7117022864103823`*^9}, 3.711702348824461*^9, 
   3.711702383230955*^9, 3.7117073605369253`*^9, 3.712395258221263*^9, 
   3.712395531251769*^9, 3.7124072772602158`*^9, 3.712408784433176*^9, 
   3.712411109711749*^9, 3.7126518118187647`*^9, 3.7128262148648663`*^9, 
   3.712826289061688*^9, {3.712826375384231*^9, 3.712826400075491*^9}, 
   3.7128299840718317`*^9, 3.713342897974897*^9, 3.713346679156953*^9, 
   3.713511842527667*^9, 3.713519179794654*^9, 3.713519903558341*^9, 
   3.713520172276175*^9, 3.71352128614363*^9, 3.713600832201078*^9, 
   3.71590572703297*^9, 3.719399840344859*^9, 3.721457498068872*^9, 
   3.721458068893121*^9, 
   3.721556012481196*^9},ExpressionUUID->"2b6d88a0-4ecb-406f-a341-\
623a00f7d71c"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Metric with arbitrary k", "Section",
 CellChangeTimes->{{3.7106651829126377`*^9, 3.710665195951501*^9}, {
  3.7215878515189123`*^9, 
  3.721587855344034*^9}},ExpressionUUID->"bda57d23-30d7-406f-8b9a-\
06599851fc3a"],

Cell[CellGroupData[{

Cell[TextData[{
 "Solve for ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "18d4eab5-4bba-4675-b8cc-28d926240e8d"]
}], "Subsection",
 CellChangeTimes->{{3.7106684540973186`*^9, 
  3.7106684586320133`*^9}},ExpressionUUID->"93e5f30f-3b1b-4082-af41-\
9f9a5bd7358e"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C10", "2"], 
  TraditionalForm]],ExpressionUUID->"c6cc12da-a1a7-494f-ad46-e1e48ef6add3"]], \
"Subsubsection",
 CellChangeTimes->{{3.700389204762821*^9, 3.700389208112165*^9}, {
  3.710665270650539*^9, 
  3.710665270970582*^9}},ExpressionUUID->"8bdd386f-ac6d-4b32-93a2-\
526c74ae2081"],

Cell[TextData[{
 "By assumption that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "0ca47cb6-edfd-4051-b8d3-77e1613fcebc"],
 " only depends on ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Phi]", "A"], TraditionalForm]],ExpressionUUID->
  "2da32d76-f1eb-4cc4-9dc5-95f32cedbf59"],
 " and no derivatives of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Phi]", "A"], TraditionalForm]],ExpressionUUID->
  "6ab0e379-6a0f-4da4-a5f1-ec1aed63de4b"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C10", "2"], TraditionalForm]],ExpressionUUID->
  "fab00d80-85c3-4e11-a16a-b89dfbbf3aac"],
 " determines the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "d0d14dc9-cce2-4578-8d0c-6d9f4ca1b563"],
 " with two remaining constants:"
}], "Text",
 CellChangeTimes->{{3.710665375634862*^9, 
  3.71066547014791*^9}},ExpressionUUID->"8a07e8c3-933a-4d37-9e6b-\
f86ebc23195f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCE", "[", "10", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"gCAB", "\[TensorProduct]", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"2", "*", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"Symmetrize", "[", 
        RowBox[{
         RowBox[{"TensorContract", "[", 
          RowBox[{
           RowBox[{"gCAB", "\[TensorProduct]", "FgdE"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], "}"}]}], "]"}], ",", 
         RowBox[{"Symmetric", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}]}], "]"}]}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCABdE", "\[TensorProduct]", "Fg"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.721556150612533*^9, 
  3.721556158296401*^9}},ExpressionUUID->"743fdb5c-b135-44b4-b019-\
3043288be800"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gCE", "[", "3", "]"}], "=", 
   RowBox[{
    RowBox[{"2", "*", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"gCAB", "\[TensorProduct]", "Pg", "\[TensorProduct]", "Fg"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "7"}], "}"}]}], "}"}]}], "]"}]}], "-", 
    "gCdEab"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.721556370554317*^9, 3.721556370848385*^9}, {
  3.721556402456353*^9, 
  3.721556407896942*^9}},ExpressionUUID->"ff3c887c-b545-4771-b0f6-\
867d8add278a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCE", "[", "8", "]"}], "[", "3", "]"}], "=", 
   RowBox[{"Symmetrize", "[", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"gCdEab", "\[TensorProduct]", "Fg"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.721556500684174*^9, 3.721556500891549*^9}, 
   3.7215566118745527`*^9},ExpressionUUID->"b932c31e-bd9b-4d78-8585-\
ccf2e3441d37"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"gCE", "[", "8", "]"}], "[", "3", "]"}], "]"}], 
          "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"gCE", "[", "3", "]"}], "]"}], "\[Equal]", "0"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"gCE", "[", "10", "]"}], "[", "2", "]"}], "]"}], 
          "\[Equal]", "0"}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCdEab", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCAB", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "gCABdE", "]"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
    "First"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
    RowBox[{
     RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "/.", 
   "gDisplayCAB"}], "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Variables", "[", 
   RowBox[{
    RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
    RowBox[{
     RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "]"}], "/.", 
  "gDisplayCAB"}]}], "Input",
 CellChangeTimes->{{3.721556635708864*^9, 
  3.721556653691272*^9}},ExpressionUUID->"a0d249c7-9eeb-4985-ac98-\
6d825b598185"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   203,4,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.721556655255787*^9},ExpressionUUID->"12d35e8a-2ead-44c6-94f3-\
e6bb35a1ea44"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
      "0", 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
     {"0", 
      RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
      "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
       " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0", "0", "0"},
     {"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", "0", "0", "0", 
      "0", 
      RowBox[{
       RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "4"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]},
     {"0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "4"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "0"},
     {
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0", "0", 
      RowBox[{
       RowBox[{"-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "4"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "0", 
      "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.721556655268795*^9},ExpressionUUID->"8d1ac7a4-4aa6-47f9-8a6f-\
84d467e7bf52"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "k", ",", "r", ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
   ",", 
   RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7215566552838717`*^9},ExpressionUUID->"c67edb8c-5567-4095-97e0-\
ba38da21c3e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCABDOFSolution", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"DOFSolve", "[", 
      RowBox[{
       RowBox[{"gCAB", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"gCABdE", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "4"}], "]"}], "]"}], "]"}], "/.", 
        RowBox[{
         RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], ",", 
       RowBox[{"\[CapitalPhi]g", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "xg"}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Const", "[", "0", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"Const", "[", "2", "]"}], "/", "24"}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCABDOFSolution", "/.", "gDisplayCAB"}], "//", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.7072180421124687`*^9, 3.707218109839018*^9}, {
   3.7072185914104433`*^9, 3.707218592129012*^9}, {3.707218631234043*^9, 
   3.707218641927512*^9}, 3.709907196780607*^9, {3.7099083037453136`*^9, 
   3.70990831381604*^9}, {3.710665627660658*^9, 3.7106656339618807`*^9}, {
   3.710667028310877*^9, 3.710667033745489*^9}, {3.713508395473753*^9, 
   3.713508532365717*^9}, {3.7135085671558332`*^9, 3.713508582683868*^9}, {
   3.7135088957240133`*^9, 3.7135088987057734`*^9}, {3.7135109485373983`*^9, 
   3.713510949623027*^9}, 3.713511051523353*^9, {3.713511709507159*^9, 
   3.7135117108984327`*^9}, {3.713519093920719*^9, 3.713519133283029*^9}, {
   3.720809444235806*^9, 3.720809455127944*^9}, {3.721556751987729*^9, 
   3.72155677965978*^9}, {3.721560623238963*^9, 3.721560625800293*^9}, {
   3.721573189086483*^9, 3.72157318914215*^9}, {3.7215876305914183`*^9, 
   3.7215876306803417`*^9}},ExpressionUUID->"aae454b2-ebdb-4eab-a1c9-\
36ffc0b775fa"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14\\)]\\)\"\>", 
       "\[Rule]", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "7"], " ", 
         SuperscriptBox["r", "4"], " ", 
         RowBox[{"Const", "[", "2", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
        RowBox[{"24", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.707218111109932*^9, {3.707218640018433*^9, 3.707218642534432*^9}, 
   3.707560095844985*^9, 3.707812591121841*^9, 3.7089341863986197`*^9, 
   3.7093629877477493`*^9, 3.70988268345415*^9, 3.709908315521072*^9, 
   3.710053508587678*^9, 3.710149134466074*^9, 3.710665635656672*^9, 
   3.7106670343226433`*^9, 3.7106679499622507`*^9, 3.710936213776208*^9, 
   3.7110402694149933`*^9, 3.711355981503294*^9, 3.711361485402875*^9, 
   3.711700849763433*^9, 3.7123952570551577`*^9, 3.7124072756292753`*^9, 
   3.712408783316556*^9, 3.7124111084129763`*^9, 3.712651810350786*^9, 
   3.71282998244088*^9, 3.713342896368113*^9, 3.7133466776504183`*^9, {
   3.713508427512591*^9, 3.713508452271165*^9}, 3.713508489211165*^9, {
   3.713508526722848*^9, 3.7135085326677227`*^9}, {3.713508576193741*^9, 
   3.7135085836941853`*^9}, {3.713508887569345*^9, 3.713508905274338*^9}, 
   3.713510976016901*^9, 3.713511052442631*^9, 3.71351171123621*^9, {
   3.713519127773031*^9, 3.713519133790162*^9}, 3.713519903257653*^9, 
   3.7135201720284977`*^9, 3.713521285943501*^9, 3.713600832005115*^9, 
   3.7159057267950068`*^9, 3.719399840172221*^9, {3.720809445592085*^9, 
   3.720809457916278*^9}, 3.721457497707486*^9, 3.721458054468419*^9, 
   3.721556012229765*^9, 3.721556781704526*^9, 3.7215618948724957`*^9, 
   3.721573189731687*^9, 
   3.721587633846734*^9},ExpressionUUID->"6efcaea6-66a4-46fe-8894-\
345c2a2978a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gLagrangianCABTerm", "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", "gCAB", "]"}], "/.", 
            RowBox[{
             RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "/.",
            "gCABDOFSolution"}], "/.", 
          RowBox[{"{", 
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}], "}"}]}], ")"}], 
        "\[TensorProduct]", "gVelocity", "\[TensorProduct]", "gVelocity"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"gLagrangianCABTerm", "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"Det", "[", 
      RowBox[{"gBarFLRW", "[", "0", "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"Join", "[", 
    RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.707218710938284*^9, 3.707218736947144*^9}, {
   3.713511077163007*^9, 3.7135110781053953`*^9}, {3.7135116276311493`*^9, 
   3.713511641792068*^9}, 3.713519145260065*^9, {3.721457295206627*^9, 
   3.7214572952106447`*^9}, {3.721556796122958*^9, 
   3.7215568230109053`*^9}},ExpressionUUID->"4bf3fae5-859c-4f0a-88f7-\
24fd93c78d24"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"Const", "[", "2", "]"}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["a", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "2"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.707218739449709*^9, 3.7075600960294933`*^9, 3.707812591563573*^9, 
   3.7089341865492077`*^9, 3.7093629878982964`*^9, 3.7098826836048937`*^9, 
   3.709908331393868*^9, 3.710053508736937*^9, 3.7101491346846046`*^9, 
   3.710667975815124*^9, 3.710668014621737*^9, 3.7109362143375807`*^9, 
   3.710936353969697*^9, 3.711040270263618*^9, 3.71135598240584*^9, 
   3.711361486318391*^9, 3.7117008506161413`*^9, 3.7123952579707212`*^9, 
   3.712407276731305*^9, 3.712408784266683*^9, 3.71241110942946*^9, 
   3.7126518114851627`*^9, 3.712829983352858*^9, 3.713342897558052*^9, 
   3.7133466785505533`*^9, {3.7135110403757477`*^9, 3.7135110785827837`*^9}, 
   3.713511658560627*^9, 3.713511715352026*^9, 3.713519168908341*^9, 
   3.7135199033580914`*^9, 3.713520172109803*^9, 3.713521286010404*^9, 
   3.7136008320702972`*^9, 3.715905726863029*^9, 3.719399840230042*^9, {
   3.7208094471205063`*^9, 3.72080946058637*^9}, 3.721457497792472*^9, 
   3.721458056572166*^9, 3.721556012297176*^9, 3.7215568253666067`*^9, 
   3.721561897165923*^9, 3.721573199812491*^9, 
   3.721587649937099*^9},ExpressionUUID->"15a2f7ca-ee41-4f28-903f-\
a7d8c61a0663"]
}, Open  ]],

Cell["\<\
We find the same Lagrangian term as for the flat cartesian computation, but \
with the coordinate-transformed volume element.\
\>", "Text",
 CellChangeTimes->{{3.721556866543936*^9, 
  3.721556984628944*^9}},ExpressionUUID->"349da6c0-45af-4369-8335-\
f42b0b97e3e0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Solve for ",
 Cell[BoxData[
  FormBox["C", TraditionalForm]],ExpressionUUID->
  "91c5cf4e-f929-47ce-8833-89657fdeb259"]
}], "Subsection",
 CellChangeTimes->{{3.7106684765115433`*^9, 
  3.710668480333057*^9}},ExpressionUUID->"2c904e39-c6ba-468e-9ff7-\
8d0660a1ad21"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gCdEa", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CdEa", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", 
       RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.721557410653204*^9, 3.721557436155719*^9}, {
  3.721559805335868*^9, 
  3.721559820271244*^9}},ExpressionUUID->"7ae5c36e-399d-4e94-b228-\
e915b698f1c4"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C8", "2"], 
  TraditionalForm]],ExpressionUUID->"516c60f0-a59f-46de-9051-b405db52c7c9"]], \
"Subsubsection",
 CellChangeTimes->{{3.7106682942486353`*^9, 
  3.710668295956902*^9}},ExpressionUUID->"8463641d-58f5-42e2-9bfe-\
04ba9a211d22"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C8", "2"], TraditionalForm]],ExpressionUUID->
  "7c997715-e995-47e9-a36d-ed67dd4ecc50"],
 " determines the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", 
    RowBox[{":", 
     SuperscriptBox["A", "\[Alpha]"]}]], TraditionalForm]],ExpressionUUID->
  "ec921219-fbfd-4126-bb23-8b6acb6027d5"],
 ":"
}], "Text",
 CellChangeTimes->{{3.704188129079171*^9, 3.704188184313779*^9}, {
  3.710666921935996*^9, 
  3.710666923390871*^9}},ExpressionUUID->"92463db0-3154-451e-a049-\
a217ddcf6d7c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCE", "[", "8", "]"}], "[", "2", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"gCdEab", "\[TensorProduct]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"\[CapitalPhi]g", "[", 
               RowBox[{"[", 
                RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"xx", "[", 
               RowBox[{"[", 
                RowBox[{"\[Nu]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"\[Nu]", ",", "1", ",", 
              RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], "+", 
          RowBox[{"TensorContract", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"Fg", "[", 
                 RowBox[{"[", 
                  RowBox[{"A", ",", "\[Alpha]", ",", "\[Nu]"}], "]"}], "]"}], 
                ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Beta]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Alpha]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Nu]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Beta]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"2", ",", "4"}], "}"}], "}"}]}], "]"}]}], ")"}]}], ",", 
       
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "-", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"Symmetrize", "[", 
        RowBox[{
         RowBox[{"gCdEa", "\[TensorProduct]", "Fg"}], ",", 
         RowBox[{"Symmetric", "[", 
          RowBox[{"{", 
           RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", " ", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
     "-", 
     RowBox[{"3", "*", 
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"Symmetrize", "[", 
          RowBox[{
           RowBox[{"gCdEab", "\[TensorProduct]", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"Fg", "[", 
                 RowBox[{"[", 
                  RowBox[{"A", ",", "\[Alpha]", ",", "\[Nu]"}], "]"}], "]"}], 
                ",", 
                RowBox[{"xx", "[", 
                 RowBox[{"[", 
                  RowBox[{"\[Beta]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Alpha]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Nu]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Beta]", ",", "1", ",", 
                RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
           RowBox[{"Symmetric", "[", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3", ",", "5"}], "}"}], "]"}]}], "]"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "7"}], "}"}]}], "}"}]}], "]"}]}]}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.704180728033927*^9, 3.704180728120048*^9}, {
   3.704181313944669*^9, 3.704181383260675*^9}, {3.704181449571649*^9, 
   3.704181579054212*^9}, {3.7041816603310738`*^9, 3.7041816964260073`*^9}, {
   3.704181728825829*^9, 3.70418191116324*^9}, {3.704181970753563*^9, 
   3.704182101451775*^9}, {3.704182159889853*^9, 3.704182189976316*^9}, {
   3.7041823214687233`*^9, 3.7041824062733393`*^9}, {3.7041824441513863`*^9, 
   3.7041826142025833`*^9}, {3.7041891560332327`*^9, 3.704189162438615*^9}, {
   3.704193577748287*^9, 3.704193642391972*^9}, 3.704607090677122*^9, {
   3.709907177218891*^9, 3.709907188076684*^9}, {3.71066830085695*^9, 
   3.71066830368979*^9}, {3.721557403053816*^9, 3.721557403268547*^9}, {
   3.721557528645256*^9, 3.721557535743005*^9}, {3.721557569525817*^9, 
   3.721557569862095*^9}, {3.721557642651226*^9, 3.721557654361651*^9}, {
   3.72155791396183*^9, 
   3.721557958365835*^9}},ExpressionUUID->"02549bfa-81e0-4c18-9359-\
eb9fcd8caa10"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCESolution", "[", "8", "]"}], "[", "2", "]"}], "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Thread", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{"gCE", "[", "8", "]"}], "[", "2", "]"}], "]"}], 
            "\[Equal]", "0"}], "]"}], "/.", 
          RowBox[{
           RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "/.", 
         "gCABDOFSolution"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", "gCdEa", "]"}]}], "\[IndentingNewLine]", 
       "]"}], "//", "First"}], ",", "\[IndentingNewLine]", 
     "coordinateAssumptions"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70418273600168*^9, 3.704182750578649*^9}, {
   3.70418281336299*^9, 3.704182859546482*^9}, {3.704182905393366*^9, 
   3.7041829157210217`*^9}, {3.70418298542912*^9, 3.704183001995554*^9}, {
   3.704183135076703*^9, 3.7041831959144163`*^9}, {3.7041832465701523`*^9, 
   3.704183248388956*^9}, 3.7041832928591557`*^9, {3.70418354127439*^9, 
   3.704183542242442*^9}, {3.7041840406880407`*^9, 3.7041841065501213`*^9}, {
   3.704189339811761*^9, 3.7041893416563396`*^9}, 3.7041936496552057`*^9, {
   3.7072110113002663`*^9, 3.70721101194044*^9}, 3.7099071880867577`*^9, {
   3.71066831424168*^9, 3.71066832445566*^9}, {3.7215580935588827`*^9, 
   3.721558191251903*^9}, {3.721560055420472*^9, 3.721560055914751*^9}, {
   3.721561304611684*^9, 
   3.721561306833537*^9}},ExpressionUUID->"3f4cdad9-7589-41fe-88ac-\
099dcceef177"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"gCdEa", "/.", 
      RowBox[{
       RowBox[{"gCESolution", "[", "8", "]"}], "[", "2", "]"}]}], ",", 
     "coordinateAssumptions"}], "]"}], "/.", "gDisplayC"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.704184126094442*^9, 3.7041842264560003`*^9}, {
   3.704184371261498*^9, 3.704184385547621*^9}, {3.7041899951195593`*^9, 
   3.704190018889256*^9}, {3.704190051927745*^9, 3.7041900521822166`*^9}, {
   3.704190091717812*^9, 3.704190095709901*^9}, 3.7041936551252003`*^9, {
   3.707211092443858*^9, 3.707211093244268*^9}, 3.709907188103359*^9, {
   3.710668331888137*^9, 3.7106683327761993`*^9}, {3.721559862263626*^9, 
   3.721559873486373*^9}},ExpressionUUID->"bb8cc880-8294-4b76-9b22-\
6ad0155c0e6a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", "r", " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "3"], " ", 
         RowBox[{"Const", "[", "2", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
        RowBox[{"6", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]]}], "0"},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]], 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", "r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}]}]], "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", "r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}]}]]},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", 
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "7"}], "+", 
          RowBox[{"8", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"6", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]], 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
       RowBox[{"6", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]], "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        SqrtBox["2"], " ", 
        SuperscriptBox["a", "3"], " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]]},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", 
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "7"}], "+", 
          RowBox[{"8", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "3"]}], 
       RowBox[{"6", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "3"], " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"Const", "[", "2", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
        SqrtBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]]}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.72155988106069*^9, 3.721561312650284*^9, 
  3.721573200381946*^9, 
  3.721587650512178*^9},ExpressionUUID->"1caa152e-fa92-42c3-8d15-\
23f48d1b8cf6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["C1", "Subsubsection",
 CellChangeTimes->{{3.7106672322451*^9, 3.710667232492998*^9}, {
  3.7215598900383883`*^9, 
  3.721559890189899*^9}},ExpressionUUID->"cd7ef2d3-b25c-4a9f-ba3c-\
558d34be8cce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gCE", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "gC"}], "*", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "-", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCdE", "\[TensorProduct]", "Fg"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCdEa", "\[TensorProduct]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"\[CapitalPhi]g", "[", 
            RowBox[{"[", 
             RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"xx", "[", 
            RowBox[{"[", 
             RowBox[{"\[Nu]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Nu]", ",", "1", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], "}"}]}], "]"}], "-", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCdEa", "\[TensorProduct]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Fg", "[", 
            RowBox[{"[", 
             RowBox[{"A", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], ",", 
           RowBox[{"xx", "[", 
            RowBox[{"[", 
             RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Mu]", ",", "1", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Nu]", ",", "1", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "1", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "6"}], "}"}]}], "}"}]}], "]"}], "+", 
    RowBox[{"2", "*", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"gCdEab", "\[TensorProduct]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[CapitalPhi]g", "[", 
             RowBox[{"[", 
              RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"xx", "[", 
             RowBox[{"[", 
              RowBox[{"\[Nu]", "+", "1"}], "]"}], "]"}], ",", 
            RowBox[{"xx", "[", 
             RowBox[{"[", 
              RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Nu]", ",", "1", ",", 
            RowBox[{"d", "-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Alpha]", ",", "1", ",", 
            RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "6"}], "}"}]}], "}"}]}], "]"}]}], "-", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"gCdEab", "\[TensorProduct]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Fg", "[", 
            RowBox[{"[", 
             RowBox[{"A", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], ",", 
           RowBox[{"xx", "[", 
            RowBox[{"[", 
             RowBox[{"\[Alpha]", "+", "1"}], "]"}], "]"}], ",", 
           RowBox[{"xx", "[", 
            RowBox[{"[", 
             RowBox[{"\[Beta]", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"A", ",", "1", ",", "n"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Mu]", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Nu]", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]", ",", 
           RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "8"}], "}"}]}], "}"}]}], "]"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.704185367685163*^9, 3.7041853820243464`*^9}, {
  3.704185417448126*^9, 3.704185484125839*^9}, {3.7041855601057377`*^9, 
  3.7041861831825037`*^9}, {3.704186307754929*^9, 3.7041863119689093`*^9}, {
  3.704186406916909*^9, 3.704186426592184*^9}, {3.704186490939159*^9, 
  3.704186497443039*^9}, {3.704193671126319*^9, 3.704193681197976*^9}, {
  3.707211286672881*^9, 3.707211291134235*^9}, {3.709907177236096*^9, 
  3.709907196239609*^9}, {3.710667267407846*^9, 3.710667277573934*^9}, {
  3.721559925224844*^9, 
  3.721559986013389*^9}},ExpressionUUID->"f1391ff9-aadf-4c34-b62c-\
e5eb12fe8d2b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gCESolution", "[", "1", "]"}], "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"gCE", "[", "1", "]"}], "]"}], "\[Equal]", "0"}], "]"}],
            "/.", 
           RowBox[{
            RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "/.", 
          "gCABDOFSolution"}], "/.", 
         RowBox[{
          RowBox[{"gCESolution", "[", "8", "]"}], "[", "2", "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", "gCdE", "]"}]}], "\[IndentingNewLine]", "]"}],
       "//", "First"}], ",", "coordinateAssumptions"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.704186384533412*^9, 3.704186394547414*^9}, {
   3.70418644755345*^9, 3.704186486880918*^9}, {3.7041901879000187`*^9, 
   3.70419019303297*^9}, 3.704193693267915*^9, {3.70721123467918*^9, 
   3.707211252452363*^9}, {3.707211300573594*^9, 3.7072113056127377`*^9}, 
   3.7099071962484293`*^9, {3.710667280212515*^9, 3.7106672803501587`*^9}, {
   3.7106673241749907`*^9, 3.710667354579516*^9}, {3.7215600048297873`*^9, 
   3.7215600664244204`*^9}, 
   3.721561332440134*^9},ExpressionUUID->"e0916536-3bfe-4e56-a129-\
65258920785f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gCdE", "/.", 
    RowBox[{"gCESolution", "[", "1", "]"}]}], "/.", "gDisplayC"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.704186174475168*^9, 3.704186202609969*^9}, {
   3.7041863289441032`*^9, 3.704186331413612*^9}, {3.704186517039358*^9, 
   3.704186535945014*^9}, 3.704193700139886*^9, 3.709907196265585*^9, {
   3.7106683455998487`*^9, 3.7106683457117853`*^9}, {3.721560073840032*^9, 
   3.721560079167766*^9}},ExpressionUUID->"ed63bedd-76d7-4f98-a2f8-\
59b3dc445afc"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", "\<\"C\"\>", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["r", "2"]}]}]]}], "+", 
           RowBox[{"2", " ", "a", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"k", " ", 
               SuperscriptBox["r", "2"]}]}], ")"}], " ", 
            RowBox[{"Const", "[", "2", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}], 
        RowBox[{"6", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]]}]},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "3"], " ", "r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"Const", "[", "2", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
       RowBox[{"3", " ", 
        SqrtBox[
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}]}]]},
     {"0"},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "6"]}], " ", 
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", "\<\"C\"\>"}], "+", 
         RowBox[{"10", " ", "a", " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{"k", " ", 
             SuperscriptBox["r", "2"]}]}]], " ", 
          RowBox[{"Const", "[", "2", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}]},
     {"0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", 
             RowBox[{"6", "-", 
              RowBox[{"5", " ", "k", " ", 
               SuperscriptBox["r", "2"]}]}], ")"}], " ", 
            RowBox[{"Const", "[", "2", "]"}]}], "+", 
           RowBox[{"5", " ", "a", " ", "k", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Const", "[", "2", "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]"}], "]"}]}], "+", 
           RowBox[{"3", " ", "\<\"C\"\>", " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              RowBox[{"k", " ", 
               SuperscriptBox["r", "2"]}]}]], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}]}], 
        RowBox[{"6", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}]]}]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7215600824552803`*^9, 3.721561345044792*^9, 
  3.721573201152225*^9, 
  3.721587651116323*^9},ExpressionUUID->"7a050388-3c4e-4293-8782-\
579ba0dee53d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate C", "Subsubsection",
 CellChangeTimes->{{3.7106684987291822`*^9, 
  3.710668502176071*^9}},ExpressionUUID->"08c0a955-67f4-4ff4-8ff9-\
7389cc2c29d8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCDOFSolution", "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"DOFSolve", "[", 
       RowBox[{"C", ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Join", "[", "\[IndentingNewLine]", 
             RowBox[{"gCdE", ",", "\[IndentingNewLine]", 
              RowBox[{"Flatten", "[", "gCdEa", "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Flatten", "[", "gCdEab", "]"}]}], 
             "\[IndentingNewLine]", "]"}], "/.", 
            RowBox[{"gCESolution", "[", "1", "]"}]}], "/.", 
           RowBox[{
            RowBox[{"gCESolution", "[", "10", "]"}], "[", "2", "]"}]}], "/.", 
          "gCABDOFSolution"}], "/.", 
         RowBox[{
          RowBox[{"gCESolution", "[", "8", "]"}], "[", "2", "]"}]}], ",", 
        RowBox[{"Join", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"\[CapitalPhi]g", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"\[CapitalPhi]g", "[", 
                RowBox[{"[", 
                 RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"xx", "[", 
                RowBox[{"[", "\[Alpha]", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"A", ",", "n"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "2", ",", "d"}], "}"}]}], "]"}], "]"}],
           ",", "\[IndentingNewLine]", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"\[CapitalPhi]g", "[", 
                RowBox[{"[", 
                 RowBox[{"A", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"xx", "[", 
                RowBox[{"[", "\[Alpha]", "]"}], "]"}], ",", 
               RowBox[{"xx", "[", 
                RowBox[{"[", "\[Beta]", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"A", ",", "n"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", "2", ",", "d"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Beta]", ",", "2", ",", "d"}], "}"}]}], "]"}], 
           "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "r", ",", "\[Theta]"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Const", "[", "0", "]"}], "\[Rule]", 
        RowBox[{"Const", "[", "1", "]"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"gCSolved", "=", 
  RowBox[{"gC", "/.", "gCDOFSolution"}]}]}], "Input",
 CellChangeTimes->{{3.7041922912624607`*^9, 3.704192316542324*^9}, {
   3.704192386667981*^9, 3.70419239382648*^9}, {3.70419373043778*^9, 
   3.7041938735794764`*^9}, {3.704194191497498*^9, 3.704194251430068*^9}, {
   3.704194304228429*^9, 3.704194421271942*^9}, {3.7041944811989202`*^9, 
   3.704194485612463*^9}, 3.70419454839711*^9, {3.704194597480596*^9, 
   3.704194678146912*^9}, {3.707211314541795*^9, 3.707211315364193*^9}, {
   3.7072115385820913`*^9, 3.707211550476342*^9}, {3.707212014383028*^9, 
   3.707212020628731*^9}, 3.707212071415236*^9, {3.70721262018244*^9, 
   3.7072126257325573`*^9}, {3.7072127811029797`*^9, 3.707212781908587*^9}, {
   3.710667485038026*^9, 3.710667492764228*^9}, {3.721560113637916*^9, 
   3.721560133603446*^9}, {3.721560534638089*^9, 3.721560539147851*^9}, {
   3.72156063210445*^9, 3.721560827861712*^9}, {3.7215608750715113`*^9, 
   3.721560978449548*^9}, {3.721561094046371*^9, 3.721561094677855*^9}, {
   3.7215611538736353`*^9, 3.721561153979168*^9}, 3.721561359466094*^9, {
   3.721562001885922*^9, 3.721562025749715*^9}, {3.721564375965952*^9, 
   3.721564408107477*^9}, {3.721564802171402*^9, 3.721564803657679*^9}, {
   3.7215651439899607`*^9, 3.7215651735889893`*^9}, {3.721565217371496*^9, 
   3.721565226378931*^9}, {3.7215658427768373`*^9, 3.7215658436308727`*^9}, {
   3.7215665904583483`*^9, 3.721566607273438*^9}, {3.7215726349886017`*^9, 
   3.721572661864489*^9}, 3.721573176580491*^9, {3.721573459089843*^9, 
   3.721573459231043*^9}, {3.721587618892127*^9, 
   3.721587618982422*^9}},ExpressionUUID->"8bbd3d12-5bdc-4c85-a057-\
1e235bf9d223"],

Cell[BoxData[
 FractionBox[
  RowBox[{"a", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"Const", "[", "1", "]"}]}], "-", 
     RowBox[{"k", " ", 
      RowBox[{"Const", "[", "2", "]"}]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
  SqrtBox[
   RowBox[{"1", "-", 
    RowBox[{"k", " ", 
     SuperscriptBox["r", "2"]}]}]]]], "Output",
 CellChangeTimes->{
  3.7215611032531*^9, 3.721561160265568*^9, 3.721561462016757*^9, 
   3.721561910417448*^9, {3.7215620088145514`*^9, 3.7215620270009813`*^9}, {
   3.721564389154731*^9, 3.721564410995332*^9}, 3.721564804964304*^9, {
   3.72156514640033*^9, 3.721565175740573*^9}, {3.7215652217123823`*^9, 
   3.721565227740733*^9}, 3.721565844641575*^9, {3.721566595398472*^9, 
   3.7215666079124002`*^9}, {3.7215726378797207`*^9, 3.721572662734272*^9}, {
   3.721573178224074*^9, 3.721573202004373*^9}, 3.721573460128401*^9, 
   3.721587651397563*^9},ExpressionUUID->"3c998100-fffe-4cc9-9f55-\
3a0835ef7430"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Construct the metric gravitational Lagrangian", "Subsection",
 CellChangeTimes->{{3.71066673603299*^9, 3.710666739671976*^9}, {
  3.7106686056421747`*^9, 
  3.710668624352249*^9}},ExpressionUUID->"3d86a265-5403-4a4a-9ec4-\
057ca07a9d8b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gLagrangianRaw", "=", 
   RowBox[{"Expand", "[", 
    RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["N", "lapse"], "[", "t", "]"}], "*", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"gCSolved", "/.", 
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}]}], ")"}], "+", 
         "gLagrangianCABTerm"}], ")"}]}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Expand", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"gLagrangianRaw", "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"Det", "[", 
        RowBox[{"gBarFLRW", "[", "0", "]"}], "]"}], "]"}]}], "/", 
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}]}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
   "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.711702600886067*^9, 3.711702754431199*^9}, {
  3.711702836411807*^9, 3.711702904360922*^9}, {3.721573395683631*^9, 
  3.721573396501878*^9}, {3.721573443023493*^9, 3.72157345389955*^9}, {
  3.72157353711761*^9, 3.7215735484460173`*^9}, {3.721585805090618*^9, 
  3.721585883600754*^9}, {3.721585919703847*^9, 3.721585927263426*^9}, {
  3.721585958742505*^9, 3.721586000084441*^9}, {3.721586059610532*^9, 
  3.72158608100599*^9}, {3.721586132994182*^9, 3.7215861477178097`*^9}, {
  3.721587675356535*^9, 
  3.721587676121126*^9}},ExpressionUUID->"aed99efe-b168-4a1e-8354-\
6f98b75d56e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Const", "[", "1", "]"}], "-", 
  FractionBox[
   RowBox[{"k", " ", 
    RowBox[{"Const", "[", "2", "]"}]}], 
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"Const", "[", "2", "]"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7215735278611927`*^9, 3.7215735489754143`*^9}, 
   3.7215858070335817`*^9, 3.721585847985681*^9, 3.721585928047819*^9, {
   3.721585959282235*^9, 3.721586000733082*^9}, {3.721586064116138*^9, 
   3.721586081617152*^9}, 3.7215861589605007`*^9, {3.721587651535378*^9, 
   3.721587677229822*^9}},ExpressionUUID->"5a77e3ef-0cf2-411a-8c18-\
c63dfa6dfddb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"gLagrangian", "=", 
   RowBox[{"gLagrangianRaw", "/.", "gLRenameConstants"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Expand", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"gLagrangian", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Det", "[", 
         RowBox[{"gBarFLRW", "[", "0", "]"}], "]"}], "]"}]}], "/", 
      RowBox[{
       SubscriptBox["N", "lapse"], "[", "t", "]"}]}], "*", "2", "\[Kappa]"}], 
    ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
   "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.72158616455359*^9, 3.7215861706793623`*^9}, {
  3.7215862092923107`*^9, 3.7215862211043243`*^9}, {3.721586264304755*^9, 
  3.721586278264017*^9}, {3.721587598080168*^9, 
  3.721587599236822*^9}},ExpressionUUID->"e23acdb9-1b39-4506-817b-\
dd8fe5c419f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[CapitalLambda]"}], "+", 
  FractionBox[
   RowBox[{"6", " ", "k"}], 
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"]], "-", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7215861950521927`*^9, 3.721586221711667*^9}, {
   3.72158626731949*^9, 3.721586278724407*^9}, 
   3.721587651667714*^9},ExpressionUUID->"66a10e00-4365-45e4-a010-\
54ff08fe7719"]
}, Open  ]],

Cell["\<\
This parametrization of the integration constants we identify with the \
cosmological constant and gravitational constant of standard Friedmann \
cosmology.\
\>", "Text",
 CellChangeTimes->{{3.704196542539207*^9, 3.704196568401079*^9}, {
  3.711702578819724*^9, 3.711702579480713*^9}, {3.721586314513371*^9, 
  3.721586373496537*^9}},ExpressionUUID->"17a2677a-7040-43f4-8f2e-\
d5eb4108ece3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derive the metric Friedmann equations", "Subsection",
 CellChangeTimes->{{3.7117016138790827`*^9, 3.7117016259813557`*^9}, {
  3.711702585520916*^9, 
  3.711702586104373*^9}},ExpressionUUID->"7fca0254-7ca2-4cff-84ff-\
3d81ecd8158e"],

Cell[TextData[{
 "Variation of this Lagrangian by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["N", "lapse"], "[", "t", "]"}], TraditionalForm]],
  ExpressionUUID->"0a2ccbbf-1110-4f80-8e90-e0d428b9b605"],
 " and a[t] gives the two Friedmann equations:"
}], "Text",
 CellChangeTimes->{
  3.721586385468851*^9},ExpressionUUID->"39a707c0-fe45-4ac5-9135-\
1fe2eebe635b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Expand", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"0", "\[Equal]", 
         RowBox[{"(", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"gLagrangian", ",", "x"}], "]"}], "-", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{"gLagrangian", ",", 
               RowBox[{"D", "[", 
                RowBox[{"x", ",", "t"}], "]"}]}], "]"}], ",", "t"}], "]"}], 
           "+", 
           RowBox[{
            RowBox[{"gFLRWVolumeElement", "/", "2"}], "*", 
            RowBox[{"TensorContract", "[", 
             RowBox[{
              RowBox[{"gSourceTensor", "\[TensorProduct]", 
               RowBox[{"D", "[", 
                RowBox[{"gFLRW", ",", "x"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            SubscriptBox["N", "lapse"], "[", "t", "]"}], "\[Rule]", "1"}], 
          ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["N", "lapse"], "'"}], "[", "t", "]"}], "\[Rule]", 
           "0"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Join", "[", "coordinateAssumptions", "]"}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["N", "lapse"], "[", "t", "]"}], ",", 
        RowBox[{"a", "[", "t", "]"}]}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.711701629839961*^9, 3.7117017176594963`*^9}, {
   3.711701945165868*^9, 3.711702284682394*^9}, {3.711702319881691*^9, 
   3.71170234769086*^9}, {3.711702382481147*^9, 3.711702407902926*^9}, {
   3.711702589217512*^9, 3.7117025924897003`*^9}, {3.711702961327628*^9, 
   3.71170298247908*^9}, 3.7117030961980124`*^9, {3.7117031536410503`*^9, 
   3.7117031827138233`*^9}, {3.711703286334785*^9, 3.7117032873326406`*^9}, {
   3.711703427585575*^9, 3.711703428541759*^9}, {3.712826432385003*^9, 
   3.712826471075304*^9}, 
   3.721587348644043*^9},ExpressionUUID->"77a1f4a3-6488-40f3-ba56-\
b2bae5847cbf"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"3", " ", "k", " ", 
           RowBox[{"a", "[", "t", "]"}]}], "\[Kappa]"]}], "+", 
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "3"]}], "\[Kappa]"], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "3"], " ", 
         RowBox[{"\[Rho]", "[", "t", "]"}]}], "-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"a", "[", "t", "]"}], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "\[Kappa]"]}],
        "\[Equal]", "0"}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["k", "\[Kappa]"], "-", 
        FractionBox[
         RowBox[{"\[CapitalLambda]", " ", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"]}], "\[Kappa]"], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "2"], " ", 
         RowBox[{"p", "[", "t", "]"}]}], "+", 
        FractionBox[
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "\[Kappa]"], "+", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "\[Kappa]"]}], 
       "\[Equal]", "0"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.721587052911203*^9, {3.721587319933674*^9, 3.721587349384244*^9}, 
   3.721587652023325*^9},ExpressionUUID->"8c25d8ee-80b2-4ef1-8d81-\
c614bcfa18ae"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Flat cartesian area metric", "Section",
 CellChangeTimes->{{3.704111450817729*^9, 3.704111491460435*^9}, {
  3.710668677977426*^9, 
  3.7106686845118237`*^9}},ExpressionUUID->"5c95902a-839c-4daf-ab5e-\
e75f11bd6e51"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox["C", TraditionalForm]],ExpressionUUID->
  "e4df0f25-1612-40dd-8c76-e3f2598a1076"],
 "-sector"
}], "Subsection",
 CellChangeTimes->{{3.707560282699307*^9, 3.707560283828518*^9}, {
  3.7101456095874767`*^9, 3.7101456143956127`*^9}, {3.710668706130385*^9, 
  3.7106687106951237`*^9}},ExpressionUUID->"6f6a708b-e44d-42c6-9fa0-\
d1ae9d16e875"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GC", "=", "C"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCdE", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CdE", ",", 
     RowBox[{"{", "nG", "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7075603173333273`*^9, 3.707560353907732*^9}, {
   3.7099071771118107`*^9, 3.709907196170529*^9}, {3.709908381903344*^9, 
   3.709908387483911*^9}, {3.7135052748128853`*^9, 3.713505276535705*^9}, {
   3.713512044233687*^9, 3.713512123720882*^9}, 3.713518357091984*^9, 
   3.713519212616497*^9},ExpressionUUID->"d1ed6f2e-0970-4e95-8083-\
cbda3eeb9c21"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GDisplayC", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"GC", "\[Rule]", "\"\<C\>\""}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCdE", "[", 
          RowBox[{"[", "A", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(\(:\)\(`1`\)\)]\)\>\"", "]"}], 
          "[", "A", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "nG"}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7075603617741213`*^9, 3.707560384284533*^9}, {
  3.709907177123221*^9, 3.70990719618407*^9}, {3.7099083963103447`*^9, 
  3.7099083990130777`*^9}, {3.7135183484104033`*^9, 3.713518350533183*^9}, {
  3.713519223562283*^9, 
  3.7135192381036787`*^9}},ExpressionUUID->"299be035-4885-4e24-b98d-\
0b3b119327ef"],

Cell[CellGroupData[{

Cell["C1", "Subsubsection",
 CellChangeTimes->{{3.710145651194194*^9, 3.710145655917223*^9}, {
  3.71066967306774*^9, 
  3.710669673171794*^9}},ExpressionUUID->"224e1530-ce62-4066-a0ab-\
9b0195aadefc"],

Cell[TextData[{
 "Determines the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", 
    RowBox[{":", "A"}]], TraditionalForm]],ExpressionUUID->
  "ed03cd7b-b7a6-4e0f-8f86-ad8b8bf0246c"],
 " from kinematics, but not entirely - a function of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "(", "t", ")"}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "901a9343-4343-4f61-998d-97b7069aaf0a"],
 " remains undetermined:"
}], "Text",
 CellChangeTimes->{{3.709906632097845*^9, 3.709906668206362*^9}, {
  3.709906703333547*^9, 3.709906777150279*^9}, {3.709906886072057*^9, 
  3.709906898582608*^9}, {3.710669945135508*^9, 
  3.7106699896083927`*^9}},ExpressionUUID->"202e4c80-924c-469d-b4ae-\
858670714195"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GFlatCartesianCE", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"GC", "*", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"GCdE", "\[TensorProduct]", "FGFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7072134259027433`*^9, 3.7072134658433323`*^9}, {
   3.7072147065884523`*^9, 3.707214708655108*^9}, {3.70721475339678*^9, 
   3.70721476862702*^9}, {3.7072148804275923`*^9, 3.7072148913807487`*^9}, 
   3.707214939203206*^9, 3.7072149769019947`*^9, {3.707560535993721*^9, 
   3.7075605417441683`*^9}, {3.70988621301655*^9, 3.709886215349416*^9}, 
   3.7099071963022537`*^9, {3.7100909810182953`*^9, 3.710090981568437*^9}, {
   3.710669677516239*^9, 3.7106696776360407`*^9}, {3.7135192465929613`*^9, 
   3.713519248375462*^9}},ExpressionUUID->"799edf6f-b403-4c46-ac55-\
ff45b8759d4a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"GFlatCartesianCE", "[", "1", "]"}], "/", 
       RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}], "*", 
     RowBox[{"a", "^", "2"}]}], "]"}], "/.", "GDisplayC"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.720785136044619*^9, 3.720785213467072*^9}, 
   3.720785399528722*^9},ExpressionUUID->"56265199-6f49-4e52-8ec1-\
c6382bc54cca"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(1\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox["2"]], "-", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], 
         " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(7\\)\\)]\\)\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(2\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(8\\)\\)]\\)\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(3\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(9\\)\\)]\\)\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(2\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(8\\)\\)]\\)\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(4\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox["2"]], "-", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], 
         " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(10\\)\\)]\\)\"\
\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(5\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(11\\)\\)]\\)\
\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}]},
     {
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(3\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(9\\)\\)]\\)\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(5\\)\\)]\\)\"\>", "-", 
       FractionBox[
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(11\\)\\)]\\)\
\"\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}], 
      RowBox[{
       RowBox[{
        SqrtBox["2"], 
        " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(6\\)\\)]\\)\"\>"}], "+", 
       FractionBox[
        RowBox[{"\<\"C\"\>", " ", 
         SuperscriptBox["a", "2"]}], 
        SqrtBox["2"]], "-", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], 
         " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(12\\)\\)]\\)\"\
\>", " ", 
         SuperscriptBox["a", "4"]}], 
        SuperscriptBox["c", "2"]]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7207851436465883`*^9, 3.720785213963443*^9}, 
   3.720785399889495*^9, 3.7214574983329697`*^9, 
   3.7215878652809134`*^9},ExpressionUUID->"e6759779-b48c-49e0-947f-\
5680690a2534"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GFlatCartesianCESolution", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"GFlatCartesianCE", "[", "1", "]"}], "]"}], "\[Equal]", 
        "0"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", 
       RowBox[{"GCdE", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "6"}], "]"}], "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "//", "First"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCdE", "/.", 
   RowBox[{"GFlatCartesianCESolution", "[", "1", "]"}]}], "/.", 
  "GDisplayC"}]}], "Input",
 CellChangeTimes->{{3.707214980676711*^9, 3.707215042278729*^9}, {
   3.707215102529682*^9, 3.707215103072197*^9}, {3.707560543377948*^9, 
   3.707560573912231*^9}, 3.709907196314746*^9, {3.710090987161745*^9, 
   3.710090987496043*^9}, {3.7106697347226973`*^9, 3.7106697377309713`*^9}, {
   3.713500415442769*^9, 3.7135006061907997`*^9}, {3.713519255279091*^9, 
   3.71351927963829*^9}, {3.720789168445631*^9, 
   3.720789196002246*^9}},ExpressionUUID->"325242d5-8fa4-4351-a6de-\
7f44231efc71"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(7\\)\\)]\\)\
\"\>", " ", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"\<\"C\"\>", " ", 
        SuperscriptBox["c", "2"]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["c", "2"]}]], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(8\\)\\)]\\)\"\>",
      " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(9\\)\\)]\\)\"\>",
      " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(10\\)\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"\<\"C\"\>", " ", 
        SuperscriptBox["c", "2"]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["c", "2"]}]], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(11\\)\\)]\\)\"\>", " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(12\\)\\)]\\)\"\>", " ", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"\<\"C\"\>", " ", 
        SuperscriptBox["c", "2"]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["c", "2"]}]], 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(7\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(8\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(9\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(10\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(11\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(12\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(13\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(14\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(15\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(16\\)\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(17\\)\\)]\\)\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.71350059558603*^9, 3.713500606965907*^9}, {
   3.713519268400586*^9, 3.713519279968711*^9}, 3.713519903757409*^9, 
   3.713520172504475*^9, 3.713521307253839*^9, 3.713600898960493*^9, 
   3.7159057272466097`*^9, 3.719399840474121*^9, {3.720789184916432*^9, 
   3.720789196527972*^9}, 3.721457498426489*^9, 
   3.721587865372283*^9},ExpressionUUID->"6e59f01b-5fdd-410a-b7fd-\
6457a10fca08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"GDOFFlatCartesianJacobian", ".", 
      RowBox[{"(", 
       RowBox[{"GCdE", "/.", 
        RowBox[{"GFlatCartesianCESolution", "[", "1", "]"}]}], ")"}]}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "gDOFAssumptions"}], "]"}]}], 
    "]"}], "/.", "GDisplayC"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.710134754020524*^9, 3.710134773453376*^9}, {
   3.710135777499349*^9, 3.710135814158914*^9}, {3.71067001199561*^9, 
   3.710670012560175*^9}, 3.7106701677551813`*^9, {3.713519291046427*^9, 
   3.713519302195105*^9}, {3.720787128771324*^9, 3.7207871325319567`*^9}, {
   3.720787975826106*^9, 
   3.720787978104207*^9}},ExpressionUUID->"d47ba5e4-15ab-45d3-8d12-\
2681b01b243d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{"3", " ", "\<\"C\"\>"}], "a"]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           
           RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(10\\)\\)]\
\\)\"\>", 
            "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(\\(:\\)\\(12\\)\\)]\\)\"\>", 
            "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(\\(:\\)\\(7\\)\\)]\\)\
\"\>"}], ")"}], " ", 
          SuperscriptBox["a", "2"]}], 
         SuperscriptBox["c", "3"]]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.710134763196864*^9, 3.710134773819025*^9}, {
   3.710135793782549*^9, 3.7101358150313797`*^9}, 3.710149146331264*^9, 
   3.7106699245373287`*^9, 3.710670013206091*^9, 3.710670168691228*^9, 
   3.710936219661685*^9, 3.71093647961014*^9, 3.7110402752070913`*^9, 
   3.711355987889511*^9, 3.711361491696384*^9, 3.7117008555154743`*^9, 
   3.7123952634113703`*^9, 3.712407282611269*^9, 3.712408789888736*^9, 
   3.712411114820314*^9, 3.712651816935514*^9, 3.712829993556864*^9, 
   3.713342906429841*^9, 3.713346686383546*^9, 3.7135193028883457`*^9, 
   3.7135199038396797`*^9, 3.713520172597886*^9, 3.71352130731539*^9, 
   3.713600899045195*^9, 3.715905727315546*^9, 3.719399840527377*^9, 
   3.72078713338174*^9, 3.720787978455577*^9, 3.7207892050032253`*^9, 
   3.721457498525839*^9, 
   3.7215878654926033`*^9},ExpressionUUID->"46b8d172-d1c6-4f70-bf97-\
e959e6df862e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCTerm", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "t", "]"}], "^", "3"}], "*", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"0", ",", "0"}], "]"}], "[", 
    RowBox[{"c", "[", "t", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7106814989046164`*^9, 3.710681523590385*^9}, {
  3.711703580651691*^9, 3.7117035877539473`*^9}, {3.712652047051483*^9, 
  3.7126520479703836`*^9}, {3.712839832435247*^9, 3.712839832882712*^9}, {
  3.71284004705308*^9, 3.712840047372779*^9}, {3.713519316669154*^9, 
  3.713519323865156*^9}},ExpressionUUID->"fa60f7f8-32c6-4618-a914-\
23879237b5c4"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"a", "[", "t", "]"}], "3"], " ", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"0", ",", "0"}], "]"}], "[", 
   RowBox[{"c", "[", "t", "]"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.710681527385791*^9, 3.71093621981179*^9, 3.71093647974361*^9, 
   3.7110402754322567`*^9, 3.711355988039846*^9, 3.711361491887178*^9, 
   3.7117008556814623`*^9, {3.7117035810353107`*^9, 3.7117035884988527`*^9}, 
   3.712395263527276*^9, 3.712407282733037*^9, 3.7124087900169563`*^9, 
   3.712411115014804*^9, 3.712651817110951*^9, 3.712653903993144*^9, 
   3.7128299938234262`*^9, 3.712839837534329*^9, 3.712840047894462*^9, 
   3.713342906759471*^9, 3.7133466865179358`*^9, 3.713519324717952*^9, 
   3.713519903921483*^9, 3.71352017268147*^9, 3.7135213073822412`*^9, 
   3.713600899131659*^9, 3.71590572738264*^9, 3.719399840582427*^9, 
   3.721457498607129*^9, 
   3.721587865607006*^9},ExpressionUUID->"7a295af4-375a-4e7d-ad24-\
54f9b2b5b008"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "A"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "416bc362-39e8-46e7-a48d-9e81e02b1088"],
 " sector"
}], "Subsection",
 CellChangeTimes->{{3.712395247602047*^9, 
  3.712395263216668*^9}},ExpressionUUID->"5f4094d5-495b-438d-8ab3-\
83347235a342"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GCA", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CA", ",", 
     RowBox[{"{", "nG", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCAdE", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"CAdE", ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", "nG"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GDisplayCA", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCA", "[", 
          RowBox[{"[", "A", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1`\)]\)\>\"", "]"}], "[", "A", 
          "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "nG"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCAdE", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "E"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1` : `2`\)]\)\>\"", "]"}], "[", 
          RowBox[{"A", ",", "E"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "nG"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "nG"}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.703494875935891*^9, 3.7034948822515574`*^9}, {
   3.703494959488491*^9, 3.703494961263348*^9}, {3.7034950601088047`*^9, 
   3.7034950895546618`*^9}, {3.703495304981082*^9, 3.703495345169332*^9}, {
   3.703495532379491*^9, 3.70349557619281*^9}, {3.70349660133768*^9, 
   3.703496606751092*^9}, {3.7034966570455008`*^9, 3.7034966648933477`*^9}, {
   3.704193226061171*^9, 3.704193240530871*^9}, {3.704299470199032*^9, 
   3.7042994859001217`*^9}, {3.704299543592659*^9, 3.704299549452632*^9}, {
   3.704442551688158*^9, 3.7044425534437313`*^9}, {3.707209419421114*^9, 
   3.707209424379286*^9}, {3.70720975226521*^9, 3.707209866000699*^9}, {
   3.7072099101294107`*^9, 3.70720991399531*^9}, {3.707210069931086*^9, 
   3.707210071392524*^9}, {3.707210170794895*^9, 3.707210196984322*^9}, {
   3.707210466546845*^9, 3.70721050768832*^9}, {3.7072105979299726`*^9, 
   3.7072106282644777`*^9}, {3.707214809114159*^9, 3.70721481690343*^9}, {
   3.707217410744656*^9, 3.7072174111285*^9}, {3.709904128511923*^9, 
   3.7099042257578917`*^9}, {3.709907196480864*^9, 3.7099071964920063`*^9}, {
   3.709907316871912*^9, 3.709907319919664*^9}, 3.709908137871416*^9, 
   3.7106653708789*^9, 3.710740851227501*^9, {3.710740907501669*^9, 
   3.710740940788302*^9}, {3.710741028388874*^9, 3.7107410521472473`*^9}, {
   3.710741138566637*^9, 3.7107411438114567`*^9}, {3.710741258217668*^9, 
   3.710741309770784*^9}, {3.71074137597469*^9, 3.710741436839205*^9}, {
   3.7107415075429077`*^9, 3.710741528221363*^9}, {3.710742203740621*^9, 
   3.710742247529216*^9}, {3.713519354277027*^9, 
   3.713519419183186*^9}},ExpressionUUID->"67746b1d-8fec-4172-bd97-\
50c0d6926898"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox["C2", TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"ee6091f5-662e-4945-a867-45edec885b5d"]], \
"Subsubsection",
 CellChangeTimes->{{3.712395577120604*^9, 
  3.712395579398806*^9}},ExpressionUUID->"e983db8e-aede-475b-91a5-\
c617e903275b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GFlatCartesianCE", "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"GCA", "\[TensorProduct]", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{"GCA", "\[TensorProduct]", "FGdE"}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "1"}], "}"}]}], "]"}], "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"GCAdE", "\[TensorProduct]", "FGFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.712395584603277*^9, 3.712395714307192*^9}, {
  3.71239577861141*^9, 3.712395779617856*^9}, {3.713519434098185*^9, 
  3.713519434527122*^9}},ExpressionUUID->"edd5c34c-0c62-4c9e-9aa2-\
cac7e1183f6b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}], "=", 
   RowBox[{"Simplify", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"GFlatCartesianCE", "[", "2", "]"}], "]"}], "\[Equal]", 
          "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Join", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Flatten", "[", "GCA", "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Flatten", "[", 
           RowBox[{"GCAdE", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"1", ";;", "6"}]}], "]"}], "]"}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
      "First"}], ",", "\[IndentingNewLine]", "coordinateAssumptions"}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCA", "/.", 
   RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
  "GDisplayCA"}]}], "Input",
 CellChangeTimes->{{3.7123957916022243`*^9, 3.712395802204316*^9}, {
   3.712396036914472*^9, 3.7123960610657053`*^9}, {3.713519442559885*^9, 
   3.71351947648532*^9}, 3.713519527496099*^9, {3.720796895537939*^9, 
   3.720796913465933*^9}},ExpressionUUID->"5967563c-48ae-491e-8428-\
9d30650ff87f"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   744,160,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.712396066250651*^9, 3.712407287092079*^9, 3.712408796378688*^9, 
   3.7124111198428497`*^9, 3.712651821406036*^9, 3.712829998024769*^9, 
   3.713342912225987*^9, 3.713346691323348*^9, {3.713519459820278*^9, 
   3.71351947706609*^9}, 3.713519528023108*^9, 3.713519904299986*^9, 
   3.7135201730244017`*^9, 3.7135213133681393`*^9, 3.713600899457081*^9, 
   3.715905727730721*^9, 3.719399840883594*^9, 3.720796914913233*^9, 
   3.721457499123403*^9, 
   3.721587865828589*^9},ExpressionUUID->"e278bd3f-8a00-4acc-b769-\
88082737fcf9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", ",", "0", ",",
    "0", ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", ",", "0", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\)]\\)\"\>", ",", "0", ",", 
   "0", ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\)]\\)\"\>", ",", "0", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\)]\\)\"\>", ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(13 : 1\\)]\\)\"\>"}], 
      SuperscriptBox["a", "2"]]}], "+", 
    FractionBox[
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(13 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14 : 1\\)]\\)\"\>"}], 
      SuperscriptBox["a", "2"]]}], "+", 
    FractionBox[
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(14 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(15 : 1\\)]\\)\"\>"}], 
      SuperscriptBox["a", "2"]]}], "+", 
    FractionBox[
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(15 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(16 : 1\\)]\\)\"\>"}], 
      SuperscriptBox["a", "2"]]}], "+", 
    FractionBox[
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(16 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(17 : 1\\)]\\)\"\>"}], 
      SuperscriptBox["a", "2"]]}], "+", 
    FractionBox[
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(17 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "2"]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.713519477136414*^9, 3.713519528049945*^9, 
  3.713519904457045*^9, 3.713520173173275*^9, 3.713521313516378*^9, 
  3.71360089960366*^9, 3.7159057278743258`*^9, 3.7193998410381317`*^9, 
  3.720796915168878*^9, 3.721457499229884*^9, 
  3.721587865986491*^9},ExpressionUUID->"85851012-310a-4c29-be01-\
96f5894de694"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"gCAdE", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/.", 
   RowBox[{"gFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
  "GDisplayCA"}]], "Input",
 CellChangeTimes->{{3.720797564963851*^9, 
  3.720797566474677*^9}},ExpressionUUID->"334f90da-31e3-4cd9-93df-\
d324a0337006"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
     "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", "0", ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], "2"]}], ",", "0", ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}], "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7207975671121883`*^9, 3.721457499323827*^9, 
  3.721587866102645*^9},ExpressionUUID->"550bfce6-0ec1-486f-ba97-\
b94d3182b542"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GCAdE", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/.", 
   RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
  "GDisplayCA"}]], "Input",
 CellChangeTimes->{{3.7207969810285473`*^9, 
  3.72079700130201*^9}},ExpressionUUID->"a6f64df9-0cc7-43cc-bb01-\
bb31c7963fc9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
      "3", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}], "+", 
    FractionBox[
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 7\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "4"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 8\\)]\\)\"\>", " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 9\\)]\\)\"\>", " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}], "+", 
    FractionBox[
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 10\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "4"]}], 
     SuperscriptBox["c", "2"]]}], ",", 
   FractionBox[
    RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 11\\)]\\)\"\>", " ", 
     SuperscriptBox["a", "4"]}], 
    SuperscriptBox["c", "2"]], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
       SuperscriptBox["a", "2"]}], "2"]}], "+", 
    FractionBox[
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 12\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "4"]}], 
     SuperscriptBox["c", "2"]]}], 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 7\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 8\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 9\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 10\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 11\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 12\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 13\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 14\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 15\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 16\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 17\\)]\\)\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7207969909678383`*^9, 3.7207970022339582`*^9}, 
   3.721457499426132*^9, 
   3.72158786626618*^9},ExpressionUUID->"0e74712f-d3c8-4ca2-aa2f-\
02e3f0968af7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorContract", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"GCA", "/.", 
       RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], ")"}], 
     "\[TensorProduct]", "GFlatCartesianVelocity"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], "/.", 
  "GDisplayCA"}]], "Input",
 CellChangeTimes->{{3.7123961734677362`*^9, 3.712396229103712*^9}, {
   3.712396263201385*^9, 3.712396279494508*^9}, {3.71240685779585*^9, 
   3.712406861250551*^9}, 3.713519482028846*^9, 3.713519531397852*^9, 
   3.72145729531819*^9},ExpressionUUID->"a527c919-f82a-4eaf-9168-\
4ff43b0b92c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
    "6", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>", " ", 
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"a", "[", "t", "]"}], "3"], " ", 
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}], "+", 
  FractionBox[
   RowBox[{
   "6", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\)]\\)\"\>", " ", 
    RowBox[{"a", "[", "t", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["c", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "3"], " ", 
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]], "Output",
 CellChangeTimes->{{3.712396216100659*^9, 3.712396229500268*^9}, {
   3.712396273071225*^9, 3.712396280109161*^9}, 3.7124072876045027`*^9, 
   3.712408796607999*^9, 3.71241112039806*^9, 3.7126518219847517`*^9, 
   3.712829998557274*^9, 3.713342912826324*^9, 3.7133466918861437`*^9, 
   3.7135194861340227`*^9, 3.713519531809759*^9, 3.7135199046086206`*^9, 
   3.7135201732644053`*^9, 3.713521313585442*^9, 3.713600899677238*^9, 
   3.7159057279510517`*^9, 3.719399841112235*^9, 3.720796842109799*^9, 
   3.7207969192610064`*^9, 3.721457499526166*^9, 
   3.721587866501319*^9},ExpressionUUID->"8e163f2a-0def-4770-909f-\
4860d8d699d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"GDOFFlatCartesianJacobian", ".", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"GCAdE", "/.", 
       RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], ")"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/.", 
  "GDisplayCA"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"GDOFFlatCartesianJacobian", ".", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"GCAdE", "/.", 
       RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], ")"}], "[", 
     RowBox[{"[", "7", "]"}], "]"}]}], "]"}], "/.", "GDisplayCA"}]}], "Input",\

 CellChangeTimes->{{3.712396360944914*^9, 3.7123964447929993`*^9}, {
  3.712399309692583*^9, 3.7123993350415783`*^9}, {3.713519537773522*^9, 
  3.713519545477243*^9}},ExpressionUUID->"97dd88ba-8945-4026-bb36-\
61564ec98a26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"5", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\)]\\)\"\>"}], 
    "a"], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 10\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 12\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1 : 7\\)]\\)\"\>"}], 
       ")"}], " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "3"]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.712396391905416*^9, 3.712396400302704*^9}, {
   3.71239643260431*^9, 3.712396448936183*^9}, {3.71239931278283*^9, 
   3.7123993366201468`*^9}, 3.712407288809877*^9, 3.712408797895733*^9, 
   3.712411121580531*^9, 3.712651823113089*^9, 3.712829999818204*^9, 
   3.713342914196904*^9, 3.7133466931067038`*^9, 3.713519546154517*^9, 
   3.713519904708651*^9, 3.713520173342874*^9, 3.713521313668682*^9, 
   3.71360089976081*^9, 3.715905728012746*^9, 3.719399841227346*^9, 
   3.7207969275793943`*^9, 3.721457499625703*^9, 
   3.721587866622484*^9},ExpressionUUID->"41a151a1-ceb3-46f2-8f3e-\
0c19b3161c30"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\)]\\)\"\>", "a"], 
   ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7 : 10\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7 : 12\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7 : 7\\)]\\)\"\>"}], 
       ")"}], " ", 
      SuperscriptBox["a", "2"]}], 
     SuperscriptBox["c", "3"]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.712396391905416*^9, 3.712396400302704*^9}, {
   3.71239643260431*^9, 3.712396448936183*^9}, {3.71239931278283*^9, 
   3.7123993366201468`*^9}, 3.712407288809877*^9, 3.712408797895733*^9, 
   3.712411121580531*^9, 3.712651823113089*^9, 3.712829999818204*^9, 
   3.713342914196904*^9, 3.7133466931067038`*^9, 3.713519546154517*^9, 
   3.713519904708651*^9, 3.713520173342874*^9, 3.713521313668682*^9, 
   3.71360089976081*^9, 3.715905728012746*^9, 3.719399841227346*^9, 
   3.7207969275793943`*^9, 3.721457499625703*^9, 
   3.721587866637554*^9},ExpressionUUID->"a408c00b-9c98-4821-a837-\
4f9e3c67bc3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCATermRaw", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"GCA", "/.", 
          RowBox[{"GFlatCartesianCESolution", "[", "2", "]"}]}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "\[Rule]", 
            RowBox[{"a", "[", "t", "]"}]}], ",", 
           RowBox[{"c", "\[Rule]", 
            RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}], 
       "\[TensorProduct]", "GFlatCartesianVelocity"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], "}"}]}], "]"}], "/.", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"GCA", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"f", "[", "1", "]"}], "[", "c", "]"}]}], "*", 
          RowBox[{
           RowBox[{"a", "^", "5"}], "/", "6"}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"GCA", "[", 
          RowBox[{"[", "7", "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"f", "[", "2", "]"}], "[", "c", "]"}]}], "*", 
          RowBox[{"c", "^", "2"}], "*", 
          RowBox[{"a", "/", "6"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"a", "\[Rule]", 
         RowBox[{"a", "[", "t", "]"}]}], ",", 
        RowBox[{"c", "\[Rule]", 
         RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.712399347538848*^9, 3.712399548971678*^9}, {
   3.712399701753441*^9, 3.712399739527751*^9}, {3.7123998165645733`*^9, 
   3.7123998418675003`*^9}, {3.712399929881443*^9, 3.712399930241315*^9}, {
   3.712400232239328*^9, 3.712400235766127*^9}, {3.712400680824668*^9, 
   3.712400682497161*^9}, {3.712400717559855*^9, 3.7124007945724497`*^9}, {
   3.7124073967428207`*^9, 3.7124074002387877`*^9}, {3.71246780202345*^9, 
   3.712467802303541*^9}, {3.712651964711032*^9, 3.712652040195421*^9}, {
   3.712839870827565*^9, 3.7128399187534237`*^9}, {3.71351955102992*^9, 
   3.713519570181099*^9}, {3.720798755999617*^9, 3.7207987673225946`*^9}, {
   3.7207992012385063`*^9, 3.720799201734035*^9}, 
   3.721457295339485*^9},ExpressionUUID->"8a8db9a8-78a7-42bc-96d4-\
a122097f218b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "1", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{
         RowBox[{"f", "[", "2", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       RowBox[{"f", "[", "2", "]"}], "[", 
       RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["c", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"c", "[", "t", "]"}], " ", 
   RowBox[{
    SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]], "Output",
 CellChangeTimes->{
  3.712399740348258*^9, {3.712399790589233*^9, 3.712399842637034*^9}, 
   3.712399931215596*^9, 3.7124002364212847`*^9, {3.712400683031756*^9, 
   3.712400795645286*^9}, 3.712401410750683*^9, 3.712407290500011*^9, 
   3.7124087993632708`*^9, 3.7124111230760603`*^9, 3.712467803126945*^9, 
   3.712651824421529*^9, 3.712653918948655*^9, 3.712830001356185*^9, 
   3.7128398748820457`*^9, 3.712839921774777*^9, 3.713342915843566*^9, 
   3.713346694576181*^9, 3.713519571904488*^9, 3.713519904811709*^9, 
   3.71352017346266*^9, 3.71352131376348*^9, 3.713600899949823*^9, 
   3.715905728098192*^9, 3.719399841316472*^9, 3.7207987678778133`*^9, 
   3.720799208664996*^9, 3.721457499773313*^9, 
   3.721587866756201*^9},ExpressionUUID->"eec59019-fa5a-499d-a62b-\
febeaaff55bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCATerm", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{"GFlatCartesianLagrangianCATermRaw", "/.", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "1", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{
         RowBox[{"f", "[", "2", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}]}], "\[Rule]", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"1", ",", "0"}], "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "2", "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"0", ",", "1"}], "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}]}]}], "\[IndentingNewLine]", 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.712839927201178*^9, 3.712839936703759*^9}, {
  3.712839972142462*^9, 3.712840042164914*^9}, {3.713519584439118*^9, 
  3.713519621635539*^9}, {3.720798774410549*^9, 
  3.7207987755301332`*^9}},ExpressionUUID->"e03b4ff1-11f2-4153-bc5a-\
fdd6f73729a1"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"], " ", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"1", ",", "0"}], "]"}], "[", 
     RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], 
   RowBox[{
    SubscriptBox["N", "lapse"], "[", "t", "]"}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "3"], " ", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "[", 
     RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["c", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], 
   RowBox[{
    RowBox[{"c", "[", "t", "]"}], " ", 
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}]}]]}]], "Output",
 CellChangeTimes->{
  3.712839986234749*^9, {3.712840029351486*^9, 3.712840042710457*^9}, 
   3.713342915943345*^9, 3.71334669465276*^9, {3.713519601110298*^9, 
   3.7135196222654676`*^9}, 3.713519904895856*^9, 3.7135201735465603`*^9, 
   3.713521313850725*^9, 3.713600900028358*^9, 3.71590572816613*^9, 
   3.719399841384281*^9, 3.720798775858227*^9, 3.721457499875355*^9, 
   3.721587866868649*^9},ExpressionUUID->"565b66f4-4dfe-4ec1-866c-\
d9c36062c2e2"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "0cdbea99-2ff0-4da0-a06e-417ce3dccbb2"],
 " sector"
}], "Subsection",
 CellChangeTimes->{{3.709907013351543*^9, 3.709907016903714*^9}, {
  3.710145626572276*^9, 
  3.710145633139722*^9}},ExpressionUUID->"f73e0aeb-ca60-41e3-ab8a-\
76b9d6449830"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GCAB", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CAB", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", "nG"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCABdE", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CABdE", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", "nG", ",", "nG"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCdEab", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"(", 
       RowBox[{"CdEab", "@@", "pos"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", 
       RowBox[{"d", "-", "1"}], ",", 
       RowBox[{"d", "-", "1"}]}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.703494875935891*^9, 3.7034948822515574`*^9}, {
   3.703494959488491*^9, 3.703494961263348*^9}, {3.7034950601088047`*^9, 
   3.7034950895546618`*^9}, {3.703495304981082*^9, 3.703495345169332*^9}, {
   3.703495532379491*^9, 3.70349557619281*^9}, {3.70349660133768*^9, 
   3.703496606751092*^9}, {3.7034966570455008`*^9, 3.7034966648933477`*^9}, {
   3.704193226061171*^9, 3.704193240530871*^9}, {3.704299470199032*^9, 
   3.7042994859001217`*^9}, {3.704299543592659*^9, 3.704299549452632*^9}, {
   3.704442551688158*^9, 3.7044425534437313`*^9}, {3.707209419421114*^9, 
   3.707209424379286*^9}, {3.70720975226521*^9, 3.707209866000699*^9}, {
   3.7072099101294107`*^9, 3.70720991399531*^9}, {3.707210069931086*^9, 
   3.707210071392524*^9}, {3.707210170794895*^9, 3.707210196984322*^9}, {
   3.707210466546845*^9, 3.70721050768832*^9}, {3.7072105979299726`*^9, 
   3.7072106282644777`*^9}, {3.707214809114159*^9, 3.70721481690343*^9}, {
   3.707217410744656*^9, 3.7072174111285*^9}, {3.709904128511923*^9, 
   3.7099042257578917`*^9}, {3.709907196480864*^9, 3.7099071964920063`*^9}, {
   3.709907316871912*^9, 3.709907319919664*^9}, 3.709908137871416*^9, 
   3.7106653708789*^9, {3.710742833604822*^9, 3.710742837808114*^9}, {
   3.7135058619909697`*^9, 3.713506002105163*^9}, {3.7135074596039543`*^9, 
   3.713507551168273*^9}, {3.713507605302837*^9, 3.713507605397406*^9}, {
   3.713508738760113*^9, 3.7135088009969683`*^9}, {3.713511550877738*^9, 
   3.713511551733128*^9}, {3.713518589934288*^9, 3.713518595698518*^9}, {
   3.7135196890835743`*^9, 
   3.7135197008183517`*^9}},ExpressionUUID->"271760d9-ccde-4fee-ad50-\
5c1466b98791"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GDisplayCAB", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCAB", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "B"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1`\\\ `2`\)]\)\>\"", "]"}], "[", 
          
          RowBox[{"A", ",", "B"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "nG"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"B", ",", "nG"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCABdE", "[", 
          RowBox[{"[", 
           RowBox[{"A", ",", "B", ",", "E"}], "]"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(`1`\\\ \(`2` : `3`\)\)]\)\>\"", 
           "]"}], "[", 
          RowBox[{"A", ",", "B", ",", "E"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"A", ",", "nG"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"B", ",", "nG"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "nG"}], "}"}]}], "]"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"GCdEab", "[", 
          RowBox[{"[", 
           RowBox[{"E", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], 
         "\[Rule]", 
         RowBox[{
          RowBox[{
          "StringTemplate", "[", 
           "\"\<\!\(\*SubscriptBox[\(C\), \(\(:\)\*SuperscriptBox[\(`1`\), \
\(`2``3`\)]\)]\)\>\"", "]"}], "[", 
          RowBox[{"E", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"E", ",", "nG"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Alpha]", ",", 
          RowBox[{"d", "-", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", 
          RowBox[{"d", "-", "1"}]}], "}"}]}], "]"}], "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713507636740687*^9, 3.7135076563400393`*^9}, {
  3.7135088101893873`*^9, 3.713508875179031*^9}, {3.713518601035149*^9, 
  3.713518603891073*^9}, {3.7135197058517313`*^9, 3.713519712833806*^9}, {
  3.713521739021943*^9, 3.713521745654463*^9}, {3.71352177727392*^9, 
  3.713521779249115*^9}},ExpressionUUID->"a1a41f6f-3a52-42bb-81d1-\
4883b3905c8f"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C10", "2"], TraditionalForm]],ExpressionUUID->
  "f675c4ff-d6c5-4f67-a770-1f0bf3df434c"],
 ", C3, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C8", "3"], TraditionalForm]],ExpressionUUID->
  "e5bb2318-db1c-4615-9238-96be5b10aa1e"]
}], "Subsubsection",
 CellChangeTimes->{{3.7106655334368057`*^9, 3.71066553988848*^9}, {
  3.7135108489156*^9, 
  3.713510860718734*^9}},ExpressionUUID->"35f2988e-7bd3-4fa8-8da5-\
0a5e7d0bd0ba"],

Cell[TextData[{
 "determines the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "AB"], TraditionalForm]],ExpressionUUID->
  "b4991fc1-5b92-4ca4-b75c-70f2a24229b3"],
 " with one remaining constant:"
}], "Text",
 CellChangeTimes->{{3.71066554886775*^9, 3.710665587795435*^9}, {
  3.713510864827347*^9, 
  3.7135108689694757`*^9}},ExpressionUUID->"5e306339-759a-41c9-90ba-\
35c0754600c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCE", "[", "10", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"GCAB", "\[TensorProduct]", 
     RowBox[{"IdentityMatrix", "[", 
      RowBox[{"d", "-", "1"}], "]"}]}], "+", 
    RowBox[{"Normal", "[", 
     RowBox[{"2", "*", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"Symmetrize", "[", 
         RowBox[{
          RowBox[{"TensorContract", "[", 
           RowBox[{
            RowBox[{"GCAB", "\[TensorProduct]", "FGdE"}], ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"1", ",", "3"}], "}"}], "}"}]}], "]"}], ",", 
          RowBox[{"Symmetric", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "4"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}]}], "]"}]}], "]"}],
     "+", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{"GCABdE", "\[TensorProduct]", "FGFlatCartesian"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713506018035479*^9, 3.713506035073563*^9}, {
  3.71350766618915*^9, 3.7135076723588257`*^9}, {3.71350770768373*^9, 
  3.713507741125736*^9}, {3.7135079554235983`*^9, 3.713508197815308*^9}, {
  3.7135186094358263`*^9, 3.7135186155379467`*^9}, {3.7135197783530693`*^9, 
  3.7135197924628763`*^9}, {3.713521445449842*^9, 
  3.713521448433836*^9}},ExpressionUUID->"b60b0df7-1a8d-448d-9a34-\
819e097aee57"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Symmetrize", "[", 
     RowBox[{
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{"PGFlatCartesian", "\[TensorProduct]", "FGFlatCartesian"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"2", ",", "5"}], "}"}], "}"}]}], "]"}], ",", 
      RowBox[{"Antisymmetric", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "]"}], "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7135187638549747`*^9, 3.713518846362598*^9}, {
   3.713521525944743*^9, 3.713521527753892*^9}, {3.713600849787723*^9, 
   3.713600901647951*^9}, 
   3.713606338335267*^9},ExpressionUUID->"a885d518-e06b-4453-8bf9-\
39562e5ca51b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7159057334245234`*^9, 3.719399847410191*^9, 
  3.72145750648532*^9, 
  3.721587872717202*^9},ExpressionUUID->"f076e5d6-7805-4cfc-9f1f-\
d261ed9123bb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GFlatCartesianCE", "[", "3", "]"}], "=", 
   RowBox[{
    RowBox[{"6", "*", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
       "GCAB", "\[TensorProduct]", "PGFlatCartesian", "\[TensorProduct]", 
        "FGFlatCartesian"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "7"}], "}"}]}], "}"}]}], "]"}]}], "-", 
    "GCdEab"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713518662506839*^9, 3.71351874424629*^9}, {
  3.713518876784363*^9, 3.713518931469055*^9}, {3.71352161220897*^9, 
  3.713521627409165*^9}, {3.7135216630667562`*^9, 
  3.713521689728745*^9}},ExpressionUUID->"3b54f265-420d-4fe7-8125-\
41124d3b0c09"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCE", "[", "8", "]"}], "[", "3", "]"}], "=", 
   RowBox[{"Symmetrize", "[", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"GCdEab", "\[TensorProduct]", "FGFlatCartesian"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.713518672424658*^9, 3.713518684801737*^9}, {
  3.713518960661879*^9, 3.713518984419725*^9}, {3.71351905432343*^9, 
  3.7135190756392107`*^9}, {3.71352167697866*^9, 
  3.713521683856942*^9}},ExpressionUUID->"68abc015-b2c6-4ec3-b1ab-\
710911dfb8c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "2", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"GFlatCartesianCE", "[", "8", "]"}], "[", "3", "]"}], 
           "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"GFlatCartesianCE", "[", "3", "]"}], "]"}], "\[Equal]", 
          "0"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"GFlatCartesianCE", "[", "10", "]"}], "[", "2", "]"}], 
           "]"}], "\[Equal]", "0"}], "]"}]}], "\[IndentingNewLine]", "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "GCdEab", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "GCAB", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Normal", "[", 
         RowBox[{"Flatten", "[", "GCABdE", "]"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
    "First"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713510580144765*^9, 3.713510606715064*^9}, {
  3.713510653261426*^9, 3.713510799308248*^9}, {3.7135108800262136`*^9, 
  3.713510882945427*^9}, {3.7135109262012978`*^9, 3.713510927079969*^9}, {
  3.713518618450123*^9, 3.713518624587411*^9}, {3.713519001364544*^9, 
  3.713519012795187*^9}, {3.713521704714221*^9, 3.713521727720557*^9}, {
  3.713521830034358*^9, 
  3.713521830264902*^9}},ExpressionUUID->"268a30bc-ab17-4798-bd1a-\
7f873acb0c1f"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   761,161,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7135190816260767`*^9, {3.7135217317663803`*^9, 3.713521758734231*^9}, 
   3.71352179536588*^9, 3.71352183459024*^9, 3.7135227190253696`*^9, 
   3.71360090969235*^9, 3.715905737279393*^9, 3.719399852005928*^9, 
   3.721457510912218*^9, 
   3.72158787689319*^9},ExpressionUUID->"27cdcc92-b4a0-46cd-9809-\
88ede9e8e294"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"GFlatCartesianLagrangianCABTermRaw", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Normal", "[", "GCAB", "]"}], "/.", 
           RowBox[{
            RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "2", 
            "]"}]}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"a", "\[Rule]", 
             RowBox[{"a", "[", "t", "]"}]}], ",", 
            RowBox[{"c", "\[Rule]", 
             RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}], 
        "\[TensorProduct]", "GFlatCartesianVelocity", "\[TensorProduct]", 
        "GFlatCartesianVelocity"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Join", "[", 
      RowBox[{"coordinateAssumptions", ",", "GDOFAssumptions"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GFlatCartesianLagrangianCABTermRaw", "/.", 
  "GDisplayCAB"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Variables", "[", "GFlatCartesianLagrangianCABTermRaw", "]"}], "/.",
   "GDisplayCAB"}]}], "Input",
 CellChangeTimes->{{3.710671552803452*^9, 3.7106715535960827`*^9}, {
  3.710671600876115*^9, 3.71067161433132*^9}, {3.710671662468145*^9, 
  3.7106717553979673`*^9}, {3.710671795219817*^9, 3.710671816326157*^9}, {
  3.710671980596499*^9, 3.710671987941949*^9}, {3.7106760632583838`*^9, 
  3.710676063684732*^9}, {3.7135220477988863`*^9, 3.7135221125857697`*^9}, {
  3.721457295375732*^9, 
  3.721457295380042*^9}},ExpressionUUID->"b6c93d79-bf0d-4214-8398-\
ac4b6bca1491"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "6"], " ", 
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "6"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]], 
  RowBox[{"12", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 4\\)]\\)\"\>", 
      " ", 
      SuperscriptBox[
       RowBox[{"c", "[", "t", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
     RowBox[{
     "4", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>", 
      " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "9"], " ", 
      RowBox[{"c", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["c", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 7\\)]\\)\"\>", 
        "-", 
        RowBox[{
        "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ \
8\\)]\\)\"\>"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"], " ", 
      SuperscriptBox[
       RowBox[{"c", "[", "t", "]"}], "3"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["c", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 4\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ 2\\)]\\)\"\>"}], 
       ")"}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"c", "[", "t", "]"}], "5"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["c", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{
     "2", " ", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>", 
      " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["c", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"c", "[", "t", "]"}], "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          
          RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 7\\)]\\)\"\>", 
           "-", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ 8\\)]\\)\"\>"}], 
          ")"}], " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          
          RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 4\\)]\\)\"\>", 
           "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ 2\\)]\\)\"\>"}], 
          ")"}], " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["c", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}]}], ")"}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"c", "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>", 
         " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "8"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 7\\)]\\)\"\>", 
         " ", 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "6"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["c", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.710671619472878*^9, {3.710671675506453*^9, 3.7106716951202908`*^9}, {
   3.710671731138591*^9, 3.710671757482074*^9}, {3.710671805462049*^9, 
   3.710671818516399*^9}, {3.710671982948628*^9, 3.710671989344803*^9}, {
   3.710676045773398*^9, 3.710676065362817*^9}, 3.710936292453525*^9, 
   3.710936550743534*^9, 3.711040349836611*^9, 3.7113560604017153`*^9, 
   3.711361566670586*^9, 3.711700922810605*^9, 3.712395337905575*^9, 
   3.712407357671672*^9, 3.712408866403812*^9, 3.712411191157995*^9, 
   3.712651893075593*^9, 3.712830070223954*^9, 3.71334298596259*^9, 
   3.7133467620807962`*^9, {3.713522072147287*^9, 3.713522113732812*^9}, 
   3.713522719947839*^9, 3.713600910668456*^9, 3.715905738152554*^9, 
   3.7193998529825497`*^9, 3.721457512036523*^9, 
   3.7215878779416027`*^9},ExpressionUUID->"8f0ae601-bdee-49ad-bb7d-\
ebde1f3b0a63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "[", "t", "]"}], ",", 
   RowBox[{"c", "[", "t", "]"}], ",", 
   RowBox[{
    SubscriptBox["N", "lapse"], "[", "t", "]"}], 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 4\\)]\\)\"\>", ",", 
   RowBox[{
    SuperscriptBox["a", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ 2\\)]\\)\"\>", ",", 
   RowBox[{
    SuperscriptBox["c", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(1\\\\ 7\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(2\\\\ 8\\)]\\)\"\>", 
   ",", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.710671619472878*^9, {3.710671675506453*^9, 3.7106716951202908`*^9}, {
   3.710671731138591*^9, 3.710671757482074*^9}, {3.710671805462049*^9, 
   3.710671818516399*^9}, {3.710671982948628*^9, 3.710671989344803*^9}, {
   3.710676045773398*^9, 3.710676065362817*^9}, 3.710936292453525*^9, 
   3.710936550743534*^9, 3.711040349836611*^9, 3.7113560604017153`*^9, 
   3.711361566670586*^9, 3.711700922810605*^9, 3.712395337905575*^9, 
   3.712407357671672*^9, 3.712408866403812*^9, 3.712411191157995*^9, 
   3.712651893075593*^9, 3.712830070223954*^9, 3.71334298596259*^9, 
   3.7133467620807962`*^9, {3.713522072147287*^9, 3.713522113732812*^9}, 
   3.713522719947839*^9, 3.713600910668456*^9, 3.715905738152554*^9, 
   3.7193998529825497`*^9, 3.721457512036523*^9, 
   3.7215878779602337`*^9},ExpressionUUID->"9e1a14c6-8a51-4aae-88ac-\
312c10a2d4a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"GDOFFlatCartesianJacobian", ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Normal", "[", 
        RowBox[{"GCABdE", "[", 
         RowBox[{"[", 
          RowBox[{"7", ",", "10"}], "]"}], "]"}], "]"}], "/.", 
       RowBox[{
        RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "2", 
        "]"}]}], ")"}]}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", "GDOFAssumptions"}], "]"}]}], 
   "]"}], "/.", "GDisplayCAB"}]], "Input",
 CellChangeTimes->{{3.710150298287744*^9, 3.710150457915285*^9}, {
  3.710672048912429*^9, 3.710672060275262*^9}, {3.7135221222582684`*^9, 
  3.713522148691386*^9}, {3.7135222163820066`*^9, 
  3.713522263595368*^9}},ExpressionUUID->"b089e6a9-0b02-4158-addf-\
51f61d7a8511"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>", 
     "a"]}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ \\(10 : \
1\\)\\)]\\)\"\>", 
        "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ \\(10 : 4\\)\\)]\\)\
\"\>", "+", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ \\(10 : \
6\\)\\)]\\)\"\>"}], ")"}]}], "+", 
     RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(C\\), \\(7\\\\ 10\\)]\\)\"\>", " ", 
      SuperscriptBox["a", "2"]}]}], 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "c"}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.7101504505918694`*^9, 3.710150458385495*^9}, {
   3.710672058198642*^9, 3.710672061113482*^9}, 3.710672091679748*^9, 
   3.710676088706623*^9, 3.7109362930352716`*^9, 3.710936551224695*^9, 
   3.711040350355578*^9, 3.711356060872295*^9, 3.711361567182226*^9, 
   3.71170092325075*^9, 3.71239533841954*^9, 3.712407358101179*^9, 
   3.7124088668610353`*^9, 3.712411191608148*^9, 3.712651893511301*^9, 
   3.712830070672521*^9, 3.71334298639452*^9, 3.713346762516522*^9, {
   3.713522137954918*^9, 3.713522149230608*^9}, {3.713522219036195*^9, 
   3.7135222638911533`*^9}, 3.7135227201069508`*^9, 3.713600910744341*^9, 
   3.715905738248767*^9, 3.719399853043426*^9, 3.721457512233197*^9, 
   3.721587878128408*^9},ExpressionUUID->"ceaec088-beba-499e-9fc0-\
3e25c1a5f214"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCABTermRaw2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"GFlatCartesianLagrangianCABTermRaw", "/.", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"GCAB", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "4"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "1", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "7"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCAB", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "7"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "2", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "3"}], "*", 
           RowBox[{"c", "^", "2"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCAB", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "3", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "7"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCAB", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "8"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "4", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "3"}], "*", 
           RowBox[{"c", "^", "2"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCAB", "[", 
           RowBox[{"[", 
            RowBox[{"7", ",", "10"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"f", "[", "5", "]"}], "[", "c", "]"}], "/", "a"}], "*", 
           RowBox[{"c", "^", "4"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", 
       
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a", "\[Rule]", 
          RowBox[{"a", "[", "t", "]"}]}], ",", 
         RowBox[{"c", "\[Rule]", 
          RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", "GDOFAssumptions"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.710151669342695*^9, 3.7101517363326797`*^9}, {
   3.710151882584712*^9, 3.71015201124682*^9}, {3.710152042110429*^9, 
   3.710152061351019*^9}, 3.710152094913803*^9, {3.7101522878726*^9, 
   3.7101523475209723`*^9}, {3.71015238364014*^9, 3.710152412031324*^9}, {
   3.710672108261207*^9, 3.7106721098490887`*^9}, {3.710675067288301*^9, 
   3.710675074636963*^9}, {3.710675131654632*^9, 3.710675190450984*^9}, {
   3.7106753813713303`*^9, 3.710675402591756*^9}, {3.710676121490575*^9, 
   3.710676124031438*^9}, {3.710676183578244*^9, 3.710676184425025*^9}, {
   3.710676775504735*^9, 3.7106767839924307`*^9}, {3.711703567601461*^9, 
   3.7117036135552073`*^9}, {3.71170373990324*^9, 3.711703753959467*^9}, {
   3.7117037888145647`*^9, 3.7117038606362658`*^9}, {3.7117038944445267`*^9, 
   3.7117039324579906`*^9}, {3.711703968529562*^9, 3.711703971200705*^9}, 
   3.712399596133658*^9, {3.712652067299985*^9, 3.7126520947060537`*^9}, {
   3.712840081765354*^9, 3.712840093957959*^9}, {3.7135221616594048`*^9, 
   3.713522334188404*^9}, {3.713522399874827*^9, 
   3.7135224015462933`*^9}},ExpressionUUID->"8ef58784-f680-48be-88a6-\
84027f75e5ce"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"12", " ", 
    RowBox[{"a", "[", "t", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox[
        RowBox[{"c", "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "1", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "2", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "4", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"f", "[", "5", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{"c", "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "1", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"f", "[", "2", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"f", "[", "3", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "4", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "5", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["c", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "1", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "2", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"f", "[", "3", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           RowBox[{"f", "[", "5", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["c", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.710152349464994*^9, 3.7101524147971373`*^9, 3.710672120652143*^9, 
   3.710675075669737*^9, {3.710675140883162*^9, 3.710675193957909*^9}, 
   3.710675415908346*^9, 3.7106761296779327`*^9, 3.71067618558179*^9, 
   3.710676784647978*^9, 3.710936294246964*^9, 3.710936552542552*^9, 
   3.711040351693418*^9, 3.711356062110971*^9, 3.711361568427568*^9, 
   3.711700924500651*^9, 3.711703614642283*^9, {3.71170374432553*^9, 
   3.711703754669613*^9}, {3.7117037940641203`*^9, 3.711703822864718*^9}, 
   3.7117038613710327`*^9, {3.711703902140143*^9, 3.71170393345084*^9}, 
   3.7117039719619637`*^9, 3.712395339664381*^9, 3.71239959834805*^9, 
   3.7124073589368267`*^9, 3.7124088678125896`*^9, 3.712411192469132*^9, 
   3.7126518945135193`*^9, 3.712653928253725*^9, 3.712830071579867*^9, 
   3.712840094440728*^9, 3.7133429872733717`*^9, 3.7133467633715057`*^9, 
   3.713522199557151*^9, {3.713522277891797*^9, 3.71352233462598*^9}, {
   3.713522394331949*^9, 3.713522401890627*^9}, 3.7135227206410503`*^9, 
   3.713600910871583*^9, 3.7159057383326797`*^9, 3.719399853132408*^9, 
   3.721457512377103*^9, 
   3.7215878782516527`*^9},ExpressionUUID->"fd784478-2249-42c6-8748-\
48f7e7e2b0c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCABTerm", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{"GFlatCartesianLagrangianCABTermRaw2", "/.", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "1", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "2", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "4", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"f", "[", "5", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}]}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"0", ",", "2"}], "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "/", "24"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "1", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"f", "[", "2", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"f", "[", "3", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "4", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "5", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}]}], "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "/", "24"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "1", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "2", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"f", "[", "3", "]"}], "[", 
         RowBox[{"c", "[", "t", "]"}], "]"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          RowBox[{"f", "[", "5", "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}]}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"F", "[", 
           RowBox[{"0", ",", "2"}], "]"}], "[", 
          RowBox[{"c", "[", "t", "]"}], "]"}]}], "/", "12"}]}]}], 
     "\[IndentingNewLine]", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.712840097988894*^9, 3.712840138299706*^9}, {
  3.712840170152957*^9, 3.712840184505596*^9}, {3.713522416161201*^9, 
  3.713522478446525*^9}},ExpressionUUID->"206e7455-fd5e-481e-b484-\
532b800785a4"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"a", "[", "t", "]"}], " ", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "[", 
     RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"], " ", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "[", 
     RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], " ", 
    RowBox[{
     SuperscriptBox["c", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], 
   RowBox[{
    RowBox[{"c", "[", "t", "]"}], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "3"], " ", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "[", 
     RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["c", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.712840186024907*^9, 3.713342987392955*^9, 3.713346763461876*^9, {
   3.713522461874424*^9, 3.7135224789944897`*^9}, 3.713522720906231*^9, 
   3.7136009109458113`*^9, 3.715905738481798*^9, 3.719399853185265*^9, 
   3.72145751250701*^9, 
   3.7215878783893347`*^9},ExpressionUUID->"3aa8bb1b-fd0f-4821-be3d-\
1b94e62a7838"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C14", "2"], 
  TraditionalForm]],ExpressionUUID->"c575d900-bacb-4f0c-a893-f156d32bedd7"]], \
"Subsubsection",
 CellChangeTimes->{{3.704106318161278*^9, 3.704106333447255*^9}, {
  3.7106722344293623`*^9, 3.710672247828596*^9}, {3.710738876496357*^9, 
  3.710738876496464*^9}},ExpressionUUID->"a571bafe-efd5-4376-8359-\
5668f53e49c2"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox[
   RowBox[{
    SubscriptBox[
     StyleBox[
      RowBox[{"C1", 
       StyleBox["4", "Text"]}]], "2"], " ", "is", " ", "trivially", " ", 
    "true"}], "Text"]],ExpressionUUID->"481f5fab-9444-4a4a-85db-c35ab8c79b52"],
 ":"
}], "Text",
 CellChangeTimes->{{3.704174795623941*^9, 3.704174797560824*^9}, {
  3.710738871773975*^9, 
  3.710738873467345*^9}},ExpressionUUID->"82c48e05-cce4-4687-a14a-\
b73e68888e7b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorContract", "[", 
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{"Symmetrize", "[", 
           RowBox[{
            RowBox[{"Pg", "\[TensorProduct]", "Fg"}], ",", 
            RowBox[{"Antisymmetric", "[", 
             RowBox[{"{", 
              RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "5"}], "}"}], "}"}]}], "]"}], "/.", 
       "\[CapitalPhi]gTrafo"}], ",", "coordinateAssumptions"}], "]"}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.710736527042431*^9, 3.710736550695195*^9}, {
  3.7107368293784323`*^9, 3.710736830207473*^9}, {3.710736862368325*^9, 
  3.710736864063232*^9}, {3.7107368990753593`*^9, 3.7107369123207417`*^9}, {
  3.7107369553393183`*^9, 
  3.71073714722358*^9}},ExpressionUUID->"6521d353-df56-4e1c-9bf9-\
618feb89b5bd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.710736822453187*^9, 3.7107368646694508`*^9, {3.710736981105215*^9, 
   3.7107369871101294`*^9}, 3.710737043066092*^9, {3.710737118283701*^9, 
   3.7107371482369967`*^9}, 3.7109362947502003`*^9, 3.710936553110952*^9, 
   3.711040352170507*^9, 3.711356062452133*^9, 3.711361568964643*^9, 
   3.711700925344942*^9, 3.7123953419819202`*^9, 3.7124073606766233`*^9, 
   3.712651897017758*^9, 3.712830076783997*^9, 3.7133429874923363`*^9, 
   3.713346763562446*^9},ExpressionUUID->"096d95b2-b90b-492e-a4ad-\
01adee10a863"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorContract", "[", 
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{"Symmetrize", "[", 
           RowBox[{
            RowBox[{"PGFlatCartesian", "\[TensorProduct]", "FG"}], ",", 
            RowBox[{"Antisymmetric", "[", 
             RowBox[{"{", 
              RowBox[{"2", ",", "4"}], "}"}], "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "5"}], "}"}], "}"}]}], "]"}], "/.", 
       "\[CapitalPhi]GFlatCartesianTrafo"}], ",", "coordinateAssumptions"}], 
     "]"}], "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.710737150349823*^9, 
  3.7107371594431753`*^9}},ExpressionUUID->"c76aefa2-4464-4ea9-b4d3-\
51f7016d9ca5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7107371610437307`*^9, 3.710936294816194*^9, 
  3.710936553197448*^9, 3.711040352354886*^9, 3.711356062517579*^9, 
  3.7113615690656776`*^9, 3.711700925457266*^9, 3.712395342098321*^9, 
  3.712407360791787*^9, 3.712651897149933*^9, 3.712830077082139*^9, 
  3.713342987592556*^9, 
  3.7133467636447277`*^9},ExpressionUUID->"9880d865-1e2f-47d9-ac6a-\
fb66fd2dca84"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Metric ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "ABC"], TraditionalForm]],ExpressionUUID->
  "3f198bfb-2c78-4c1c-a789-eb1225aa5d17"],
 " sector"
}], "Subsection",
 CellChangeTimes->{{3.7124056808714657`*^9, 3.71240568974193*^9}, {
  3.713526685714554*^9, 
  3.713526686512332*^9}},ExpressionUUID->"bb178372-c42a-48ee-a8de-\
ae11c861d825"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCABC", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABC", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCABCdE", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABCdE", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.712464621589801*^9, 3.712464622967761*^9}, {
   3.7124646613774233`*^9, 3.712464664640439*^9}, {3.712464895019478*^9, 
   3.712465047456347*^9}, {3.712465089319865*^9, 3.712465286275586*^9}, 
   3.712465326269836*^9, {3.713522727664774*^9, 3.713522755401618*^9}, {
   3.713525811047475*^9, 
   3.713525824334846*^9}},ExpressionUUID->"e7bf5785-f4e2-4503-aa81-\
27bebd332e66"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C16", "2"], 
  TraditionalForm]],ExpressionUUID->"83608e0b-79e4-451f-8f72-e17253964d30"]], \
"Subsubsection",
 CellChangeTimes->{{3.7124058410168552`*^9, 3.7124058435005827`*^9}, {
  3.713523758406974*^9, 
  3.713523762057852*^9}},ExpressionUUID->"b9dc7f8a-fb6d-4158-b4d5-\
5d47aea35a64"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "16", "]"}], "[", "2", "]"}], "=", 
   RowBox[{"Activate", "@", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
       RowBox[{"gCABC", ",", "PgFlatCartesian", ",", "FgFlatCartesian"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "8"}], "}"}]}], "}"}]}], "]"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.713344049343729*^9, 3.71334410982707*^9}, {
   3.713500835078731*^9, 3.713500849244203*^9}, 3.713522862246311*^9, {
   3.713522923852027*^9, 3.713522924527156*^9}, {3.7135258265269213`*^9, 
   3.713525837990123*^9}, {3.7135260505185337`*^9, 3.713526086939734*^9}, {
   3.713526399390636*^9, 3.7135264557399273`*^9}, {3.713609942534772*^9, 
   3.713609943052775*^9}},ExpressionUUID->"43039247-d9bf-4a38-b0b1-\
a45c158c83c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCESolution", "[", "16", "]"}], "[", "2", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"gFlatCartesianCE", "[", "16", "]"}], "[", "2", "]"}], 
          "]"}], "\[Equal]", "0"}], "]"}], "\[IndentingNewLine]", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{"Variables", "[", 
        RowBox[{"Normal", "[", "gCABC", "]"}], "]"}], "\[IndentingNewLine]", 
       "]"}]}], "\[IndentingNewLine]", "]"}], "//", "First"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.713523497348152*^9, 3.71352351694571*^9}, {
   3.713525841919661*^9, 3.713525877020648*^9}, {3.713526015222927*^9, 
   3.7135260445741053`*^9}, {3.713526095564191*^9, 3.713526100450848*^9}, 
   3.713526136979195*^9, {3.713526213670896*^9, 3.713526215350265*^9}, {
   3.713609901142563*^9, 
   3.7136099566042767`*^9}},ExpressionUUID->"f942b6c6-f15a-4967-ba0d-\
e0dd78854438"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "ABC"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "9f90f166-5c73-407f-b9bc-269b12efceaa"],
 " vanishes entirely:"
}], "Text",
 CellChangeTimes->{{3.71361004310684*^9, 
  3.713610054225473*^9}},ExpressionUUID->"0143c842-ba7d-4235-a025-\
6045685ef636"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Normal", "[", "gCABC", "]"}], "/.", 
     RowBox[{
      RowBox[{"gFlatCartesianCESolution", "[", "16", "]"}], "[", "2", "]"}]}],
     "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.713609928462438*^9, 3.7136099673637114`*^9}, {
  3.713610006732658*^9, 
  3.713610026722188*^9}},ExpressionUUID->"fd9e09d8-2ef5-416c-9df7-\
290422b49284"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.713609937147194*^9, 3.7136099678798437`*^9, 
  3.713610032980577*^9, 3.71590573868227*^9, 3.7193998532972307`*^9, 
  3.721457512725589*^9, 
  3.7215878785942802`*^9},ExpressionUUID->"0c86fc18-9ca9-4ee4-89bf-\
821e89c75622"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "ABC"], TraditionalForm]],ExpressionUUID->
  "39986f25-a85c-4780-a1c9-a80b5786cca8"],
 " sector"
}], "Subsection",
 CellChangeTimes->{{3.7124056808714657`*^9, 
  3.71240568974193*^9}},ExpressionUUID->"6d337cca-87b3-427c-859a-\
3bcb6d801025"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"GCABC", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABC", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", "nG", ",", "nG"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GCABCdE", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABCdE", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nG", ",", "nG", ",", "nG", ",", "nG"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.712464621589801*^9, 3.712464622967761*^9}, {
   3.7124646613774233`*^9, 3.712464664640439*^9}, {3.712464895019478*^9, 
   3.712465047456347*^9}, {3.712465089319865*^9, 3.712465286275586*^9}, 
   3.712465326269836*^9, {3.713522727664774*^9, 
   3.713522755401618*^9}},ExpressionUUID->"364c6783-9fe4-4827-a9f7-\
215b67ce625b"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C16", "2"], 
  TraditionalForm]],ExpressionUUID->"c7092a83-eed7-47c6-afb4-54972cdf3548"]], \
"Subsubsection",
 CellChangeTimes->{{3.7124058410168552`*^9, 3.7124058435005827`*^9}, {
  3.713523758406974*^9, 
  3.713523762057852*^9}},ExpressionUUID->"bf21acc8-0903-4e8b-b0ab-\
1bea192cfdab"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCE", "[", "16", "]"}], "[", "2", "]"}], "=", 
   RowBox[{"Activate", "@", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
       RowBox[{"GCABC", ",", "PGFlatCartesian", ",", "FGFlatCartesian"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "8"}], "}"}]}], "}"}]}], "]"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.713344049343729*^9, 3.71334410982707*^9}, {
   3.713500835078731*^9, 3.713500849244203*^9}, 3.713522862246311*^9, {
   3.713522923852027*^9, 
   3.713522924527156*^9}},ExpressionUUID->"b30e4766-39ce-4251-9824-\
d726a7c2446e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCESolution", "[", "16", "]"}], "[", "2", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"GFlatCartesianCE", "[", "16", "]"}], "[", "2", "]"}], 
         "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Normal", "[", 
       RowBox[{"Flatten", "[", "GCABC", "]"}], "]"}]}], "\[IndentingNewLine]",
      "]"}], "//", "First"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713523497348152*^9, 
  3.71352351694571*^9}},ExpressionUUID->"cd7aab4c-94d5-40b1-aac0-\
7e0d73fa5439"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   776,162,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7135235212594957`*^9, 3.7135237674793463`*^9, 
  3.713600913428026*^9, 3.715905740153995*^9, 3.719399854865555*^9, 
  3.7215878800450287`*^9},ExpressionUUID->"980a4b59-5e2e-412b-ab64-\
9591778056c0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GCABCStep", "[", "16", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"Normal", "[", "GCABC", "]"}], "/.", 
    RowBox[{
     RowBox[{"GFlatCartesianCESolution", "[", "16", "]"}], "[", "2", 
     "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713523938964673*^9, 
  3.713523979091785*^9}},ExpressionUUID->"95e60e44-462c-4a0f-9e7b-\
f5d0a009a381"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C10", "3"], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"7c2aacf2-8f60-4147-b82d-0fdd43e609aa"]], \
"Subsubsection",
 CellChangeTimes->{{3.713601394766636*^9, 
  3.713601396666307*^9}},ExpressionUUID->"cf417ece-9fb1-452c-a626-\
ab5c2c466304"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"~", "1"}], "min"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"GFlatCartesianCE", "[", "10", "]"}], "[", "3", "]"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GCABCStep", "[", "16", "]"}], "[", "2", "]"}], 
      "\[TensorProduct]", 
      RowBox[{"IdentityMatrix", "[", 
       RowBox[{"d", "-", "1"}], "]"}]}], "+", 
     RowBox[{"3", "*", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"Symmetrize", "[", 
         RowBox[{
          RowBox[{"TensorContract", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"GCABCStep", "[", "16", "]"}], "[", "2", "]"}], 
             "\[TensorProduct]", "FGdE"}], ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"1", ",", "4"}], "}"}], "}"}]}], "]"}], ",", 
          RowBox[{"Symmetric", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "5"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "4", ",", "5", ",", "3"}], "}"}]}], 
       "]"}]}], "+", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{"GCABCdE", "\[TensorProduct]", "FGFlatCartesian"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.712405851327971*^9, 3.712405958894507*^9}, {
  3.712406131416851*^9, 3.712406182446821*^9}, {3.712465364777298*^9, 
  3.712465373551893*^9}, {3.7135009439106207`*^9, 3.7135009633415117`*^9}, {
  3.713522858069565*^9, 3.713522859613173*^9}, {3.713522894452962*^9, 
  3.713522894963893*^9}, {3.713523039402029*^9, 3.713523039536149*^9}, {
  3.713523991349869*^9, 3.7135240027810993`*^9}, {3.713524051200742*^9, 
  3.713524053601153*^9}, {3.713526558183069*^9, 
  3.713526574990703*^9}},ExpressionUUID->"94dbf5d5-e705-4888-8a48-\
b6649322787f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GFlatCartesianCEVariables", "[", "10", "]"}], "[", "3", "]"}], 
   "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Intersection", "[", 
      RowBox[{
       RowBox[{"Variables", "[", 
        RowBox[{
         RowBox[{"GCABCStep", "[", "16", "]"}], "[", "2", "]"}], "]"}], ",", 
       RowBox[{"Variables", "[", 
        RowBox[{"Normal", "[", "GCABC", "]"}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Variables", "[", 
      RowBox[{"Normal", "[", "GCABCdE", "]"}], "]"}]}], "\[IndentingNewLine]",
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713523656263117*^9, 3.713523668163815*^9}, {
   3.7135250780954447`*^9, 3.713525079000286*^9}, 
   3.713525164220108*^9},ExpressionUUID->"593f5f16-8bc2-4c0a-a659-\
087a075d247e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"~", "5"}], "min"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "3", "]"}], 
    "=", 
    RowBox[{
     RowBox[{"Solve", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"GFlatCartesianCE", "[", "10", "]"}], "[", "3", "]"}], 
          "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"GFlatCartesianCEVariables", "[", "10", "]"}], "[", "3", 
        "]"}]}], "\[IndentingNewLine]", "]"}], "//", "First"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.712405975356694*^9, 3.71240601203533*^9}, {
  3.712466144692339*^9, 3.712466155470129*^9}, {3.712466442708599*^9, 
  3.712466448961081*^9}, {3.713344138106481*^9, 3.713344145450189*^9}, {
  3.713522933285083*^9, 3.71352294849049*^9}, {3.7135235459069033`*^9, 
  3.713523584591887*^9}, {3.7135236497366943`*^9, 3.713523676364915*^9}, {
  3.7135241817815647`*^9, 
  3.713524183348934*^9}},ExpressionUUID->"540723c3-3e8e-49fc-b34d-\
26ab3fd77d41"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   780,163,29926265212700662614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.71352454555444*^9, 3.7135254335234747`*^9, 
  3.7135267457712812`*^9, 3.713601055506043*^9, 3.7159058785422773`*^9, 
  3.7194000124285717`*^9, 
  3.7215880292681713`*^9},ExpressionUUID->"3339ba3f-f645-4d76-ac9b-\
9149afa1cdb3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"GFlatCartesianLagrangianCABCTermRaw", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"Activate", "@", 
     RowBox[{"TensorContract", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"GCABCStep", "[", "16", "]"}], "[", "2", "]"}], "/.", 
           RowBox[{
            RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "3", 
            "]"}]}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"a", "\[Rule]", 
             RowBox[{"a", "[", "t", "]"}]}], ",", 
            RowBox[{"c", "\[Rule]", 
             RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ",", 
         "GFlatCartesianVelocity", ",", "GFlatCartesianVelocity", ",", 
         "GFlatCartesianVelocity"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "6"}], "}"}]}], "}"}]}], "]"}]}], ",", 
    RowBox[{"Join", "[", 
     RowBox[{"coordinateAssumptions", ",", "GDOFAssumptions"}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "GFlatCartesianLagrangianCABCTermRaw", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.712406886267933*^9, 3.7124069325808153`*^9}, {
   3.7124667086588717`*^9, 3.7124667568746853`*^9}, {3.712466835966043*^9, 
   3.7124668494729567`*^9}, {3.71246689759398*^9, 3.712466932277432*^9}, {
   3.7124672165119877`*^9, 3.712467224915662*^9}, {3.7124672630186577`*^9, 
   3.71246726405162*^9}, {3.712839667242049*^9, 3.712839706114174*^9}, {
   3.713523127351408*^9, 3.71352314630812*^9}, {3.7135247125513783`*^9, 
   3.7135247185972633`*^9}, 3.7135257528763103`*^9, {3.721457295494035*^9, 
   3.721457295502746*^9}},ExpressionUUID->"dcdfa8ee-6276-4a86-994b-\
1c68eb7a51f9"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"24", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"], " ", 
       RowBox[{"CABC", "[", 
        RowBox[{"1", ",", "2", ",", "8"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"c", "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"9", " ", 
          RowBox[{"CABC", "[", 
           RowBox[{"1", ",", "4", ",", "6"}], "]"}]}], "-", 
         RowBox[{"7", " ", 
          SqrtBox["2"], " ", 
          RowBox[{"CABC", "[", 
           RowBox[{"2", ",", "3", ",", "5"}], "]"}]}]}], ")"}]}]}], ")"}], 
    " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["c", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "3"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "6"], " ", 
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "5"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "3"]}]]}]], "Output",
 CellChangeTimes->{
  3.712466545721014*^9, {3.712466767950529*^9, 3.712466784553401*^9}, 
   3.7124668219384108`*^9, 3.712466864032021*^9, {3.712466919708066*^9, 
   3.7124669402087927`*^9}, 3.712467245916192*^9, 3.712467280756741*^9, 
   3.7126528534247437`*^9, 3.712838954781724*^9, 3.7128397187185497`*^9, 
   3.713344991223303*^9, 3.71334805432812*^9, 3.7135254984767427`*^9, 
   3.713525767012436*^9, 3.7135267715507*^9, 3.713601063318635*^9, 
   3.7136011015146008`*^9, 3.715905889013762*^9, 3.719400023408986*^9, 
   3.7215880400708313`*^9},ExpressionUUID->"68261a0d-f326-4bde-897e-\
1162a04bf432"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "[", "t", "]"}], ",", 
   RowBox[{"c", "[", "t", "]"}], ",", 
   RowBox[{"CABC", "[", 
    RowBox[{"1", ",", "2", ",", "8"}], "]"}], ",", 
   RowBox[{"CABC", "[", 
    RowBox[{"1", ",", "4", ",", "6"}], "]"}], ",", 
   RowBox[{"CABC", "[", 
    RowBox[{"2", ",", "3", ",", "5"}], "]"}], ",", 
   RowBox[{
    SubscriptBox["N", "lapse"], "[", "t", "]"}], ",", 
   RowBox[{
    SuperscriptBox["c", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.712466545721014*^9, {3.712466767950529*^9, 3.712466784553401*^9}, 
   3.7124668219384108`*^9, 3.712466864032021*^9, {3.712466919708066*^9, 
   3.7124669402087927`*^9}, 3.712467245916192*^9, 3.712467280756741*^9, 
   3.7126528534247437`*^9, 3.712838954781724*^9, 3.7128397187185497`*^9, 
   3.713344991223303*^9, 3.71334805432812*^9, 3.7135254984767427`*^9, 
   3.713525767012436*^9, 3.7135267715507*^9, 3.713601063318635*^9, 
   3.7136011015146008`*^9, 3.715905889013762*^9, 3.719400023408986*^9, 
   3.721588040088336*^9},ExpressionUUID->"233e588b-c718-4df2-8457-\
5e7e95f932a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"GDOFFlatCartesianJacobian", ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Normal", "[", 
      RowBox[{"GCABCdE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "3", ",", "5"}], "]"}], "]"}], "]"}], "/.", 
     RowBox[{
      RowBox[{"GFlatCartesianCESolution", "[", "10", "]"}], "[", "3", "]"}]}],
     ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7124669139373426`*^9, 3.712467027894315*^9}, {
  3.712467296881501*^9, 3.712467352467257*^9}, {3.712467464542451*^9, 
  3.712467469604704*^9}, {3.7124676923793573`*^9, 3.712467693570875*^9}, {
  3.7128391959522667`*^9, 3.712839344123074*^9}, {3.7128394084255943`*^9, 
  3.712839410032921*^9}, {3.712839444584182*^9, 3.7128394497515707`*^9}, {
  3.7133455236559057`*^9, 3.713345526949739*^9}, {3.713345603962447*^9, 
  3.713345605287565*^9}, {3.713345644030196*^9, 3.7133456464536133`*^9}, {
  3.7135231730993147`*^9, 3.713523189067192*^9}, {3.713526813749683*^9, 
  3.713526840371071*^9}},ExpressionUUID->"63147229-5410-4a3f-8159-\
ed7441ab54b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"9", " ", 
     RowBox[{"CABC", "[", 
      RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "a"], ",", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "9"}], " ", 
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"CABC", "[", 
       RowBox[{"2", ",", "3", ",", "5"}], "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"CABCdE", "[", 
         RowBox[{"2", ",", "3", ",", "5", ",", "1"}], "]"}], "+", 
        RowBox[{"CABCdE", "[", 
         RowBox[{"2", ",", "3", ",", "5", ",", "4"}], "]"}], "+", 
        RowBox[{"CABCdE", "[", 
         RowBox[{"2", ",", "3", ",", "5", ",", "6"}], "]"}]}], ")"}]}]}], 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "c"}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.712466920529565*^9, {3.712466967973177*^9, 3.712467030607348*^9}, {
   3.7124673261800833`*^9, 3.712467356342284*^9}, 3.712467696501404*^9, 
   3.712652858833623*^9, 3.7128389599993763`*^9, 3.7128391250019913`*^9, {
   3.712839200450775*^9, 3.712839346761345*^9}, 3.712839414184979*^9, 
   3.712839452157529*^9, 3.7128397231881437`*^9, 3.713345530052966*^9, 
   3.713345610243013*^9, 3.7133456499137087`*^9, 3.713348056842437*^9, {
   3.7135268166362953`*^9, 3.713526840754904*^9}, 3.713601063542136*^9, 
   3.713601104158196*^9, 3.715905889210929*^9, 3.719400023595683*^9, 
   3.7215880403747683`*^9},ExpressionUUID->"0a0f8a49-048e-4d44-8579-\
99b26ee48edf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCABCTermRaw2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"GFlatCartesianLagrangianCABCTermRaw", "/.", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"GCABC", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2", ",", "8"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "1", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"a", "^", "5"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCABC", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "4", ",", "6"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "2", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "9"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"GCABC", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3", ",", "5"}], "]"}], "]"}], "\[Rule]", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "[", "3", "]"}], "[", "c", "]"}], "*", 
           RowBox[{"a", "^", "9"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", 
       
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a", "\[Rule]", 
          RowBox[{"a", "[", "t", "]"}]}], ",", 
         RowBox[{"c", "\[Rule]", 
          RowBox[{"c", "[", "t", "]"}]}]}], "}"}]}], ")"}]}], ",", 
    "GDOFAssumptions"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.712839027335299*^9, 3.7128394642012444`*^9}, {
  3.712839599091732*^9, 3.712839611544482*^9}, {3.712840561043104*^9, 
  3.7128405692185097`*^9}, {3.7128412329124613`*^9, 3.712841236374687*^9}, {
  3.712841371212865*^9, 3.7128413863009653`*^9}, {3.712841442291822*^9, 
  3.712841453955133*^9}, {3.712841487913238*^9, 3.712841491960766*^9}, {
  3.712841563377171*^9, 3.7128415685523367`*^9}, {3.713345565098035*^9, 
  3.713345584744843*^9}, {3.7133456262394047`*^9, 3.713345695575469*^9}, {
  3.713523222795446*^9, 3.7135232701844053`*^9}, {3.713526895065908*^9, 
  3.713526911480657*^9}},ExpressionUUID->"d0ff5501-63fd-4cd1-9381-\
41be59b3a22c"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"24", " ", 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", " ", 
       RowBox[{
        RowBox[{"f", "[", "1", "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
      RowBox[{"9", " ", 
       RowBox[{
        RowBox[{"f", "[", "2", "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}]}], "-", 
      RowBox[{"7", " ", 
       SqrtBox["2"], " ", 
       RowBox[{
        RowBox[{"f", "[", "3", "]"}], "[", 
        RowBox[{"c", "[", "t", "]"}], "]"}]}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["c", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "3"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"c", "[", "t", "]"}], "3"], " ", 
    SuperscriptBox[
     RowBox[{
      SubscriptBox["N", "lapse"], "[", "t", "]"}], "3"]}]]}]], "Output",
 CellChangeTimes->{
  3.71283947832732*^9, 3.71283974713389*^9, 3.7128405697549067`*^9, 
   3.71284129298726*^9, 3.712841387822831*^9, 3.712841455224345*^9, 
   3.712841519449031*^9, 3.7128415694422407`*^9, {3.713345661452523*^9, 
   3.7133456962140512`*^9}, 3.713348060278203*^9, 3.7133489555403214`*^9, 
   3.713526848968844*^9, {3.713526905756851*^9, 3.713526911742076*^9}, {
   3.71360106361794*^9, 3.713601105658*^9}, 3.715905889333683*^9, 
   3.7194000236507893`*^9, 
   3.72158804048921*^9},ExpressionUUID->"d161032d-c7db-4969-a4c6-\
6bae575cd4ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GFlatCartesianLagrangianCABCTerm", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"GFlatCartesianLagrangianCABCTermRaw2", "/.", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"9", " ", 
          RowBox[{
           RowBox[{"f", "[", "1", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "+", 
         RowBox[{"9", " ", 
          RowBox[{
           RowBox[{"f", "[", "2", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "-", 
         RowBox[{"7", " ", 
          SqrtBox["2"], " ", 
          RowBox[{
           RowBox[{"f", "[", "3", "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}]}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"F", "[", 
            RowBox[{"0", ",", "3"}], "]"}], "[", 
           RowBox[{"c", "[", "t", "]"}], "]"}]}], "/", "24"}]}], 
       "\[IndentingNewLine]", "}"}]}], ",", "GDOFAssumptions"}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.712840578303297*^9, 3.712840635028657*^9}, {
   3.71284069968696*^9, 3.7128407235314503`*^9}, {3.712840814244356*^9, 
   3.712840823458658*^9}, {3.712840912614625*^9, 3.712840913306859*^9}, {
   3.712840945681418*^9, 3.7128409466296988`*^9}, {3.7128409825084057`*^9, 
   3.712841015603238*^9}, {3.712841166576893*^9, 3.7128412516216507`*^9}, 
   3.712841628032094*^9, 3.712841663959557*^9, {3.7128416952395363`*^9, 
   3.712841720447071*^9}, {3.713345713874138*^9, 3.713345719727694*^9}, {
   3.713526866781336*^9, 
   3.713526879185966*^9}},ExpressionUUID->"543ce0c6-61a5-499f-a545-\
ebe75bf35ab3"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "3"], " ", 
   RowBox[{
    RowBox[{"F", "[", 
     RowBox[{"0", ",", "3"}], "]"}], "[", 
    RowBox[{"c", "[", "t", "]"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["c", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "3"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"c", "[", "t", "]"}], "3"], " ", 
   SuperscriptBox[
    RowBox[{
     SubscriptBox["N", "lapse"], "[", "t", "]"}], "3"]}]]], "Output",
 CellChangeTimes->{
  3.712840586395208*^9, 3.712841017856567*^9, {3.712841184286867*^9, 
   3.71284125226816*^9}, 3.712841721294585*^9, 3.713345726253358*^9, 
   3.713348060357953*^9, 3.713348958330612*^9, {3.713526873853532*^9, 
   3.713526879507196*^9}, 3.713526913673669*^9, 3.713601063704378*^9, 
   3.71360110830926*^9, 3.715905889461342*^9, 3.719400023731163*^9, 
   3.721588040610358*^9},ExpressionUUID->"86ad5a6e-1edd-4336-b4c1-\
4720fa28ac43"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Metric ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "ABCD"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "dfbf49ac-66da-40ca-9e98-a0b217bcab01"],
 " sector"
}], "Subsection",
 CellChangeTimes->{{3.7136105314105062`*^9, 
  3.713610544083456*^9}},ExpressionUUID->"7b153c46-507e-403d-8ca1-\
7568cdf0c655"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gCABCD", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABCD", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCABCDdE", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABCDdE", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n", ",", "n", ",", "n"}], "}"}], ",", 
     RowBox[{"Symmetric", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gCABdEab", "=", 
   RowBox[{"SymmetrizedArray", "[", 
    RowBox[{
     RowBox[{"pos_", "\[RuleDelayed]", 
      RowBox[{"CABdEab", "@@", "pos"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n", ",", "n", ",", 
       RowBox[{"d", "-", "1"}], ",", 
       RowBox[{"d", "-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Symmetric", "[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], ",", 
       RowBox[{"Symmetric", "[", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.712464621589801*^9, 3.712464622967761*^9}, {
   3.7124646613774233`*^9, 3.712464664640439*^9}, {3.712464895019478*^9, 
   3.712465047456347*^9}, {3.712465089319865*^9, 3.712465286275586*^9}, 
   3.712465326269836*^9, {3.712842777777912*^9, 3.712842806271626*^9}, {
   3.713526980385272*^9, 3.713526981693141*^9}, {3.7136010154989443`*^9, 
   3.713601067469225*^9}, {3.7136011129280453`*^9, 3.7136011455070667`*^9}, {
   3.7136012001796503`*^9, 3.713601211657662*^9}, {3.713610549485394*^9, 
   3.7136105678756237`*^9}, {3.71361304679589*^9, 
   3.71361304693825*^9}},ExpressionUUID->"15e937d3-b39c-4987-a189-\
fe4ebe27a7ea"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C12", "2"], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"3ab18fa8-094c-40ce-8208-a82cb79663c0"]], \
"Subsubsection",
 CellChangeTimes->{{3.713603645247087*^9, 
  3.713603648450219*^9}},ExpressionUUID->"53a4152a-9b8c-49cc-b8e4-\
634890413538"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Symmetrize", "[", 
     RowBox[{
      RowBox[{"Activate", "@", 
       RowBox[{"TensorContract", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
          RowBox[{"gCABdEab", ",", "FgFlatCartesian"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"3", ",", "6"}], "}"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"Antisymmetric", "[", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4", ",", "5"}], "}"}], "]"}]}], "]"}], "]"}], ",", 
   
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.71361441293832*^9, 3.713614413977166*^9}, {
  3.7136144545858297`*^9, 3.713614456791707*^9}, {3.7136145769421587`*^9, 
  3.713614620354813*^9}},ExpressionUUID->"bbc4e929-8f52-4203-8381-\
e4dad322d6aa"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.713614597279655*^9, 3.713614621309206*^9}, 
   3.715905889726767*^9, 3.7194000239643383`*^9, 
   3.7215880408152637`*^9},ExpressionUUID->"8310129c-906e-4d4b-b5ac-\
373e689fedb3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "12", "]"}], "[", "2", "]"}], "=", 
   RowBox[{"Activate", "@", 
    RowBox[{"TensorContract", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
       RowBox[{"gCABdEab", ",", "FgFlatCartesian"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"3", ",", "6"}], "}"}], "}"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713601638674897*^9, 3.713601760911796*^9}, {
  3.713603092293824*^9, 3.713603100355308*^9}, {3.7136105877240334`*^9, 
  3.7136105940423393`*^9}, {3.713610712849041*^9, 3.7136107309193897`*^9}, {
  3.7136114075163918`*^9, 3.7136114076879168`*^9}, {3.713611450257861*^9, 
  3.713611450384132*^9}, {3.713614394523737*^9, 3.7136144003853807`*^9}, {
  3.713614430538144*^9, 
  3.71361444445021*^9}},ExpressionUUID->"50606694-44ce-4869-a490-\
661f4faed816"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCESolution", "[", "12", "]"}], "[", "2", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"gFlatCartesianCE", "[", "12", "]"}], "[", "2", "]"}], 
         "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Variables", "[", 
       RowBox[{"Normal", "[", "gCABdEab", "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], "//", "First"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713603111820747*^9, 3.713603127530439*^9}, {
  3.713603339422243*^9, 3.713603344118085*^9}, {3.713610599707665*^9, 
  3.713610603138278*^9}, {3.713614203793415*^9, 
  3.713614204526867*^9}},ExpressionUUID->"88bdb8a4-4414-440f-9d1c-\
b9e6aee663cc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gCABdEabStep", "[", "12", "]"}], "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"Normal", "[", "gCABdEab", "]"}], "/.", 
    RowBox[{
     RowBox[{"gFlatCartesianCESolution", "[", "12", "]"}], "[", "2", 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"gCABdEabStep", "[", "12", "]"}], "[", "2", "]"}], "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.713603378165967*^9, 3.7136033975969667`*^9}, {
  3.713603510051415*^9, 3.7136035222173977`*^9}, {3.713610834605057*^9, 
  3.7136108386352663`*^9}, {3.713611431337919*^9, 3.713611434522031*^9}, {
  3.71361421101457*^9, 
  3.713614254821751*^9}},ExpressionUUID->"cb95a60a-0faa-44b3-a1cf-\
8357f502feb0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.713614237016182*^9, 3.7136142551450443`*^9}, {
   3.713614384032461*^9, 3.713614406899317*^9}, 3.7136146096437607`*^9, 
   3.715905890239389*^9, 3.719400024452116*^9, 
   3.721588041384704*^9},ExpressionUUID->"f7e3387c-00c3-49ac-9952-\
a363013fa354"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C16", "3"], 
  TraditionalForm]],ExpressionUUID->"99582ec9-ef7f-4645-8243-257968858b97"]], \
"Subsubsection",
 CellChangeTimes->{{3.7124058410168552`*^9, 3.7124058435005827`*^9}, {
  3.713523758406974*^9, 3.713523762057852*^9}, {3.7136014284953117`*^9, 
  3.71360142931787*^9}},ExpressionUUID->"6e6f047f-0729-4d82-8514-\
fe103069e4c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCE", "[", "16", "]"}], "[", "3", "]"}], "=", 
   RowBox[{
    RowBox[{"12", "*", 
     RowBox[{"Activate", "@", 
      RowBox[{"TensorContract", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Inactive", "[", "TensorProduct", "]"}], "[", 
         RowBox[{"gCABCD", ",", "PgFlatCartesian", ",", "FgFlatCartesian"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "9"}], "}"}]}], "}"}]}], "]"}]}]}], "+", 
    RowBox[{
     RowBox[{"gCABdEabStep", "[", "12", "]"}], "[", "2", "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.713344049343729*^9, 3.71334410982707*^9}, {
   3.713500835078731*^9, 3.713500849244203*^9}, 3.713522862246311*^9, {
   3.713522923852027*^9, 3.713522924527156*^9}, {3.7136014577979107`*^9, 
   3.713601468935562*^9}, {3.713601510837576*^9, 3.713601529731513*^9}, {
   3.7136015655481663`*^9, 3.713601575951556*^9}, {3.7136036542853813`*^9, 
   3.7136036585413733`*^9}, {3.71361084340364*^9, 3.713610870114698*^9}, {
   3.713610903617112*^9, 3.7136109410485773`*^9}, 3.713611074524938*^9, {
   3.713611328125329*^9, 
   3.713611369619719*^9}},ExpressionUUID->"7cdb9004-313a-4850-9855-\
da5d757c4f33"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gFlatCartesianCESolution", "[", "16", "]"}], "[", "3", "]"}], 
   "=", 
   RowBox[{
    RowBox[{"Solve", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Thread", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{"gFlatCartesianCE", "[", "16", "]"}], "[", "3", "]"}], 
         "]"}], "\[Equal]", "0"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Variables", "[", 
         RowBox[{"Normal", "[", "gCABCD", "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Variables", "[", 
         RowBox[{
          RowBox[{"gCABdEabStep", "[", "12", "]"}], "[", "2", "]"}], "]"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
    "First"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713523497348152*^9, 3.71352351694571*^9}, {
   3.713603696172628*^9, 3.713603737379509*^9}, {3.713610945568819*^9, 
   3.713610959663198*^9}, {3.7136110799187517`*^9, 3.713611085316392*^9}, 
   3.713611351847815*^9},ExpressionUUID->"61c61624-5cc9-4e03-9a00-\
3fd897fb9836"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Normal", "[", "gCABCD", "]"}], "/.", 
     RowBox[{
      RowBox[{"gFlatCartesianCESolution", "[", "16", "]"}], "[", "3", "]"}]}],
     "]"}], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"#1", "\[Equal]", "0"}], ")"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.713523938964673*^9, 3.713523979091785*^9}, {
  3.7136064391382103`*^9, 3.713606442321344*^9}, {3.713610984464917*^9, 
  3.713611045558997*^9}},ExpressionUUID->"e6fac654-a1ba-41bb-ad65-\
b634bc0c1920"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.713611020735311*^9, 3.713611046056734*^9}, {
   3.713611358434214*^9, 3.713611367817996*^9}, {3.713611446104362*^9, 
   3.713611464220942*^9}, 3.713614220135716*^9, 3.713614270769374*^9, 
   3.71940002467411*^9, 
   3.7215880415761633`*^9},ExpressionUUID->"e26350f5-34dd-4700-a996-\
41ac7f48933d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{121, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, \
2017)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Section"]]}, Visible -> False, FrontEndVersion -> 
  "11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, 2017)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 387, 9, 70, "Input", "ExpressionUUID" -> \
"3d24967c-1779-4b5b-af4f-c2d273167356",
 InitializationCell->True],
Cell[948, 31, 1669, 44, 112, "Input", "ExpressionUUID" -> \
"89627050-0bd7-46c6-a658-29ffd095d0bf",
 InitializationCell->True],
Cell[2620, 77, 205, 2, 30, "Text", "ExpressionUUID" -> \
"7e45232e-93d8-4f50-a27c-d8c7846349ae"],
Cell[CellGroupData[{
Cell[2850, 83, 213, 6, 92, "Title", "ExpressionUUID" -> \
"c6f65a9e-41a4-4494-8b12-73168aa0d861"],
Cell[CellGroupData[{
Cell[3088, 93, 434, 8, 64, "Section", "ExpressionUUID" -> \
"9547c2a4-3d79-4f9e-b8a8-8f52e3dac7e1",
 InitializationGroup->True],
Cell[3525, 103, 841, 15, 49, "Text", "ExpressionUUID" -> \
"1524ab1a-f634-480b-8100-3a812054c741",
 InitializationGroup->True],
Cell[4369, 120, 292, 7, 32, "Input", "ExpressionUUID" -> \
"be77f611-74c8-49ba-8777-8668983448a6",
 InitializationGroup->True],
Cell[4664, 129, 2974, 80, 180, "Input", "ExpressionUUID" -> \
"e932b660-5faa-4b31-9a82-e294170af2f5",
 InitializationGroup->True],
Cell[7641, 211, 8154, 224, 642, "Input", "ExpressionUUID" -> \
"7d1b67c8-b731-4e8f-b032-057b299d468a",
 InitializationGroup->True],
Cell[15798, 437, 462, 13, 32, "Text", "ExpressionUUID" -> \
"8175ab6d-a94a-4bd7-86e1-a5644f25db1f",
 InitializationGroup->True],
Cell[16263, 452, 5289, 126, 281, "Input", "ExpressionUUID" -> \
"b597441b-c161-444a-bce6-d169216db6ed",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[21577, 582, 3103, 62, 75, "Input", "ExpressionUUID" -> \
"5e058e1d-a121-4ec8-95f0-1d646c03d369",
 InitializationGroup->True],
Cell[24683, 646, 3036, 73, 70, "Output", "ExpressionUUID" -> \
"d3cd0f98-7522-4ef5-b959-5f168799e93d",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[27756, 724, 1522, 40, 96, "Input", "ExpressionUUID" -> \
"a8dcf3f8-6c69-482e-96a0-de2cc2b32fa6",
 InitializationGroup->True],
Cell[29281, 766, 2588, 61, 70, "Output", "ExpressionUUID" -> \
"fedd2042-82a6-4ab4-a81e-950d374a82c1",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[31906, 832, 3027, 79, 138, "Input", "ExpressionUUID" -> \
"5e894399-4253-446b-b910-dc451ff583ca",
 InitializationGroup->True],
Cell[34936, 913, 4656, 127, 70, "Output", "ExpressionUUID" -> \
"496b429b-1a2a-4722-94d3-dccc24993966",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[39629, 1045, 3077, 79, 159, "Input", "ExpressionUUID" -> \
"c903264d-6717-487e-aae4-414c5da02fcd",
 InitializationGroup->True],
Cell[42709, 1126, 3829, 103, 70, "Output", "ExpressionUUID" -> \
"eb618a7f-b3ec-48b4-8cdf-ac1144883c5e",
 InitializationGroup->True]
}, Open  ]],
Cell[46553, 1232, 275, 7, 30, "Text", "ExpressionUUID" -> \
"4505f843-6a13-47de-bfb6-c2adc06915dc",
 InitializationGroup->True],
Cell[46831, 1241, 5661, 146, 327, "Input", "ExpressionUUID" -> \
"8e43664b-0a67-45fa-ac2a-cbd19837f4c3",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[52517, 1391, 1027, 25, 75, "Input", "ExpressionUUID" -> \
"92c6d10c-6db9-47a8-9e3a-95e04ba1640d",
 InitializationGroup->True],
Cell[53547, 1418, 1920, 43, 70, "Output", "ExpressionUUID" -> \
"7084e364-c94c-4059-b053-e9d533dbf205",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[55504, 1466, 977, 24, 75, "Input", "ExpressionUUID" -> \
"7e94acb7-72ce-48de-8291-7c9487ce8c7a",
 InitializationGroup->True],
Cell[56484, 1492, 2693, 67, 70, "Output", "ExpressionUUID" -> \
"ab506e98-3ba3-46ad-af34-feec5a1274b5",
 InitializationGroup->True]
}, Open  ]],
Cell[59192, 1562, 390, 8, 30, "Text", "ExpressionUUID" -> \
"88f9a319-85e9-4c48-bbaa-dec64d305420",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[59607, 1574, 2383, 52, 180, "Input", "ExpressionUUID" -> \
"e2a2ac97-bd39-4c8d-a25e-fdf07b0b1bb9",
 InitializationGroup->True],
Cell[61993, 1628, 2293, 57, 70, "Output", "ExpressionUUID" -> \
"10365c35-4bfd-4e10-874d-1a55138b78e0",
 InitializationGroup->True],
Cell[64289, 1687, 1884, 45, 70, "Output", "ExpressionUUID" -> \
"6f26d468-3a7d-4e45-9b00-4e841a0d5a64",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[66210, 1737, 4998, 119, 285, "Input", "ExpressionUUID" -> \
"52b3a998-06f2-4507-ac61-a6c1398d6e58",
 InitializationGroup->True],
Cell[71211, 1858, 2986, 70, 70, "Output", "ExpressionUUID" -> \
"9069075e-b128-4941-847a-7292fffcb10b",
 InitializationGroup->True],
Cell[74200, 1930, 2594, 58, 70, "Output", "ExpressionUUID" -> \
"30e10ed8-738a-49aa-9ed1-6919beddc221",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[76831, 1993, 250, 5, 35, "Subsubsection", "ExpressionUUID" -> \
"8967aae5-fae3-4012-9c05-2efb686c0777",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[77106, 2002, 836, 22, 56, "Input", "ExpressionUUID" -> \
"dcd061ee-961f-41a3-9c98-f9e164101f13",
 InitializationGroup->True],
Cell[77945, 2026, 2970, 76, 70, "Output", "ExpressionUUID" -> \
"5eea1ab2-56ff-4d59-85f3-d4cf8499fea9",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[80952, 2107, 879, 23, 56, "Input", "ExpressionUUID" -> \
"31162c45-423a-4256-85ad-8f7563b9af00",
 InitializationGroup->True],
Cell[81834, 2132, 3510, 87, 70, "Output", "ExpressionUUID" -> \
"e0c69ed0-212e-49d8-b5b3-f2227636fb65",
 InitializationGroup->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[85381, 2224, 1097, 28, 56, "Input", "ExpressionUUID" -> \
"786e76bb-d314-413e-9b90-35990be978df",
 InitializationGroup->True],
Cell[86481, 2254, 5036, 145, 70, "Output", "ExpressionUUID" -> \
"c8f320dc-460e-48e2-8053-32e66a728878",
 InitializationGroup->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91566, 2405, 258, 5, 44, "Subsection", "ExpressionUUID" -> \
"e2edd598-724a-4840-a804-e0e697a5d307",
 InitializationGroup->True],
Cell[91827, 2412, 2612, 70, 138, "Input", "ExpressionUUID" -> \
"be246c5e-7d45-4e7f-82a5-a26fdfbe7d10",
 InitializationGroup->True],
Cell[94442, 2484, 3539, 92, 180, "Input", "ExpressionUUID" -> \
"e9679341-5ddd-496b-936a-966cd33092f9",
 InitializationGroup->True],
Cell[97984, 2578, 2852, 72, 180, "Input", "ExpressionUUID" -> \
"8a1ae028-3715-4ee8-8a73-6b23ff3da0aa",
 InitializationGroup->True],
Cell[100839, 2652, 11424, 259, 579, "Input", "ExpressionUUID" -> \
"d2f4033f-3240-456b-985e-df4a99a3f650",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[112288, 2915, 289, 6, 32, "Input", "ExpressionUUID" -> \
"ba7e7696-9b58-44cd-b464-d761f4779ebc",
 InitializationGroup->True],
Cell[112580, 2923, 2430, 55, 70, "Output", "ExpressionUUID" -> \
"91e795f9-ecb6-45b6-b7c4-c0f459f613b6",
 InitializationGroup->True]
}, Open  ]],
Cell[115025, 2981, 648, 19, 32, "Input", "ExpressionUUID" -> \
"18496a5c-91dd-44d8-bf01-3f346ed69fd0",
 InitializationGroup->True],
Cell[CellGroupData[{
Cell[115698, 3004, 713, 19, 54, "Input", "ExpressionUUID" -> \
"5036c3e9-4299-4fa9-968e-a6300d9ef6c8",
 InitializationGroup->True],
Cell[116414, 3025, 2245, 49, 70, "Output", "ExpressionUUID" -> \
"4e8e40ef-d90f-4555-b4d5-b52f91398c7c",
 InitializationGroup->True]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[118720, 3081, 215, 4, 50, "Section", "ExpressionUUID" -> \
"d58285d1-c1f2-400b-95dd-fd5738093bd9"],
Cell[CellGroupData[{
Cell[118960, 3089, 362, 10, 46, "Subsection", "ExpressionUUID" -> \
"872b0306-a3e2-4ecd-953a-d5d94c3c709c"],
Cell[CellGroupData[{
Cell[119347, 3103, 166, 3, 35, "Subsubsection", "ExpressionUUID" -> \
"03b71c7c-40e6-424b-9b5f-2aac210e6bdd"],
Cell[119516, 3108, 1454, 25, 54, "Input", "ExpressionUUID" -> \
"cc16b1db-646b-4d90-84c1-b70400342b13"],
Cell[120973, 3135, 1048, 27, 96, "Input", "ExpressionUUID" -> \
"ffd93345-a64f-4d8d-9bbb-577b9d8548a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122058, 3167, 153, 3, 35, "Subsubsection", "ExpressionUUID" -> \
"8c16d470-d6a5-4cfe-ac23-fdcc197a4421"],
Cell[122214, 3172, 341, 7, 30, "Text", "ExpressionUUID" -> \
"1733d2de-96f1-4d2c-9096-c930ce60d24d"],
Cell[122558, 3181, 1048, 22, 32, "Input", "ExpressionUUID" -> \
"68358ea0-9859-476e-9ac1-2e119bce39ec"],
Cell[CellGroupData[{
Cell[123631, 3207, 554, 14, 32, "Input", "ExpressionUUID" -> \
"c08f0d7c-0a72-4fb9-9523-607e6ed6ebd6"],
Cell[124188, 3223, 2065, 56, 116, "Output", "ExpressionUUID" -> \
"5225fa8d-3831-4c4a-84db-ce371f2451f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126290, 3284, 954, 22, 117, "Input", "ExpressionUUID" -> \
"d41af95c-471e-4f9d-888b-08ade6d3a0be"],
Cell[127247, 3308, 1358, 32, 51, "Output", "ExpressionUUID" -> \
"c10ef78c-ad72-45ee-8572-745c1717a0bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128642, 3345, 1595, 35, 96, "Input", "ExpressionUUID" -> \
"cf64c72c-421f-49a4-aa8b-c3e29f4719d2"],
Cell[130240, 3382, 1545, 25, 32, "Output", "ExpressionUUID" -> \
"2aa4422f-86ff-4969-a315-fec364e8e30c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131846, 3414, 334, 10, 45, "Subsection", "ExpressionUUID" -> \
"0fea76ca-4ed3-41b1-aa05-375af0793097"],
Cell[132183, 3426, 1661, 49, 138, "Input", "ExpressionUUID" -> \
"b416d72d-1342-45fb-a0c8-763971959c17"],
Cell[CellGroupData[{
Cell[133869, 3479, 266, 6, 34, "Subsubsection", "ExpressionUUID" -> \
"bd9cc916-2994-474a-86af-3e6746658d7f"],
Cell[134138, 3487, 1081, 28, 54, "Input", "ExpressionUUID" -> \
"3adf262e-77a8-433a-a167-d748f0bc9598"],
Cell[CellGroupData[{
Cell[135244, 3519, 464, 11, 32, "Input", "ExpressionUUID" -> \
"a92ccd2c-e276-4939-8199-8e9df7f80b4d"],
Cell[135711, 3532, 2928, 83, 70, "Output", "ExpressionUUID" -> \
"d8656c77-4e7c-42ef-80f2-36ddbd72b98a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138676, 3620, 1304, 29, 243, "Input", "ExpressionUUID" -> \
"ffb9c3a4-20df-447d-bca9-fb99fc9b8100"],
Cell[139983, 3651, 786, 15, 70, "Message", "ExpressionUUID" -> \
"5451736c-7590-47b4-bdf1-444cc9c2638c"],
Cell[140772, 3668, 629, 11, 70, "Output", "ExpressionUUID" -> \
"25d04fc6-32b9-4c13-b8a1-2e5c50b422c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141438, 3684, 270, 7, 32, "Input", "ExpressionUUID" -> \
"cae5f2ee-df02-4263-924c-aba7a48e2964"],
Cell[141711, 3693, 2654, 71, 70, "Output", "ExpressionUUID" -> \
"6504a8cf-5ee7-4165-88cb-598ebb2127b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144402, 3769, 730, 18, 32, "Input", "ExpressionUUID" -> \
"c47567d7-9f64-4322-9621-82a6e4f4a34d"],
Cell[145135, 3789, 1024, 22, 70, "Output", "ExpressionUUID" -> \
"840f7a5a-e5b9-4d6b-9bba-be91237422b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146196, 3816, 687, 14, 32, "Input", "ExpressionUUID" -> \
"d7f3effb-aaf5-4fa3-89be-3332b23a0394"],
Cell[146886, 3832, 820, 15, 70, "Output", "ExpressionUUID" -> \
"9befdb93-3404-470c-b501-6c347602b938"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147743, 3852, 1999, 47, 117, "Input", "ExpressionUUID" -> \
"4d657d54-758d-4f66-bf70-545559666ae7"],
Cell[149745, 3901, 483, 14, 70, "Output", "ExpressionUUID" -> \
"5f6c0953-746b-4a7e-8f01-1e76875b166d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[150289, 3922, 350, 10, 37, "Subsection", "ExpressionUUID" -> \
"8249337d-193a-4481-b89e-2e2653d6c6a0"],
Cell[CellGroupData[{
Cell[150664, 3936, 311, 9, 35, "Subsubsection", "ExpressionUUID" -> \
"adba1258-462e-4c24-b450-f06b77564b41"],
Cell[150978, 3947, 2893, 63, 75, "Input", "ExpressionUUID" -> \
"6d031220-497d-476c-afa9-65e00d952d9d"],
Cell[153874, 4012, 2473, 68, 124, "Input", "ExpressionUUID" -> \
"0eb291d1-f3eb-4ca9-b133-d97423d79bf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156384, 4085, 518, 15, 35, "Subsubsection", "ExpressionUUID" -> \
"94bd9488-20d4-4fec-800c-833ebe34e224"],
Cell[156905, 4102, 388, 11, 32, "Text", "ExpressionUUID" -> \
"b3e9d920-51d8-40fe-90aa-9e1e47e1f599"],
Cell[157296, 4115, 1405, 36, 32, "Input", "ExpressionUUID" -> \
"2a6040cf-c321-4821-9ae0-28ccfa49b5bd"],
Cell[CellGroupData[{
Cell[158726, 4155, 569, 16, 32, "Input", "ExpressionUUID" -> \
"4da90889-91d4-43ef-bdc1-c10fa42eaa61"],
Cell[159298, 4173, 12260, 333, 180, "Output", "ExpressionUUID" -> \
"3bd95e15-932b-46e2-a78c-846d81a0e1fd"]
}, Open  ]],
Cell[171573, 4509, 710, 21, 32, "Input", "ExpressionUUID" -> \
"352af9f4-5c58-49e8-a4ac-0eb18e95efb4"],
Cell[172286, 4532, 753, 20, 32, "Input", "ExpressionUUID" -> \
"fbf61072-7f83-46f3-8ea7-0ad94528e4d7"],
Cell[CellGroupData[{
Cell[173064, 4556, 2421, 60, 306, "Input", "ExpressionUUID" -> \
"ed3e0a46-883a-4eba-8167-1a55a012b37a"],
Cell[175488, 4618, 542, 11, 24, "Message", "ExpressionUUID" -> \
"d087d35f-fd9f-4705-8d5d-310382bb8559"],
Cell[176033, 4631, 1722, 37, 132, "Output", "ExpressionUUID" -> \
"5c483883-1aa9-474f-9d0e-a982a402a9d9"],
Cell[177758, 4670, 494, 9, 32, "Output", "ExpressionUUID" -> \
"68a26fa6-4d37-4817-9d37-5df3a63845fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178289, 4684, 1902, 42, 96, "Input", "ExpressionUUID" -> \
"e976a1ad-a8a6-47cc-b052-3e4c88556842"],
Cell[180194, 4728, 2149, 44, 48, "Output", "ExpressionUUID" -> \
"9bfd5088-f0fb-42a3-b15c-b0f50de1b80c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182380, 4777, 1762, 44, 96, "Input", "ExpressionUUID" -> \
"a8e7e4e9-416a-4475-a65d-68247137c308"],
Cell[184145, 4823, 1477, 30, 57, "Output", "ExpressionUUID" -> \
"296cabe5-312a-46a0-bc0d-ab8ed12406c0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[185683, 4860, 209, 4, 44, "Subsection", "ExpressionUUID" -> \
"e16d092c-714b-42cd-ac78-83700187a283"],
Cell[CellGroupData[{
Cell[185917, 4868, 1504, 36, 228, "Input", "ExpressionUUID" -> \
"1f510397-de4f-4d63-ad11-959aa761feb8"],
Cell[187424, 4906, 1393, 31, 57, "Output", "ExpressionUUID" -> \
"34ba222c-02fc-40a6-a948-e98669270727"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[188866, 4943, 204, 3, 44, "Subsection", "ExpressionUUID" -> \
"7253c3a4-97fb-4615-ac66-d12a0738d3af"],
Cell[CellGroupData[{
Cell[189095, 4950, 2590, 63, 234, "Input", "ExpressionUUID" -> \
"e8b70bcf-439a-461e-86f0-3a124f4b0380"],
Cell[191688, 5015, 2492, 63, 84, "Output", "ExpressionUUID" -> \
"2b6d88a0-4ecb-406f-a341-623a00f7d71c"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[194241, 5085, 221, 4, 50, "Section", "ExpressionUUID" -> \
"bda57d23-30d7-406f-8b9a-06599851fc3a"],
Cell[CellGroupData[{
Cell[194487, 5093, 309, 9, 45, "Subsection", "ExpressionUUID" -> \
"93e5f30f-3b1b-4082-af41-9f9a5bd7358e"],
Cell[CellGroupData[{
Cell[194821, 5106, 338, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"8bdd386f-ac6d-4b32-93a2-526c74ae2081"],
Cell[195162, 5116, 961, 30, 33, "Text", "ExpressionUUID" -> \
"8a07e8c3-933a-4d37-9e6b-f86ebc23195f"],
Cell[196126, 5148, 1180, 33, 32, "Input", "ExpressionUUID" -> \
"743fdb5c-b135-44b4-b019-3043288be800"],
Cell[197309, 5183, 663, 20, 32, "Input", "ExpressionUUID" -> \
"ff3c887c-b545-4771-b0f6-867d8add278a"],
Cell[197975, 5205, 656, 19, 32, "Input", "ExpressionUUID" -> \
"b932c31e-bd9b-4d78-8585-ccf2e3441d37"],
Cell[CellGroupData[{
Cell[198656, 5228, 2091, 56, 306, "Input", "ExpressionUUID" -> \
"a0d249c7-9eeb-4985-ac98-6d825b598185"],
Cell[200750, 5286, 308, 8, 24, "Message", "ExpressionUUID" -> \
"12d35e8a-2ead-44c6-94f3-e6bb35a1ea44"],
Cell[201061, 5296, 2972, 81, 150, "Output", "ExpressionUUID" -> \
"8d1ac7a4-4aa6-47f9-8a6f-84d467e7bf52"],
Cell[204036, 5379, 292, 8, 32, "Output", "ExpressionUUID" -> \
"c67edb8c-5567-4095-97e0-ba38da21c3e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204365, 5392, 1966, 42, 96, "Input", "ExpressionUUID" -> \
"aae454b2-ebdb-4eab-a1c9-36ffc0b775fa"],
Cell[206334, 5436, 2507, 54, 62, "Output", "ExpressionUUID" -> \
"6efcaea6-66a4-46fe-8894-345c2a2978a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208878, 5495, 1720, 45, 96, "Input", "ExpressionUUID" -> \
"4bf3fae5-859c-4f0a-88f7-24fd93c78d24"],
Cell[210601, 5542, 1549, 31, 57, "Output", "ExpressionUUID" -> \
"15a2f7ca-ee41-4f28-903f-a7d8c61a0663"]
}, Open  ]],
Cell[212165, 5576, 275, 6, 30, "Text", "ExpressionUUID" -> \
"349da6c0-45af-4369-8335-f42b0b97e3e0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[212489, 5588, 283, 8, 46, "Subsection", "ExpressionUUID" -> \
"2c904e39-c6ba-468e-9ff7-8d0660a1ad21"],
Cell[212775, 5598, 388, 11, 32, "Input", "ExpressionUUID" -> \
"7ae5c36e-399d-4e94-b228-e915b698f1c4"],
Cell[CellGroupData[{
Cell[213188, 5613, 290, 7, 34, "Subsubsection", "ExpressionUUID" -> \
"8463641d-58f5-42e2-9bfe-04ba9a211d22"],
Cell[213481, 5622, 545, 17, 34, "Text", "ExpressionUUID" -> \
"92463db0-3154-451e-a049-a217ddcf6d7c"],
Cell[214029, 5641, 5061, 124, 75, "Input", "ExpressionUUID" -> \
"02549bfa-81e0-4c18-9359-eb9fcd8caa10"],
Cell[219093, 5767, 1718, 36, 138, "Input", "ExpressionUUID" -> \
"3f4cdad9-7589-41fe-88ac-099dcceef177"],
Cell[CellGroupData[{
Cell[220836, 5807, 810, 17, 32, "Input", "ExpressionUUID" -> \
"bb8cc880-8294-4b76-9b22-6ad0155c0e6a"],
Cell[221649, 5826, 5541, 168, 270, "Output", "ExpressionUUID" -> \
"1caa152e-fa92-42c3-8d15-23f48d1b8cf6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[227239, 6000, 202, 4, 35, "Subsubsection", "ExpressionUUID" -> \
"cd7ef2d3-b25c-4a9f-ba3c-558d34be8cce"],
Cell[227444, 6006, 5403, 145, 96, "Input", "ExpressionUUID" -> \
"f1391ff9-aadf-4c34-b62c-e5eb12fe8d2b"],
Cell[232850, 6153, 1452, 34, 117, "Input", "ExpressionUUID" -> \
"e0916536-3bfe-4e56-a129-65258920785f"],
Cell[CellGroupData[{
Cell[234327, 6191, 534, 11, 32, "Input", "ExpressionUUID" -> \
"ed63bedd-76d7-4f98-a2f8-59b3dc445afc"],
Cell[234864, 6204, 3962, 117, 232, "Output", "ExpressionUUID" -> \
"7a050388-3c4e-4293-8782-579ba0dee53d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[238875, 6327, 164, 3, 35, "Subsubsection", "ExpressionUUID" -> \
"08c0a955-67f4-4ff4-8ff9-7389cc2c29d8"],
Cell[CellGroupData[{
Cell[239064, 6334, 4646, 98, 264, "Input", "ExpressionUUID" -> \
"8bbd3d12-5bdc-4c85-a057-1e235bf9d223"],
Cell[243713, 6434, 1056, 25, 64, "Output", "ExpressionUUID" -> \
"3c998100-fffe-4cc9-9f55-3a0835ef7430"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[244830, 6466, 243, 4, 44, "Subsection", "ExpressionUUID" -> \
"3d86a265-5403-4a4a-9ec4-057ca07a9d8b"],
Cell[CellGroupData[{
Cell[245098, 6474, 1709, 41, 104, "Input", "ExpressionUUID" -> \
"aed99efe-b168-4a1e-8354-6f98b75d56e3"],
Cell[246810, 6517, 970, 26, 57, "Output", "ExpressionUUID" -> \
"5a77e3ef-0cf2-411a-8c18-c63dfa6dfddb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247817, 6548, 909, 24, 56, "Input", "ExpressionUUID" -> \
"e23acdb9-1b39-4506-817b-dd8fe5c419f7"],
Cell[248729, 6574, 754, 23, 57, "Output", "ExpressionUUID" -> \
"66a10e00-4365-45e4-a010-54ff08fe7719"]
}, Open  ]],
Cell[249498, 6600, 401, 8, 30, "Text", "ExpressionUUID" -> \
"17a2677a-7040-43f4-8f2e-d5eb4108ece3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249936, 6613, 238, 4, 44, "Subsection", "ExpressionUUID" -> \
"7fca0254-7ca2-4cff-84ff-3d81ecd8158e"],
Cell[250177, 6619, 379, 11, 34, "Text", "ExpressionUUID" -> \
"39a707c0-fe45-4ac5-9135-1fe2eebe635b"],
Cell[CellGroupData[{
Cell[250581, 6634, 2606, 64, 192, "Input", "ExpressionUUID" -> \
"77a1f4a3-6488-40f3-ba56-b2bae5847cbf"],
Cell[253190, 6700, 2323, 67, 84, "Output", "ExpressionUUID" -> \
"8c25d8ee-80b2-4ef1-8d81-c614bcfa18ae"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[255574, 6774, 222, 4, 50, "Section", "ExpressionUUID" -> \
"5c95902a-839c-4daf-ab5e-e75f11bd6e51"],
Cell[CellGroupData[{
Cell[255821, 6782, 379, 9, 46, "Subsection", "ExpressionUUID" -> \
"6f6a708b-e44d-42c6-9fa0-d1ae9d16e875"],
Cell[256203, 6793, 601, 13, 54, "Input", "ExpressionUUID" -> \
"d1ed6f2e-0970-4e95-8083-cbda3eeb9c21"],
Cell[256807, 6808, 1043, 27, 96, "Input", "ExpressionUUID" -> \
"299be035-4885-4e24-b98d-0b3b119327ef"],
Cell[CellGroupData[{
Cell[257875, 6839, 201, 4, 35, "Subsubsection", "ExpressionUUID" -> \
"224e1530-ce62-4066-a0ab-9b0195aadefc"],
Cell[258079, 6845, 722, 19, 32, "Text", "ExpressionUUID" -> \
"202e4c80-924c-469d-b4ae-858670714195"],
Cell[258804, 6866, 1048, 22, 32, "Input", "ExpressionUUID" -> \
"799edf6f-b403-4c46-ac55-ff45b8759d4a"],
Cell[CellGroupData[{
Cell[259877, 6892, 477, 13, 32, "Input", "ExpressionUUID" -> \
"56265199-6f49-4e52-8ec1-c6382bc54cca"],
Cell[260357, 6907, 3911, 112, 122, "Output", "ExpressionUUID" -> \
"e6759779-b48c-49e0-947f-5680690a2534"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264305, 7024, 1230, 29, 117, "Input", "ExpressionUUID" -> \
"325242d5-8fa4-4351-a6de-7f44231efc71"],
Cell[265538, 7055, 3030, 75, 55, "Output", "ExpressionUUID" -> \
"6e59f01b-5fdd-410a-b7fd-6457a10fca08"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268605, 7135, 816, 18, 32, "Input", "ExpressionUUID" -> \
"d47ba5e4-15ab-45d3-8d12-2681b01b243d"],
Cell[269424, 7155, 2040, 48, 82, "Output", "ExpressionUUID" -> \
"46b8d172-d1c6-4f70-bf97-e959e6df862e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271501, 7208, 639, 14, 32, "Input", "ExpressionUUID" -> \
"fa60f7f8-32c6-4618-a914-23879237b5c4"],
Cell[272143, 7224, 986, 20, 32, "Output", "ExpressionUUID" -> \
"7a295af4-375a-4e7d-ad24-54f9b2b5b008"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[273190, 7251, 334, 10, 45, "Subsection", "ExpressionUUID" -> \
"5f4094d5-495b-438d-8ab3-83347235a342"],
Cell[273527, 7263, 3218, 71, 138, "Input", "ExpressionUUID" -> \
"67746b1d-8fec-4172-bd97-50c0d6926898"],
Cell[CellGroupData[{
Cell[276770, 7338, 298, 7, 34, "Subsubsection", "ExpressionUUID" -> \
"e983db8e-aede-475b-91a5-c617e903275b"],
Cell[277071, 7347, 1032, 27, 32, "Input", "ExpressionUUID" -> \
"edd5c34c-0c62-4c9e-9aa2-cac7e1183f6b"],
Cell[CellGroupData[{
Cell[278128, 7378, 1445, 33, 243, "Input", "ExpressionUUID" -> \
"5967563c-48ae-491e-8428-9d30650ff87f"],
Cell[279576, 7413, 763, 15, 24, "Message", "ExpressionUUID" -> \
"e278bd3f-8a00-4acc-b769-88082737fcf9"],
Cell[280342, 7430, 2661, 68, 53, "Output", "ExpressionUUID" -> \
"85851012-310a-4c29-be01-96f5894de694"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283040, 7503, 322, 9, 32, "Input", "ExpressionUUID" -> \
"334f90da-31e3-4cd9-93df-d324a0337006"],
Cell[283365, 7514, 712, 18, 51, "Output", "ExpressionUUID" -> \
"550bfce6-0ec1-486f-ba97-b94d3182b542"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284114, 7537, 323, 9, 32, "Input", "ExpressionUUID" -> \
"a6f64df9-0cc7-43cc-bb01-bb31c7963fc9"],
Cell[284440, 7548, 2508, 58, 53, "Output", "ExpressionUUID" -> \
"0e74712f-d3c8-4ca2-aa2f-02e3f0968af7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286985, 7611, 677, 17, 32, "Input", "ExpressionUUID" -> \
"a527c919-f82a-4eaf-9168-4ff43b0b92c1"],
Cell[287665, 7630, 1723, 44, 55, "Output", "ExpressionUUID" -> \
"8e163f2a-0def-4770-909f-4860d8d699d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289425, 7679, 857, 22, 54, "Input", "ExpressionUUID" -> \
"97dd88ba-8945-4026-bb36-61564ec98a26"],
Cell[290285, 7703, 1183, 25, 53, "Output", "ExpressionUUID" -> \
"41a151a1-ceb3-46f2-8f3e-0c19b3161c30"],
Cell[291471, 7730, 1157, 24, 53, "Output", "ExpressionUUID" -> \
"a408c00b-9c98-4821-a837-4f9e3c67bc3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292665, 7759, 2510, 62, 96, "Input", "ExpressionUUID" -> \
"8a8db9a8-78a7-42bc-96d4-a122097f218b"],
Cell[295178, 7823, 1775, 44, 56, "Output", "ExpressionUUID" -> \
"eec59019-fa5a-499d-a62b-febeaaff55bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[296990, 7872, 1231, 31, 96, "Input", "ExpressionUUID" -> \
"e03b4ff1-11f2-4153-bc5a-fdd6f73729a1"],
Cell[298224, 7905, 1330, 37, 56, "Output", "ExpressionUUID" -> \
"565b66f4-4dfe-4ec1-866c-d9c36062c2e2"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[299615, 7949, 351, 10, 45, "Subsection", "ExpressionUUID" -> \
"f73e0aeb-ca60-41e3-ab8a-76b9d6449830"],
Cell[299969, 7961, 2953, 64, 75, "Input", "ExpressionUUID" -> \
"271760d9-ccde-4fee-ad50-5c1466b98791"],
Cell[302925, 8027, 2648, 71, 124, "Input", "ExpressionUUID" -> \
"a1a41f6f-3a52-42bb-81d1-4883b3905c8f"],
Cell[CellGroupData[{
Cell[305598, 8102, 485, 14, 35, "Subsubsection", "ExpressionUUID" -> \
"35f2988e-7bd3-4fa8-8da5-0a5e7d0bd0ba"],
Cell[306086, 8118, 388, 11, 32, "Text", "ExpressionUUID" -> \
"5e306339-759a-41c9-90ba-35c0754600c8"],
Cell[306477, 8131, 1560, 39, 32, "Input", "ExpressionUUID" -> \
"b60b0df7-1a8d-448d-9a34-819e097aee57"],
Cell[CellGroupData[{
Cell[308062, 8174, 857, 23, 32, "Input", "ExpressionUUID" -> \
"a885d518-e06b-4453-8bf9-39562e5ca51b"],
Cell[308922, 8199, 203, 4, 32, "Output", "ExpressionUUID" -> \
"f076e5d6-7805-4cfc-9f1f-d261ed9123bb"]
}, Open  ]],
Cell[309140, 8206, 806, 22, 32, "Input", "ExpressionUUID" -> \
"3b54f265-420d-4fe7-8125-41124d3b0c09"],
Cell[309949, 8230, 801, 21, 32, "Input", "ExpressionUUID" -> \
"68abc015-b2c6-4ec3-b1ab-710911dfb8c7"],
Cell[CellGroupData[{
Cell[310775, 8255, 2022, 48, 264, "Input", "ExpressionUUID" -> \
"268a30bc-ab17-4798-bd1a-7f873acb0c1f"],
Cell[312800, 8305, 550, 12, 24, "Message", "ExpressionUUID" -> \
"27cdcc92-b4a0-46cd-9809-88ede9e8e294"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313387, 8322, 1811, 44, 96, "Input", "ExpressionUUID" -> \
"b6c93d79-bf0d-4214-8398-ac4b6bca1491"],
Cell[315201, 8368, 5338, 139, 80, "Output", "ExpressionUUID" -> \
"8f0ae601-bdee-49ad-bb7d-ebde1f3b0a63"],
Cell[320542, 8509, 1622, 32, 35, "Output", "ExpressionUUID" -> \
"9e1a14c6-8a51-4aae-88ac-312c10a2d4a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[322201, 8546, 832, 21, 32, "Input", "ExpressionUUID" -> \
"b089e6a9-0b02-4158-addf-51f61d7a8511"],
Cell[323036, 8569, 1504, 31, 53, "Output", "ExpressionUUID" -> \
"ceaec088-beba-499e-9fc0-3e25c1a5f214"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324577, 8605, 3463, 78, 159, "Input", "ExpressionUUID" -> \
"8ef58784-f680-48be-88a6-84027f75e5ce"],
Cell[328043, 8685, 4247, 106, 59, "Output", "ExpressionUUID" -> \
"fd784478-2249-42c6-8748-48f7e7e2b0c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[332327, 8796, 2882, 79, 117, "Input", "ExpressionUUID" -> \
"206e7455-fd5e-481e-b484-532b800785a4"],
Cell[335212, 8877, 1912, 59, 57, "Output", "ExpressionUUID" -> \
"3aa8bb1b-fd0f-4821-be3d-1b94e62a7838"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[337173, 8942, 386, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"a571bafe-efd5-4376-8359-5668f53e49c2"],
Cell[337562, 8952, 454, 14, 32, "Text", "ExpressionUUID" -> \
"82c48e05-cce4-4687-a14a-b73e68888e7b"],
Cell[CellGroupData[{
Cell[338041, 8970, 1185, 30, 75, "Input", "ExpressionUUID" -> \
"6521d353-df56-4e1c-9bf9-618feb89b5bd",
 Evaluatable->False],
Cell[339229, 9002, 571, 9, 32, "Output", "ExpressionUUID" -> \
"096d95b2-b90b-492e-a4ad-01adee10a863"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339837, 9016, 1014, 27, 75, "Input", "ExpressionUUID" -> \
"c76aefa2-4464-4ea9-b4d3-51f7016d9ca5",
 Evaluatable->False],
Cell[340854, 9045, 415, 7, 32, "Output", "ExpressionUUID" -> \
"9880d865-1e2f-47d9-ac6a-fb66fd2dca84"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[341330, 9059, 365, 11, 45, "Subsection", "ExpressionUUID" -> \
"bb178372-c42a-48ee-a8de-ae11c861d825"],
Cell[341698, 9072, 1204, 31, 54, "Input", "ExpressionUUID" -> \
"e7bf5785-f4e2-4503-aa81-27bebd332e66"],
Cell[CellGroupData[{
Cell[342927, 9107, 342, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"b9dc7f8a-fb6d-4158-b4d5-5d47aea35a64"],
Cell[343272, 9117, 1025, 25, 32, "Input", "ExpressionUUID" -> \
"43039247-d9bf-4a38-b0b1-a45c158c83c1"],
Cell[344300, 9144, 1189, 28, 180, "Input", "ExpressionUUID" -> \
"f942b6c6-f15a-4967-ba0d-e0dd78854438"],
Cell[345492, 9174, 341, 10, 32, "Text", "ExpressionUUID" -> \
"0143c842-ba7d-4235-a025-6045685ef636"],
Cell[CellGroupData[{
Cell[345858, 9188, 531, 15, 32, "Input", "ExpressionUUID" -> \
"fd9e09d8-2ef5-416c-9df7-290422b49284"],
Cell[346392, 9205, 276, 5, 32, "Output", "ExpressionUUID" -> \
"0c86fc18-9ca9-4ee4-89bf-821e89c75622"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[346729, 9217, 304, 9, 45, "Subsection", "ExpressionUUID" -> \
"6d337cca-87b3-427c-859a-3bcb6d801025"],
Cell[347036, 9228, 1161, 30, 54, "Input", "ExpressionUUID" -> \
"364c6783-9fe4-4827-a9f7-215b67ce625b"],
Cell[CellGroupData[{
Cell[348222, 9262, 342, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"bf21acc8-0903-4e8b-b0ab-1bea192cfdab"],
Cell[348567, 9272, 827, 23, 32, "Input", "ExpressionUUID" -> \
"b30e4766-39ce-4251-9824-d726a7c2446e"],
Cell[CellGroupData[{
Cell[349419, 9299, 732, 20, 96, "Input", "ExpressionUUID" -> \
"cd7aab4c-94d5-40b1-aac0-7e0d73fa5439"],
Cell[350154, 9321, 429, 9, 24, "Message", "ExpressionUUID" -> \
"980a4b59-5e2e-412b-ab64-9591778056c0"]
}, Open  ]],
Cell[350598, 9333, 416, 12, 32, "Input", "ExpressionUUID" -> \
"95e60e44-462c-4a0f-9e7b-f5d0a009a381"]
}, Open  ]],
Cell[CellGroupData[{
Cell[351051, 9350, 321, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"cf417ece-9fb1-452c-a626-ab5c2c466304"],
Cell[351375, 9360, 1966, 49, 54, "Input", "ExpressionUUID" -> \
"94dbf5d5-e705-4888-8a48-b6649322787f"],
Cell[353344, 9411, 847, 22, 96, "Input", "ExpressionUUID" -> \
"593f5f16-8bc2-4c0a-a659-087a075d247e"],
Cell[CellGroupData[{
Cell[354216, 9437, 1223, 30, 117, "Input", "ExpressionUUID" -> \
"540723c3-3e8e-49fc-b34d-26ab3fd77d41"],
Cell[355442, 9469, 457, 10, 24, "Message", "ExpressionUUID" -> \
"3339ba3f-f645-4d76-ac9b-9149afa1cdb3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[355936, 9484, 1992, 46, 96, "Input", "ExpressionUUID" -> \
"dcdfa8ee-6276-4a86-994b-1c68eb7a51f9"],
Cell[357931, 9532, 1697, 45, 61, "Output", "ExpressionUUID" -> \
"68261a0d-f326-4bde-897e-1162a04bf432"],
Cell[359631, 9579, 1136, 25, 35, "Output", "ExpressionUUID" -> \
"233e588b-c718-4df2-8457-5e7e95f932a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[360804, 9609, 1060, 21, 32, "Input", "ExpressionUUID" -> \
"63147229-5410-4a3f-8159-ed7441ab54b7"],
Cell[361867, 9632, 1491, 35, 53, "Output", "ExpressionUUID" -> \
"0a0f8a49-048e-4d44-8579-99b26ee48edf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[363395, 9672, 2220, 51, 117, "Input", "ExpressionUUID" -> \
"d0ff5501-63fd-4cd1-9381-41be59b3a22c"],
Cell[365618, 9725, 1488, 40, 61, "Output", "ExpressionUUID" -> \
"d161032d-c7db-4969-a4c6-6bae575cd4ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[367143, 9770, 1678, 39, 91, "Input", "ExpressionUUID" -> \
"543ce0c6-61a5-499f-a545-ebe75bf35ab3"],
Cell[368824, 9811, 987, 26, 57, "Output", "ExpressionUUID" -> \
"86ad5a6e-1edd-4336-b4c1-4720fa28ac43"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[369872, 9844, 351, 11, 45, "Subsection", "ExpressionUUID" -> \
"7b153c46-507e-403d-8ca1-7568cdf0c655"],
Cell[370226, 9857, 2135, 53, 75, "Input", "ExpressionUUID" -> \
"15e937d3-b39c-4987-a189-fe4ebe27a7ea"],
Cell[CellGroupData[{
Cell[372386, 9914, 321, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"53a4152a-9b8c-49cc-b8e4-634890413538"],
Cell[CellGroupData[{
Cell[372732, 9926, 944, 25, 32, "Input", "ExpressionUUID" -> \
"bbc4e929-8f52-4203-8381-e4dad322d6aa"],
Cell[373679, 9953, 232, 4, 32, "Output", "ExpressionUUID" -> \
"8310129c-906e-4d4b-b5ac-373e689fedb3"]
}, Open  ]],
Cell[373926, 9960, 933, 21, 32, "Input", "ExpressionUUID" -> \
"50606694-44ce-4869-a490-661f4faed816"],
Cell[374862, 9983, 882, 22, 96, "Input", "ExpressionUUID" -> \
"88bdb8a4-4414-440f-9d1c-b9e6aee663cc"],
Cell[CellGroupData[{
Cell[375769, 10009, 892, 23, 54, "Input", "ExpressionUUID" -> \
"cb95a60a-0faa-44b3-a1cf-8357f502feb0"],
Cell[376664, 10034, 304, 5, 32, "Output", "ExpressionUUID" -> \
"f7e3387c-00c3-49ac-9952-a363013fa354"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[377017, 10045, 389, 8, 34, "Subsubsection", "ExpressionUUID" -> \
"6e6f047f-0729-4d82-8514-fe103069e4c1"],
Cell[377409, 10055, 1351, 32, 32, "Input", "ExpressionUUID" -> \
"7cdb9004-313a-4850-9855-da5d757c4f33"],
Cell[378763, 10089, 1183, 29, 159, "Input", "ExpressionUUID" -> \
"61c61624-5cc9-4e03-9a00-3fd897fb9836"],
Cell[CellGroupData[{
Cell[379971, 10122, 578, 15, 32, "Input", "ExpressionUUID" -> \
"e6fac654-a1ba-41bb-ad65-b634bc0c1920"],
Cell[380552, 10139, 351, 6, 32, "Output", "ExpressionUUID" -> \
"e26350f5-34dd-4700-a996-41ac7f48933d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)