Notebook[{ Cell[CellGroupData[{ Cell["Electric/magnetic Weyl tensors and the 3+1 decomposition", \ "Title",ExpressionUUID->"4c6be4ae-47d9-476a-b8a1-580413da633d"], Cell[TextData[{ "Author: \[Copyright] Leo C. Stein (", ButtonBox["leo.stein@gmail.com)", BaseStyle->"Hyperlink", ButtonData->{ URL["mailto:leo.stein@gmail.com"], None}, ButtonNote->"mailto:leo.stein@gmail.com"], "\nDate: 2015 Sept. 21, updated Oct. 29, updated 2016 Sept. 21, updated 2017 \ Jan. 8;\n 2018 March 26 for inclusion into the ", ButtonBox["xAct-contrib/examples", BaseStyle->"Hyperlink", ButtonData->{ URL["https://github.com/xAct-contrib/examples"], None}, ButtonNote->"https://github.com/xAct-contrib/examples"], " repository" }], "Subtitle",ExpressionUUID->"922b8250-6ee7-4409-8057-090ff8374491"], Cell[TextData[{ "The purpose of this notebook is to find expressions for the electric and \ magnetic parts of Weyl (specific to dim=3+1) in terms of 3+1 variables. This \ notebook also demonstrates some of the n+1 decomposition functions.\nSee a \ writeup/explanation of some of these calculations at ", ButtonBox["this companion web site", BaseStyle->"Hyperlink", ButtonData->{ URL["https://duetosymmetry.com/notes/notes-on-the-E-B-and-3+1-decomp-of-\ Riem/"], None}, ButtonNote-> "https://duetosymmetry.com/notes/notes-on-the-E-B-and-3+1-decomp-of-Riem/"], "." }], "Subtitle",ExpressionUUID->"b0a226ea-050e-4952-bddb-0c5c52237522"], Cell[CellGroupData[{ Cell["0. Setup", \ "Subsection",ExpressionUUID->"48dff6bd-9bc7-444f-ae55-c9795020edd1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"050120d5-bd92-4d54-8c0f-826f859ca51e"], Cell[CellGroupData[{ Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"89537b80-5d46-44ad-b58a-590c17fedab0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Package xAct`xPerm` version \"\>", "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}], SequenceForm["Package xAct`xPerm` version ", "1.2.3", ", ", {2015, 8, 23}], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"481e6980-6272-4466-a791-2ae47f8b888b"], Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"153bd57a-0932-48e9-bb54-e39a7d43d802"], Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"2aa64f40-eac4-4249-8cad-56c76cd5f110"], Cell[BoxData["\<\"Connection established.\"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"ad14fe87-9696-41f0-a6f8-0d5dd7735e75"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"a4e1064c-ea25-4b5f-875d-faeaf2b6f149"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Package xAct`xTensor` version \"\>", "\[InvisibleSpace]", "\<\"1.1.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}], SequenceForm[ "Package xAct`xTensor` version ", "1.1.3", ", ", {2018, 2, 28}], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"a7deb0d3-d88a-496a-a363-3cad63e1aa1a"], Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"0b2eded2-c073-45d5-9e02-ad4f65ae7ee7"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"47891841-8155-46ca-9b8f-558d6468570c"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ redistribute it under certain conditions. See the General Public License for \ details.\"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"9f85581c-b281-4c66-a910-9f32cb228142"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"0842774f-d45b-41f9-9f04-80016427bd70"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"$PrePrint", "=", "ScreenDollarIndices"}], ";"}]], "Input", CellLabel->"In[2]:=",ExpressionUUID->"394eb6f3-74c9-4d2c-bcff-5092779abc08"], Cell[BoxData[ RowBox[{ RowBox[{"$DefInfoQ", "=", "False"}], ";"}]], "Input", CellLabel->"In[3]:=",ExpressionUUID->"d4af71ad-847d-42d8-98ef-efcd117f7f69"], Cell[BoxData[ RowBox[{"DefManifold", "[", RowBox[{"M", ",", "4", ",", RowBox[{"Complement", "[", RowBox[{ RowBox[{"IndexRange", "[", RowBox[{"a", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"g", ",", "h", ",", "n"}], "}"}]}], "]"}]}], "]"}]], "Input", CellLabel->"In[4]:=",ExpressionUUID->"92cd9ebf-0590-485b-b3e4-14bc1d4e8eda"], Cell[BoxData[ RowBox[{"DefMetric", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"g", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], ",", "CD"}], "]"}]], "Input", CellLabel->"In[5]:=",ExpressionUUID->"ac351d02-505d-431f-93ff-c655d86e9de4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "RiemannCD", "]"}], "^=", "\"\<\!\(\*SuperscriptBox[\(\), \((4)\)]\)\[NegativeThinSpace]R\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "RicciCD", "]"}], "^=", "\"\<\!\(\*SuperscriptBox[\(\), \((4)\)]\)\[NegativeThinSpace]R\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "RicciScalarCD", "]"}], "^=", "\"\<\!\(\*SuperscriptBox[\(\), \((4)\)]\)\[NegativeThinSpace]R\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "WeylCD", "]"}], "^=", "\"\<\!\(\*SuperscriptBox[\(\), \((4)\)]\)\[NegativeThinSpace]C\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "epsilong", "]"}], "^=", "\"\<\[Epsilon]\>\""}], ";"}]}], "Input", CellLabel->"In[6]:=",ExpressionUUID->"c5d5e5f9-8008-4b09-b925-cd6e6f72fa6c"], Cell["Minimal definitions for 3+1 splitting:", \ "Text",ExpressionUUID->"6d0ea7c5-941d-47c2-bcee-3b0cbed1a200"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"DefTensor", "[", RowBox[{ RowBox[{"n", "[", "a", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"n", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"n", "[", "a", "]"}], RowBox[{"n", "[", RowBox[{"-", "a"}], "]"}]}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"n", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], RowBox[{"n", "[", "a", "]"}], RowBox[{"n", "[", "b", "]"}]}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}]}], "]"}]}], "Input", CellLabel->"In[11]:=",ExpressionUUID->"9658128b-d592-421d-a534-01acd70699b7"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "n", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1}], " have been declared as UpValues for ", $CellContext`n, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[11]:=",ExpressionUUID->"452d1349-844c-4bcf-84a4-b69cb9bd9972"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "n", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2}], " have been declared as UpValues for ", $CellContext`n, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[11]:=",ExpressionUUID->"3f4885f8-324d-4b3d-a73d-4c416a9e3be9"] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"$ExtrinsicKSign", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$AccelerationSign", "=", RowBox[{"-", "1"}]}], ";"}]}], "Input", CellLabel->"In[14]:=",ExpressionUUID->"aaeec8ad-876c-4e8a-b445-83423791cb00"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefMetric", "[", RowBox[{"1", ",", RowBox[{"h", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], ",", "cd", ",", RowBox[{"SymbolOfCovD", "->", RowBox[{"{", RowBox[{"\"\<|\>\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"InducedFrom", "\[Rule]", RowBox[{"{", RowBox[{"g", ",", "n"}], "}"}]}]}], "]"}]], "Input", CellLabel->"In[16]:=",ExpressionUUID->"2304afb6-b1aa-4826-9874-9816ace81ca3"], Cell[BoxData[ TemplateBox[{ "DefMetric","old", "\"There are already metrics \\!\\(\\*RowBox[{\\\"{\\\", \\\"g\\\", \ \\\"}\\\"}]\\) in vbundle \\!\\(\\*InterpretationBox[StyleBox[\\\"\ \[DoubleStruckCapitalT]M\\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, \ False]], TangentM, Rule[Editable, False]]\\).\"",2,16,1,29888571839078236420, "Local","xAct`xTensor`DefMetric"}, "MessageTemplate2"]], "Message", "MSG", CellLabel-> "During evaluation of \ In[16]:=",ExpressionUUID->"ae95661d-0087-4fc0-a813-bf71653203be"] }, Open ]], Cell["Our convention:", \ "Text",ExpressionUUID->"6dab4c8a-83cf-4d2c-aac0-7ccc7455e9ba"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"g", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"%", "//", "MetricToProjector"}]}], "Input", CellLabel->"In[17]:=",ExpressionUUID->"b20041f9-f0e6-4459-857a-fc6f5e4188e0"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"g", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`g[-$CellContext`a, -$CellContext`b], Editable->False]], "Output", CellLabel->"Out[17]=",ExpressionUUID->"7f665076-94ca-4196-9ab4-7b87c0503553"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False]}]}]], "Output", CellLabel-> "Out[18]=",ExpressionUUID->"b0d1eed7-1b9f-4a4e-90be-346dce921705"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "epsilonh", "]"}], "^=", "\"\<\[Epsilon]\>\""}], ";"}]], "Input", CellLabel->"In[19]:=",ExpressionUUID->"ded75f9f-9eb3-4700-bb3f-0adc2e8c9b54"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PrintAs", "[", "ExtrinsicKh", "]"}], "^=", "\"\\""}], ";"}]], "Input", CellLabel->"In[20]:=",ExpressionUUID->"83f53edf-a386-4a62-ae4c-bd9e114c8992"], Cell["\<\ We don\[CloseCurlyQuote]t actually need a lapse function in this notebook, \ but some 3+1 functions give you the acceleration, which some people prefer in \ terms of a lapse\ \>", "Text",ExpressionUUID->"e1235562-06b5-4298-b824-e5f23f4a4b33"], Cell[BoxData[ RowBox[{"DefTensor", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "]"}], ",", "M"}], "]"}]], "Input", CellLabel->"In[21]:=",ExpressionUUID->"b5363d56-938a-45c0-ac42-5505a08fffb5"], Cell[BoxData[ RowBox[{ RowBox[{"LapseRule", "=", RowBox[{"{", RowBox[{ RowBox[{"Accelerationn", "[", "a_", "]"}], ":>", RowBox[{ RowBox[{ RowBox[{"cd", "[", "a", "]"}], "[", RowBox[{"\[Alpha]", "[", "]"}], "]"}], "/", RowBox[{"\[Alpha]", "[", "]"}]}]}], "}"}]}], ";"}]], "Input", CellLabel->"In[22]:=",ExpressionUUID->"1507213f-3935-4d06-b1a7-ecc7f55d25fd"], Cell[CellGroupData[{ Cell["0.1 Decomposition of 4-epsilon", \ "Subsubsection",ExpressionUUID->"141fdd19-9c8b-49ec-9ca1-431278ac6efe"], Cell["\<\ Here is the relation between the 4-epsilon and the 3-epsilon. Convention \ (agrees with Alfonso):\ \>", "Text",ExpressionUUID->"0d742e2b-b9a4-4be9-97c8-ebd44c674ed4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ThreeEpsToFourEpsRule", "=", RowBox[{"{", RowBox[{ RowBox[{"epsilonh", "[", RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], "\[RuleDelayed]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "d", "}"}], ",", RowBox[{ RowBox[{"n", "[", "d", "]"}], RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "d"}], ",", "a", ",", "b", ",", "c"}], "]"}]}]}], "]"}]}], "}"}]}]], "Input", CellLabel->"In[23]:=",ExpressionUUID->"7ef9a34d-0965-461c-947a-801e06b816d0"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ { UnderscriptBox["a", "_"], UnderscriptBox["b", "_"], UnderscriptBox["c", "_"]}, {" ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]], Pattern[$CellContext`c, Blank[]]], Editable->False], "\[RuleDelayed]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "d", "}"}], ",", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"d"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", "a", "b", "c"}, {"d", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`d, $CellContext`a, $CellContext`b, \ $CellContext`c], Editable->False]}]}], "]"}]}], "}"}]], "Output", CellLabel-> "Out[23]=",ExpressionUUID->"386fe57e-191b-453f-8843-d637239e9d91"] }, Open ]], Cell["More work needed for the other way around:", \ "Text",ExpressionUUID->"755c50a0-a16c-4ed7-894a-7f1fca1bf7a8"], Cell[BoxData[ RowBox[{ RowBox[{"nDotThreeEpsRule", "=", RowBox[{"MakeRule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"n", "[", "d", "]"}], RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "d"}], ",", "a", ",", "b", ",", "c"}], "]"}]}], ",", RowBox[{"epsilonh", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}], ",", RowBox[{"MetricOn", "\[Rule]", "All"}], ",", RowBox[{"ContractMetrics", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[24]:=",ExpressionUUID->"48c26e27-40dd-412e-9368-658517c3c34f"], Cell[BoxData[ RowBox[{ RowBox[{"FourEpsToThreeEpsRule", "=", RowBox[{"{", RowBox[{ RowBox[{"epsilong", "[", RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "4"}], RowBox[{"Antisymmetrize", "[", RowBox[{ RowBox[{ RowBox[{"n", "[", "a", "]"}], RowBox[{"epsilonh", "[", RowBox[{"b", ",", "c", ",", "d"}], "]"}]}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}]}]}], "}"}]}], ";"}]], "Input", CellLabel->"In[25]:=",ExpressionUUID->"3d036d51-42cd-4606-8f90-c910073d771f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"%", "/.", "FourEpsToThreeEpsRule"}], "//", "ToCanonical"}]}], "Input", CellLabel->"In[26]:=",ExpressionUUID->"f020deb2-9340-4a38-8627-61aa1cc8994e"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False]], "Output", CellLabel->"Out[26]=",ExpressionUUID->"4b1549a9-ad99-49b3-838a-38c3f8b4307b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`b, -$CellContext`c, -$CellContext`d], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`c, -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}]}]], "Output", CellLabel-> "Out[27]=",ExpressionUUID->"caa894b8-1555-447b-9a5e-0f94e06c81c9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "[", "d", "]"}], RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "d"}], ",", "a", ",", "b", ",", "c"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"%", "/.", "FourEpsToThreeEpsRule"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{"%%", "/.", "nDotThreeEpsRule"}]}], "Input", CellLabel->"In[28]:=",ExpressionUUID->"d9711f7d-357b-4bce-ae6e-38338c4afd41"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", "a", "b", "c"}, {"d", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`d, $CellContext`a, $CellContext`b, \ $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"d"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`d], Editable->False]}]], "Output", CellLabel->"Out[28]=",ExpressionUUID->"95892f1e-d7f6-45c7-8855-0ee84286ab29"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {"a", "b", "c"}, {" ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[$CellContext`a, $CellContext`b, $CellContext`c], Editable->False]], "Output", CellLabel->"Out[29]=",ExpressionUUID->"083a1d13-ac62-451b-9f6a-cc668acc8be0"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {"a", "b", "c"}, {" ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[$CellContext`a, $CellContext`b, $CellContext`c], Editable->False]], "Output", CellLabel-> "Out[30]=",ExpressionUUID->"e35cebce-1963-44d2-abf7-48777e36df7f"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["1. E, B decomposition of Weyl", \ "Subsection",ExpressionUUID->"e5cdd96c-a44a-4820-942f-733c6daf83a3"], Cell["\<\ We need two spatial tensors, both symmetric and tracefree (w.r.t. either the \ 4-metric or 3-metric)\ \>", "Text",ExpressionUUID->"7fed5bd7-e376-4cc9-9f78-bd7d78973cab"], Cell[BoxData[{ RowBox[{"DefTensor", "[", RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], ",", "M", ",", RowBox[{"Symmetric", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "}"}], "]"}], ",", RowBox[{"OrthogonalTo", "\[Rule]", RowBox[{"{", RowBox[{"n", "[", "a", "]"}], "}"}]}], ",", RowBox[{"ProjectedWith", "\[Rule]", RowBox[{"{", RowBox[{"h", "[", RowBox[{"a", ",", RowBox[{"-", "c"}]}], "]"}], "}"}]}], ",", RowBox[{"PrintAs", "\[Rule]", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"DefTensor", "[", RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], ",", "M", ",", RowBox[{"Symmetric", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "}"}], "]"}], ",", RowBox[{"OrthogonalTo", "\[Rule]", RowBox[{"{", RowBox[{"n", "[", "a", "]"}], "}"}]}], ",", RowBox[{"ProjectedWith", "\[Rule]", RowBox[{"{", RowBox[{"h", "[", RowBox[{"a", ",", RowBox[{"-", "c"}]}], "]"}], "}"}]}], ",", RowBox[{"PrintAs", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", CellLabel->"In[31]:=",ExpressionUUID->"ea35f690-6314-4e1b-b5ca-43323608c099"], Cell["Tracefree rules:", \ "Text",ExpressionUUID->"0c747112-0799-4ae9-adb9-9a2d78f5162f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"AutomaticRules", "[", RowBox[{"EE", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], RowBox[{"h", "[", RowBox[{"a", ",", "b"}], "]"}]}], ",", "0"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"EE", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], ",", "0"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"EE", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{"EE", "[", RowBox[{"a", ",", RowBox[{"-", "a"}]}], "]"}], ",", "0"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"BB", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], RowBox[{"h", "[", RowBox[{"a", ",", "b"}], "]"}]}], ",", "0"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"BB", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], RowBox[{"g", "[", RowBox[{"a", ",", "b"}], "]"}]}], ",", "0"}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutomaticRules", "[", RowBox[{"BB", ",", RowBox[{"MakeRule", "[", RowBox[{"{", RowBox[{ RowBox[{"BB", "[", RowBox[{"a", ",", RowBox[{"-", "a"}]}], "]"}], ",", "0"}], "}"}], "]"}]}], "]"}]}], "Input", CellLabel->"In[33]:=",ExpressionUUID->"97c10008-69ff-443f-b787-ddb6cc414aad"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "EE", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2, 3, 4}], " have been declared as UpValues for ", $CellContext`EE, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"54e10b35-2590-426c-9087-57fa62c69088"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "EE", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2, 3, 4}], " have been declared as UpValues for ", $CellContext`EE, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"3027fc3b-2fb7-4138-a792-b8a16dcdb3f6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as DownValues for \"\>", "\[InvisibleSpace]", "EE", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2}], " have been declared as DownValues for ", $CellContext`EE, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"5504cd57-5d85-44d5-8c3b-3318e0714ef3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "BB", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2, 3, 4}], " have been declared as UpValues for ", $CellContext`BB, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"f12c2f66-d32a-40ad-8e52-37cded114e4c"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>", "\[InvisibleSpace]", "BB", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2, 3, 4}], " have been declared as UpValues for ", $CellContext`BB, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"b6ca0c6d-c6a5-4aac-b23b-98450304ec9a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[InvisibleSpace]", "\<\" have been declared as DownValues for \"\>", "\[InvisibleSpace]", "BB", "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[" Rules ", Shallow[{1, 2}], " have been declared as DownValues for ", $CellContext`BB, "."], Editable->False]], "Print", CellLabel-> "During evaluation of \ In[33]:=",ExpressionUUID->"6e390fd1-446d-4de4-bf9b-3e1eb8508718"] }, Open ]] }, Open ]], Cell["\<\ Here is the key conversion from Weyl to E/B in terms of the 3+1 split.\ \>", "Text",ExpressionUUID->"1a788986-2b01-4788-9e30-1b45a341f26b"], Cell[BoxData[ RowBox[{ RowBox[{"WeylToEBRule", "=", RowBox[{"{", RowBox[{ RowBox[{"WeylCD", "[", RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":>", RowBox[{"2", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Antisymmetrize", "[", RowBox[{ RowBox[{"Antisymmetrize", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"4", RowBox[{"n", "[", "a", "]"}], RowBox[{"EE", "[", RowBox[{"b", ",", "d"}], "]"}], RowBox[{"n", "[", "c", "]"}]}], "+", RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "c"}], "]"}], RowBox[{"EE", "[", RowBox[{"d", ",", "b"}], "]"}]}], "-", RowBox[{ RowBox[{"g", "[", RowBox[{"b", ",", "c"}], "]"}], RowBox[{"EE", "[", RowBox[{"d", ",", "a"}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"epsilong", "[", RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "]"}], RowBox[{"n", "[", RowBox[{"-", "e"}], "]"}], RowBox[{"n", "[", "c", "]"}], RowBox[{"BB", "[", RowBox[{"d", ",", RowBox[{"-", "f"}]}], "]"}]}], "-", RowBox[{ RowBox[{"epsilong", "[", RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "]"}], RowBox[{"n", "[", RowBox[{"-", "e"}], "]"}], RowBox[{"n", "[", "a", "]"}], RowBox[{"BB", "[", RowBox[{"b", ",", RowBox[{"-", "f"}]}], "]"}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "]"}]}], "]"}]}]}], "}"}]}], ";"}]], "Input", CellLabel->"In[39]:=",ExpressionUUID->"a9f3647e-a982-4eed-ac3a-cb1390404559"], Cell["This agrees with Alfonso\[CloseCurlyQuote]s calculation:", \ "Text",ExpressionUUID->"3b59dfce-717f-4756-82de-bfd3e8e7de5e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "/.", "FourEpsToThreeEpsRule"}], "//", "ToCanonical"}], ";"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"%", "//", "MetricToProjector"}], "//", "ToCanonical"}], ",", RowBox[{"{", RowBox[{"EE", "[", "__", "]"}], "}"}]}], "]"}]}], "Input", CellLabel->"In[40]:=",ExpressionUUID->"c8070fec-c237-4c23-8e3f-5f7b04d59941"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False]], "Output", CellLabel->"Out[40]=",ExpressionUUID->"6b1ee8b8-8afa-4231-b4a1-8879b3ac58ab"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, $CellContext`e], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"c", "d", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`c, -$CellContext`d, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"c", "d", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`c, -$CellContext`d, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`d, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`d], Editable->False], " ", RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`c], Editable->False], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`d], Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"c", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`c, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`d], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`c], Editable->False], " ", RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, -$CellContext`d], Editable->False], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}]}], ")"}]}]}]], "Output", CellLabel-> "Out[42]=",ExpressionUUID->"fe229d71-ed65-497c-aca6-c7727a0d67f6"] }, Open ]], Cell[TextData[{ "Another way to write this even more compactly is using a projector ", Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"a", "c"}, {"b", "d"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False, Magnification->0.6 Inherited]], "Output",ExpressionUUID-> "fdcc2ead-ad91-41bd-a7d9-63b95543a685"], " onto the symmetries of Riemann,\n ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "abcd"], "=", RowBox[{"4", StyleBox[ TagBox[GridBox[{ {"a", "c"}, {"b", "d"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False, Magnification->0.6 Inherited], " ", RowBox[{ StyleBox["(", FontSize->18], RowBox[{ RowBox[{ SubscriptBox["E", "ac"], "(", RowBox[{ SubscriptBox["h", "bd"], "+", RowBox[{ SubscriptBox["n", "b"], SubscriptBox["n", "d"]}]}], ")"}], "+", RowBox[{ SubscriptBox["\[Epsilon]", "abe"], SubscriptBox["n", "d"], SuperscriptBox[ SubscriptBox["B", "c"], "e"]}]}], StyleBox[")", FontSize->18]}]}]}], TraditionalForm]],ExpressionUUID-> "bb080d29-bec8-4840-8b3c-416360f0aed3"] }], "Text",ExpressionUUID->"96e2a328-d0f1-4f34-abeb-a2e71dc42297"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"4", RowBox[{"ImposeSymmetry", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "c"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"h", "[", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "d"}]}], "]"}], "+", RowBox[{ RowBox[{"n", "[", RowBox[{"-", "b"}], "]"}], RowBox[{"n", "[", RowBox[{"-", "d"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"epsilonh", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "e"}]}], "]"}], RowBox[{"n", "[", RowBox[{"-", "d"}], "]"}], RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "c"}], ",", "e"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "}"}], ",", RowBox[{"RiemannSymmetric", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "]"}]}], "//", "ToCanonical"}], ";"}], "\[IndentingNewLine]", RowBox[{"Collect", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"EE", "[", "__", "]"}], "}"}]}], "]"}]}], "Input", CellLabel->"In[43]:=",ExpressionUUID->"9ea14e2b-6327-4a69-b4a8-14afa0fc1e95"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, $CellContext`e], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"c", "d", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`c, -$CellContext`d, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"c", "d", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`c, -$CellContext`d, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`d, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`d], Editable->False], " ", RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`c], Editable->False], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`d], Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "e"}, {"c", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`c, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`d], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}]}], ")"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`c], Editable->False], " ", RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, -$CellContext`d], Editable->False], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}]}], ")"}]}]}]], "Output", CellLabel-> "Out[44]=",ExpressionUUID->"4a9c5968-8da7-4f02-afd9-cbf4a9c46bcc"] }, Open ]], Cell["\<\ Check that we have the correct properties for the above expression. First, \ symmetries:\ \>", "Text",ExpressionUUID->"32a7aa47-78c7-4af9-a5d4-67eea6d43d04"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "+", RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "a"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "/.", "WeylToEBRule"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "+", RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "d"}], ",", RowBox[{"-", "c"}]}], "]"}]}], "/.", "WeylToEBRule"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "-", RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}], ",", RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}]}], "/.", "WeylToEBRule"}], "//", "ToCanonical"}]}], "Input", CellLabel->"In[45]:=",ExpressionUUID->"45c9184e-0fb8-41b1-bccb-eb0dcf6e1a61"], Cell[BoxData["0"], "Output", CellLabel->"Out[45]=",ExpressionUUID->"cf730260-66ae-46b2-9d1e-8ef5a47e248e"], Cell[BoxData["0"], "Output", CellLabel->"Out[46]=",ExpressionUUID->"ce15db04-7fcd-45c4-9828-2c8de472bf65"], Cell[BoxData["0"], "Output", CellLabel-> "Out[47]=",ExpressionUUID->"fcf4bb2b-8ba6-4615-8d7f-dc5854096b49"] }, Open ]], Cell["\<\ Now tracefree (only need to check (a,c) because of above symmetries):\ \>", "Text",ExpressionUUID->"dcf8c9db-a35d-43b1-b9d5-5243c290da70"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], "/.", "WeylToEBRule"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"a", ",", "c"}], "]"}], "%"}], "//", "ContractMetric"}], "//", "ToCanonical"}]}], "Input", CellLabel->"In[48]:=",ExpressionUUID->"d0dcaf5e-409b-4ce3-8766-246b51a517e1"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"d", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`d, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"g", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`g[-$CellContext`a, -$CellContext`c], Editable->False]}], "-", RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"d", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`d, -$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"g", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`g[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{"4", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}], "-", RowBox[{"4", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"b", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"c", "d", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`c, -$CellContext`d, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"c", "d", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`c, -$CellContext`d, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"d", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`d, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"a", "b", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"d", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`d, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"b", "a", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`b, -$CellContext`a, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"c", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`c, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"g", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`g[-$CellContext`a, -$CellContext`d], Editable->False]}], "+", RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"c", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`c, -$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"g", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`g[-$CellContext`b, -$CellContext`d], Editable->False]}], "-", RowBox[{"4", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}], "+", RowBox[{"4", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"b", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"d", "c", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`d, -$CellContext`c, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"d", "c", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`d, -$CellContext`c, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"c", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`c, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"a", "b", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"c", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`c, -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"b", "a", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`b, -$CellContext`a, \ $CellContext`e, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {" "}, {"e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[-$CellContext`e], Editable->False]}]}], ")"}]}]}]], "Output", CellLabel->"Out[48]=",ExpressionUUID->"95323a17-08df-4bd0-95d1-b3a0a890dc20"], Cell[BoxData["0"], "Output", CellLabel-> "Out[49]=",ExpressionUUID->"b0e515f9-a896-42d8-83d0-912215ecfb64"] }, Open ]], Cell["Now show that normalization is correct:", \ "Text",ExpressionUUID->"86705d7c-2e17-4c6e-a8b3-7c339e7da2a8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"n", "[", "a", "]"}], RowBox[{"n", "[", "c", "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "/.", "WeylToEBRule"}], "//", "ToCanonical"}]], "Input", CellLabel->"In[50]:=",ExpressionUUID->"9a60e21d-bedb-4e5e-afd8-ec421e57293d"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`d], Editable->False]], "Output", CellLabel-> "Out[50]=",ExpressionUUID->"dd1216e6-4729-497d-aca8-9455fd5a2c77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"n", "[", "e", "]"}], RowBox[{"n", "[", "c", "]"}], FractionBox["1", "2"], RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "e"}], ",", RowBox[{"-", "f"}], ",", "a", ",", "b"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "/.", "WeylToEBRule"}], ")"}], "//", "ContractMetric"}], "//", "ToCanonical"}]], "Input", CellLabel->"In[51]:=",ExpressionUUID->"145d2ddb-0e1b-4d27-8b0c-9400598c300f"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"d", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`d, -$CellContext`f], Editable->False]], "Output", CellLabel-> "Out[51]=",ExpressionUUID->"855bb16a-6924-470f-8f23-670e1bfcac35"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2. Scalar curvature invariants, decomposed", \ "Subsection",ExpressionUUID->"93ce0c53-6a73-4cec-bb68-fd6d7992f8c7"], Cell[CellGroupData[{ Cell["2.1 Kretschmann in terms of E, B", \ "Subsubsection",ExpressionUUID->"fa1e6190-4e19-4990-90b6-7c896e3df8b3"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"RiemannCD", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], RowBox[{"RiemannCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"%", "//", "RiemannToWeyl"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{"%%%", "\[Equal]", "%"}]}], "Input", CellLabel->"In[52]:=",ExpressionUUID->"72247cae-dd68-499d-872b-9ba11373fa06"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False]}]], "Output", CellLabel->"Out[52]=",ExpressionUUID->"251b12cc-9ae6-47b4-8026-1337b97358f9"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[$CellContext`a, $CellContext`b], Editable->False]}], "-", FractionBox[ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False], "2"], "3"], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False]}]}]], "Output", CellLabel->"Out[53]=",ExpressionUUID->"f8fbfe4a-fabb-445d-9288-ba46ef5c7085"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"8", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[$CellContext`a, $CellContext`b], Editable->False]}], "-", FractionBox[ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False], "2"], "3"]}]], "Output", CellLabel->"Out[54]=",ExpressionUUID->"5b59140f-3bea-4da8-b77d-2480863353f9"], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"8", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"2", " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[$CellContext`a, $CellContext`b], Editable->False]}], "-", FractionBox[ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False], "2"], "3"]}]}]], "Output", CellLabel-> "Out[55]=",ExpressionUUID->"1d8f9761-c33b-4c21-8666-feeee817b599"] }, Open ]], Cell["Obviously, if we have 4Ricci=0, then this is just Weyl^2:", \ "Text",ExpressionUUID->"af24fc37-56a0-4460-b048-237c082c0a0f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{"%%", "\[Equal]", "%"}]}], "Input", CellLabel->"In[56]:=",ExpressionUUID->"b70c4848-eae7-4936-a8b6-98d560377567"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False]}]], "Output", CellLabel->"Out[56]=",ExpressionUUID->"183d5c01-4a1c-4a35-85b6-51aff7584892"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"8", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False]}]}]], "Output", CellLabel->"Out[57]=",ExpressionUUID->"832e019a-a882-4abc-b26a-0c3d1f4df809"], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False]}], "+", RowBox[{"8", " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False]}]}]}]], "Output", CellLabel-> "Out[58]=",ExpressionUUID->"91f21f34-f005-4ff7-bc8a-db98c8674a96"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2.2 Pontryagin in terms of E, B:", \ "Subsubsection",ExpressionUUID->"e44b0481-5ef4-4dc1-837d-72e7d80afb55"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}], FractionBox["1", "2"], RowBox[{"epsilong", "[", RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "e"}], ",", RowBox[{"-", "f"}], ",", "c", ",", "d"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{"%%", "\[Equal]", "%"}]}], "Input", CellLabel->"In[59]:=",ExpressionUUID->"e6ebb5c6-3d87-4d53-b701-25b03c98c181"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {"a", "b", "e", "f"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`e, \ $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", "c", "d"}, {"e", "f", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`e, -$CellContext`f, $CellContext`c, \ $CellContext`d], Editable->False]}]], "Output", CellLabel->"Out[59]=",ExpressionUUID->"48d623cb-c0bd-41da-804f-8754818b1354"], Cell[BoxData[ RowBox[{"16", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False]}]], "Output", CellLabel->"Out[60]=",ExpressionUUID->"ca084530-7e03-4e6d-8a4d-7e3d3d923f58"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {"a", "b", "e", "f"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`e, \ $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", "c", "d"}, {"e", "f", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`e, -$CellContext`f, $CellContext`c, \ $CellContext`d], Editable->False]}], "\[Equal]", RowBox[{"16", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False]}]}]], "Output", CellLabel-> "Out[61]=",ExpressionUUID->"a3d10bd4-3628-4fed-bee5-948b3f510a7a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2.3 J invariant (WARNING: slow!)", \ "Subsubsection",ExpressionUUID->"32e8f91c-5aa2-43eb-a922-2cfb6ecb29ce"], Cell["\<\ These expressions come from the notebook CurvatureScalarInvariants.nb. First \ the real part of the J invariant.\ \>", "Text",ExpressionUUID->"e035d17e-1826-4c54-861c-a9eea25fff6d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ FractionBox["1", "96"], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", "e", ",", "f"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", RowBox[{"-", "f"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Jreal", "=", RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}]}]}], "Input", CellLabel->"In[62]:=",ExpressionUUID->"d00824c8-15f9-459d-b23d-66a0c2878dc2"], Cell[BoxData[ RowBox[{ FractionBox["1", "96"], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"a", "b", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, $CellContext`e, \ $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"c", "d", "e", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`c, -$CellContext`d, -$CellContext`e, \ -$CellContext`f], Editable->False]}]], "Output", CellLabel->"Out[62]=",ExpressionUUID->"0c3ab3bd-5c51-47a1-9f07-955b29c83323"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "6"], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}]}]], "Output", CellLabel-> "Out[63]=",ExpressionUUID->"29a1dc84-7ea7-4ad3-849b-920a21729c4a"] }, Open ]], Cell["\<\ The imaginary part of J also has the dual Weyl tensor; because of the large \ number of indices, this contraction takes a long time (about 7 minutes on my \ laptop)\ \>", "Text",ExpressionUUID->"bc751fec-9389-4fab-9dbe-a30e339d3487"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ FractionBox["1", "192"], RowBox[{"epsilong", "[", RowBox[{ RowBox[{"-", "e"}], ",", RowBox[{"-", "f"}], ",", RowBox[{"-", "i"}], ",", RowBox[{"-", "j"}]}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", "e", ",", "f"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], RowBox[{"WeylCD", "[", RowBox[{ RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}], ",", "i", ",", "j"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Timing", "[", RowBox[{"Jimag", "=", RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}]}], "]"}]}], "Input", CellLabel->"In[64]:=",ExpressionUUID->"0b2047d5-c79b-41ce-8e9e-ce71f517147f"], Cell[BoxData[ RowBox[{ FractionBox["1", "192"], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"e", "f", "i", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`e, -$CellContext`f, -$CellContext`i, \ -$CellContext`j], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", "e", "f"}, {"a", "b", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, $CellContext`e, \ $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {"a", "b", "c", "d"}, {" ", " ", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[$CellContext`a, $CellContext`b, $CellContext`c, \ $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", " ", "i", "j"}, {"c", "d", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`c, -$CellContext`d, $CellContext`i, \ $CellContext`j], Editable->False]}]], "Output", CellLabel->"Out[64]=",ExpressionUUID->"fc96087d-b395-4e89-82d5-01b657ca7f68"], Cell[BoxData[ RowBox[{"{", RowBox[{"417.03664`", ",", RowBox[{ RowBox[{ FractionBox["1", "6"], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}]}]}], "}"}]], "Output", CellLabel-> "Out[65]=",ExpressionUUID->"10c2cc5d-e0aa-4094-b0bd-4a17f844f637"] }, Open ]], Cell[TextData[{ "Show that the J invariant can be written as\n ", Cell[BoxData[ FormBox[ RowBox[{"J", "=", RowBox[{ FractionBox[ RowBox[{"-", "1"}], "6"], RowBox[{"Tr", "[", SuperscriptBox["\[ScriptCapitalE]", "3"], "]"}]}]}], TraditionalForm]], ExpressionUUID->"f97623a3-b120-4aa2-9e6c-bed4e90bf561"], "\nwhere the complex \[ScriptCapitalE] tensor is\n \[ScriptCapitalE] = E + \ \[ImaginaryI] B." }], "Text",ExpressionUUID->"fe227a63-89a6-4c7a-82df-f9b23148a437"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Jreal", "+", RowBox[{"\[ImaginaryI]", " ", "Jimag"}]}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], RowBox[{"(", RowBox[{ RowBox[{"EE", "[", RowBox[{"a", ",", RowBox[{"-", "b"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"BB", "[", RowBox[{"a", ",", RowBox[{"-", "b"}]}], "]"}]}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"EE", "[", RowBox[{"b", ",", RowBox[{"-", "c"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"BB", "[", RowBox[{"b", ",", RowBox[{"-", "c"}]}], "]"}]}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"EE", "[", RowBox[{"c", ",", RowBox[{"-", "a"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"BB", "[", RowBox[{"c", ",", RowBox[{"-", "a"}]}], "]"}]}]}], ")"}]}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{"%", "\[Equal]", "%%"}]}], "Input", CellLabel->"In[66]:=",ExpressionUUID->"0266b0ae-10b2-4e6c-a9bf-6d56b39f1782"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "6"], " ", "\[ImaginaryI]", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "6"], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}]}]], "Output", CellLabel->"Out[66]=",ExpressionUUID->"589efbe9-93ec-4a2e-a80e-b9be3995a50a"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "6"], " ", "\[ImaginaryI]", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}], "-", RowBox[{ FractionBox["1", "6"], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {"a", "b"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[$CellContext`a, $CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`b, -$CellContext`c], Editable->False]}]}]], "Output", CellLabel->"Out[67]=",ExpressionUUID->"4844fb1b-a0d9-4ced-8927-2aa2a37cd368"], Cell[BoxData["True"], "Output", CellLabel-> "Out[68]=",ExpressionUUID->"ed75a109-6a8a-4a44-adac-9d7086cc7e1d"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3. E, B from the Gauss-Codazzi equations", \ "Subsection",ExpressionUUID->"6d087e4c-e545-4601-84fa-dca746fb2ad8"], Cell[CellGroupData[{ Cell["3.1 First, the E equation:", \ "Subsubsection",ExpressionUUID->"fec57a92-1f57-4623-bcc2-eec922cc2dd7"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ProjectWith", "[", "h", "]"}], "[", RowBox[{"RiemannCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "d"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GaussCodazzi", "[", RowBox[{"%", ",", "h"}], "]"}], "//", "ContractMetric"}], "\[IndentingNewLine]", RowBox[{"GivesEEEq", "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"g", "[", RowBox[{"c", ",", "d"}], "]"}], RowBox[{"(", RowBox[{"%", "\[Equal]", "%%"}], ")"}]}], "//", "ContractMetric"}], ")"}]}]}], "Input", CellLabel->"In[69]:=",ExpressionUUID->"cf4063da-5116-48b1-9630-01fb774cd99a"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "e"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "f"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "i"}, {"c", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`c, $CellContext`i], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "j"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`d, $CellContext`j], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"e", "i", "f", "j"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`e, -$CellContext`i, -$CellContext`f, \ -$CellContext`j], Editable->False]}]], "Output", CellLabel->"Out[69]=",ExpressionUUID->"bd72f6e4-4eae-41f9-a719-1e87bbfccc7f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"d", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`d, -$CellContext`a], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"d", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`d, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"d", "b", "c", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riemanncd[-$CellContext`d, -$CellContext`b, -$CellContext`c, \ -$CellContext`a], Editable->False]}]], "Output", CellLabel->"Out[70]=",ExpressionUUID->"4f4fe980-8fa5-433e-a3ea-41d02c9f5243"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`a], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " "}, {"b", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riccicd[-$CellContext`b, -$CellContext`a], Editable->False]}], "\[Equal]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {"f", "e"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[$CellContext`f, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"c", "e", "d", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`c, -$CellContext`e, -$CellContext`d, \ -$CellContext`f], Editable->False]}]}]], "Output", CellLabel-> "Out[71]=",ExpressionUUID->"ed19e6df-affc-4ad2-94b5-baba62367f47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"GivesEEEq", "//", "RiemannToWeyl"}], ")"}], "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], "==", RowBox[{"(", RowBox[{ RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], "/.", RowBox[{"IndexSolve", "[", RowBox[{"%", ",", RowBox[{"EE", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EFromKRRule", "=", RowBox[{"MakeRule", "[", RowBox[{"Evaluate", "[", RowBox[{"List", "@@", "%"}], "]"}], "]"}]}], ";"}]}], "Input", Background->RGBColor[1, 0.9, 0.8], CellLabel->"In[72]:=",ExpressionUUID->"79e79441-e11f-4557-8dcb-9af6db2856a2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riccicd[-$CellContext`a, -$CellContext`b], Editable->False]}], "\[Equal]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {"c", "d"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[$CellContext`c, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "-", RowBox[{ FractionBox["1", "3"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False]}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel->"Out[72]=",ExpressionUUID->"e3e76a0a-28df-4b5f-921a-0e920b5aaa42"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riccicd[-$CellContext`a, -$CellContext`b], Editable->False], "-", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "-", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {"c", "d"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[$CellContext`c, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "3"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False]}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel-> "Out[73]=",ExpressionUUID->"11538a81-792a-49d0-b0d2-b311f4f780e9"] }, Open ]], Cell["\<\ Above we see that we need not just K and the three-Ricci (Thricci!), but also \ the 4-Ricci and some of its 3-projections.\ \>", "Text",ExpressionUUID->"d11b40e6-ede9-40c4-a244-99033f40845f"], Cell["\<\ On the other hand, here\[CloseCurlyQuote]s what the \ \[OpenCurlyDoubleQuote]electric part of Riemann\[CloseCurlyDoubleQuote] looks \ like:\ \>", "Text",ExpressionUUID->"c13309e1-f547-43cd-8300-3f3fe36225f0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"h", "[", RowBox[{ RowBox[{"-", "a"}], ",", "e"}], "]"}], RowBox[{"h", "[", RowBox[{ RowBox[{"-", "b"}], ",", "f"}], "]"}], RowBox[{"n", "[", "c", "]"}], RowBox[{"n", "[", "d", "]"}], RowBox[{"RiemannCD", "[", RowBox[{ RowBox[{"-", "e"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "f"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"%", "//", "RiemannToWeyl"}], ")"}], "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"%", "/.", "EFromKRRule"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MapAt", "[", RowBox[{"ProjectorToMetric", ",", "%", ",", RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}], "]"}], "//", "ContractMetric"}]}], "Input", CellLabel->"In[75]:=",ExpressionUUID->"1fd17f5f-91a8-4e30-9328-2dadb4365ed4"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "e"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "f"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"d"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"e", "c", "f", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`e, -$CellContext`c, -$CellContext`f, \ -$CellContext`d], Editable->False]}]], "Output", CellLabel->"Out[75]=",ExpressionUUID->"d16ea5b1-4e3b-4279-b4e3-3cc1f56da503"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"E", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`EE[-$CellContext`a, -$CellContext`b], Editable->False], "-", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"d"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "6"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False]}]}]], "Output", CellLabel->"Out[76]=",ExpressionUUID->"38c404b1-b738-4dc8-8440-b4db40e2ce33"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riccicd[-$CellContext`a, -$CellContext`b], Editable->False], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "-", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {"c", "d"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[$CellContext`c, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"d"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciScalarCD[], Editable->False]}]}]], "Output", CellLabel->"Out[77]=",ExpressionUUID->"9c8a65c7-e407-4b5a-aa95-bdf563e1e9d2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`c], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[-$CellContext`a, -$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"K", StyleBox[GridBox[{ {"c", " "}, {" ", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`ExtrinsicKh[$CellContext`c, -$CellContext`c], Editable->False]}], "+", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{"R", "[", "D", "]"}], StyleBox[GridBox[{ {" ", " "}, {"a", "b"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Riccicd[-$CellContext`a, -$CellContext`b], Editable->False], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "c"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`a, $CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "d"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`d], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " "}, {"c", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`c, -$CellContext`d], Editable->False]}]}]], "Output", CellLabel-> "Out[78]=",ExpressionUUID->"6570d1fd-8821-4d96-b0c1-cbc3844d562e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3.2 Now the B equation.", \ "Subsubsection",ExpressionUUID->"a822e6a0-6fc6-4811-b7bb-4ac5fee7f19c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ProjectWith", "[", "h", "]"}], "[", RowBox[{ RowBox[{"n", "[", "a", "]"}], RowBox[{"RiemannCD", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GaussCodazzi", "[", RowBox[{"%", ",", "h"}], "]"}], "/.", RowBox[{"Projectorh", "\[Rule]", RowBox[{"ProjectWith", "[", "h", "]"}]}]}], "//", "ContractMetric"}], "\[IndentingNewLine]", RowBox[{"GivesBBEq", "=", RowBox[{ RowBox[{"epsilonh", "[", RowBox[{ RowBox[{"-", "a"}], ",", "b", ",", "c"}], "]"}], RowBox[{"ReplaceDummies", "[", RowBox[{"(", RowBox[{"%", "\[Equal]", "%%"}], ")"}], "]"}]}]}]}], "Input", CellLabel->"In[79]:=",ExpressionUUID->"926c9ea8-3dd3-46b5-b39f-c04dc36e8cb5"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "e"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`b, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "f"}, {"c", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`c, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "i"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`d, $CellContext`i], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"a"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`a], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "e", "f", "i"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`a, -$CellContext`e, -$CellContext`f, \ -$CellContext`i], Editable->False]}]], "Output", CellLabel->"Out[79]=",ExpressionUUID->"e514006d-1359-47f6-b6a5-e4dd08f67a7f"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{ SubscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[-$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`d]], Editable->False], "-", InterpretationBox[ StyleBox[ RowBox[{ SubscriptBox["D", "d"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[-$CellContext`d][ $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c]], Editable->False]}]], "Output", CellLabel->"Out[80]=",ExpressionUUID->"1f56bd41-6e66-4aba-955e-97cc99433410"], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", "b", "c"}, {"a", " ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, $CellContext`b, $CellContext`c], Editable->False], " ", RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{ SubscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[-$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`d]], Editable->False], "-", InterpretationBox[ StyleBox[ RowBox[{ SubscriptBox["D", "d"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", " "}, {"b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[-$CellContext`d][ $CellContext`ExtrinsicKh[-$CellContext`b, -$CellContext`c]], Editable->False]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {"e", "c", " "}, {" ", " ", "a"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[$CellContext`e, $CellContext`c, -$CellContext`a], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "f"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`d, $CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", " ", " ", " "}, {"b", "c", "e", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RiemannCD[-$CellContext`b, -$CellContext`c, -$CellContext`e, \ -$CellContext`f], Editable->False]}]}]], "Output", CellLabel-> "Out[81]=",ExpressionUUID->"9e216515-5f7d-46e6-9914-8ffd464c1194"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"GivesBBEq", "/.", "ThreeEpsToFourEpsRule"}], ")"}], "//", "RiemannToWeyl"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"%", "/.", "WeylToEBRule"}], "//", "ContractMetric"}], "//", "ToCanonical"}], "//", "ProjectorToMetric"}], "//", "ToCanonical"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "]"}], "==", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "]"}], "/.", RowBox[{"IndexSolve", "[", RowBox[{"%", ",", RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "]"}]}], "]"}]}], "//", "Expand"}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Symmetrize", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "}"}]}], "]"}], "//", "ToCanonical"}], ")"}], "/.", "nDotThreeEpsRule"}], "//", "Simplification"}]}], "Input", Background->RGBColor[1, 0.9, 0.8], CellLabel->"In[82]:=",ExpressionUUID->"13b17883-c639-4739-98aa-c7feccbe0cb6"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`e], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "e"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`e][ $CellContext`ExtrinsicKh[-$CellContext`d, $CellContext`c]], Editable->False], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "c", "e", "f"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`c, -$CellContext`e, \ -$CellContext`f], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "e"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`d, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", "f"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`b, $CellContext`f], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "c", "f", "i"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`c, -$CellContext`f, \ -$CellContext`i], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"h", StyleBox[GridBox[{ {" ", "e"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`h[-$CellContext`d, $CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "C"}], StyleBox[GridBox[{ {" ", "f", " ", "i"}, {"b", " ", "e", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`WeylCD[-$CellContext`b, $CellContext`f, -$CellContext`e, \ $CellContext`i], Editable->False]}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel->"Out[82]=",ExpressionUUID->"bd9a76bb-6aef-4904-8347-97ea598f21cf"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`e], Editable->False]}], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "e"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`e][ $CellContext`ExtrinsicKh[-$CellContext`d, $CellContext`c]], Editable->False], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`d], Editable->False]}], "+", RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "d", "c", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`d, -$CellContext`c, \ -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", "e"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`b, $CellContext`e], Editable->False]}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel->"Out[83]=",ExpressionUUID->"f7ef53b5-7cae-4d2b-ae31-aa7fe602e445"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`d], Editable->False], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "d", "c", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`d, -$CellContext`c, \ -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"c"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`c], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ { RowBox[{ SuperscriptBox["", RowBox[{"(", "4", ")"}]], "\[NegativeThinSpace]", "R"}], StyleBox[GridBox[{ {" ", "e"}, {"b", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`RicciCD[-$CellContext`b, $CellContext`e], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " ", " "}, {"a", "b", "c", "e"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilong[-$CellContext`a, -$CellContext`b, -$CellContext`c, \ -$CellContext`e], Editable->False], " ", InterpretationBox[ StyleBox[GridBox[{ {"n", StyleBox[GridBox[{ {"b"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`n[$CellContext`b], Editable->False], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "e"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "c"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`e][ $CellContext`ExtrinsicKh[-$CellContext`d, $CellContext`c]], Editable->False], ")"}]}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel->"Out[84]=",ExpressionUUID->"80e73392-4f99-4b04-8684-3c6f9e458eb0"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`d], Editable->False], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"d", "b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`d, -$CellContext`b, \ -$CellContext`c], Editable->False]}], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "b"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`b]], Editable->False], ")"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, \ -$CellContext`c], Editable->False], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "b"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`d, $CellContext`b]], Editable->False], ")"}]}]}], ")"}]}]}]], "Output", Background->RGBColor[1, 0.9, 0.8], CellLabel-> "Out[85]=",ExpressionUUID->"ba90b75c-19d2-422c-9e48-a3a0a49337c2"] }, Open ]], Cell[TextData[{ "Here we do not need the Thricci! The above expression can be written more \ simply in terms of symmetrizing on (ad):\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "ad"], "=", RowBox[{ RowBox[{"-", SubscriptBox["\[Epsilon]", RowBox[{"bc", "(", "a"}]]}], SuperscriptBox["D", "c"], SuperscriptBox[ SubscriptBox["K", RowBox[{"d", ")"}]], "b"]}]}], TraditionalForm]],ExpressionUUID-> "5a6aadd9-10be-48d8-b931-73878f119b32"] }], "Text",ExpressionUUID->"c64210b9-b9c2-4fd6-9b68-22aa839b2c7a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "]"}], "\[Equal]", RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"epsilonh", "[", RowBox[{ RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", RowBox[{"-", "a"}]}], "]"}]}], RowBox[{ RowBox[{"cd", "[", "c", "]"}], "@", RowBox[{"ExtrinsicKh", "[", RowBox[{ RowBox[{"-", "d"}], ",", "b"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "d"}]}], "}"}]}], "]"}]}], "//", "Simplification"}]], "Input", CellLabel->"In[86]:=",ExpressionUUID->"d9715f16-ab9f-4516-b058-5e1876ad33da"], Cell[BoxData[ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"B", StyleBox[GridBox[{ {" ", " "}, {"a", "d"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`BB[-$CellContext`a, -$CellContext`d], Editable->False], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"d", "b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`d, -$CellContext`b, \ -$CellContext`c], Editable->False]}], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "b"}, {"a", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`a, $CellContext`b]], Editable->False], ")"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"\[Epsilon]", StyleBox[GridBox[{ {" ", " ", " "}, {"a", "b", "c"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`epsilonh[-$CellContext`a, -$CellContext`b, \ -$CellContext`c], Editable->False], " ", RowBox[{"(", InterpretationBox[ StyleBox[ RowBox[{ SuperscriptBox["D", "c"], GridBox[{ {"K", StyleBox[GridBox[{ {" ", "b"}, {"d", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], ShowAutoStyles->False, AutoSpacing->False], $CellContext`cd[$CellContext`c][ $CellContext`ExtrinsicKh[-$CellContext`d, $CellContext`b]], Editable->False], ")"}]}]}], ")"}]}]}]], "Output", CellLabel-> "Out[86]=",ExpressionUUID->"541f2fc5-a060-47db-ac7c-e9605762574b"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1280, 774}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowStatusArea->None, PrivateNotebookOptions->{"FileOutlineCache"->False}, TrackCellChangeTimes->False, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ]