Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Schwarszschild metric and the Birkhoff theorem\n", FontSize->36], StyleBox["Uses CTensor framework of ", FontSize->16], "xCoba", StyleBox[" ", FontSize->16] }], "Subtitle"], Cell["\<\ Cyril Pitrou (pitrou@iap.fr) March 2018\ \>", "Subsubtitle"], Cell["\<\ Summary: A basic example to show how to use CTensor in the case of the \ Schwarszschild metric. We shod the Birkhoff theorem which states that stationary spherically \ symmetric space-time is necessary the Schwarszschild metric. \ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Load xAct", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "xAct`xCoba`"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print"], 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"], Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print"], Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print"], Cell[BoxData["\<\"Connection established.\"\>"], "Print"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print"], 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"], Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Package xAct`xCoba` version \"\>", "\[InvisibleSpace]", "\<\"0.8.4\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}], SequenceForm["Package xAct`xCoba` version ", "0.8.4", ", ", {2018, 2, 28}], Editable->False]], "Print"], Cell[BoxData["\<\"CopyRight (C) 2005-2018, David Yllanes and Jose M. \ Martin-Garcia, under the General Public License.\"\>"], "Print"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print"], 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"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"$CVSimplify", "=", "Simplify"}], ";"}], RowBox[{"(*", " ", RowBox[{"Why", " ", "is", " ", "it", " ", "so", " ", RowBox[{"useful", " ", "?"}]}], " ", "*)"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefManifold", "[", RowBox[{"M4", ",", "4", ",", RowBox[{"{", RowBox[{ "\[Alpha]", ",", "\[Beta]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Mu]", ",", "\[Nu]", ",", "\[Lambda]"}], "}"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M4", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefManifold, ": Defining ", "manifold ", $CellContext`M4, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM4", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefVBundle, ": Defining ", "vbundle ", $CellContext`TangentM4, ". ", ""], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"DefMetric", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"g", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}]}], "]"}], ",", "CD", ",", RowBox[{"PrintAs", "->", "\"\\""}]}], RowBox[{"(*", RowBox[{",", RowBox[{"FlatMetric", "\[Rule]", "True"}]}], "*)"}], "]"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"DefScalarFunction", "/@", RowBox[{"{", RowBox[{"\[Lambda]tt", ",", "\[Lambda]rr", ",", "A"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"DefConstantSymbol", "[", "M", "]"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "\[Lambda]tt", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefScalarFunction, ": Defining ", "scalar function ", $CellContext`\[Lambda]tt, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "\[Lambda]rr", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefScalarFunction, ": Defining ", "scalar function ", $CellContext`\[Lambda]rr, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "A", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefScalarFunction, ": Defining ", "scalar function ", $CellContext`A, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", "M", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", "constant symbol ", $CellContext`M, ". ", ""], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "DefBasis"}]], "Input"], Cell[BoxData[ StyleBox["\<\"DefBasis[basis, vbundle, {c1, ..., cn}] defines a basis of \ vector fields with name basis on the given vbundle. Its dual -basis is also \ implicitly defined. The list of cnumbers {c1, ..., cn} denotes the integers \ identifying the element of the basis, and hence must have length equal to the \ dimension of the vbundle.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info73731738696-7852094"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefChart", "[", RowBox[{"B", ",", "M4", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", RowBox[{"ChartColor", "\[Rule]", "Red"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "B", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`B, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"t", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`t[], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"r", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`r[], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"\[Theta]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`\[Theta][], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"\[Phi]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`\[Phi][], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "B", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`B, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", "iB", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "inverse mapping ", $CellContext`iB, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"diB", "[", RowBox[{ RowBox[{"-", "\[FormalA]"}], ",", "iB\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`diB[-\[FormalA], $CellContext`iB\[Alpha]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"dB", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", "B\[FormalA]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`dB[-$CellContext`\[Alpha], $CellContext`B\[FormalA]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "B", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`B, ". ", "Coordinated basis."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", RowBox[{"PDB", "[", RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", $CellContext`PDB[-$CellContext`\[Alpha]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", "\[InvisibleSpace]", RowBox[{"TorsionPDB", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", $CellContext`TorsionPDB[$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDB", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Christoffel tensor ", $CellContext`ChristoffelPDB[$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", "\[InvisibleSpace]", RowBox[{"RiemannPDB", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}], ",", "\[Mu]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", $CellContext`RiemannPDB[-$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda], $CellContext`\[Mu]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", "\[InvisibleSpace]", RowBox[{"RicciPDB", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", $CellContext`RicciPDB[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaUpB", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Lambda]", ",", "\[Lambda]1"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", $CellContext`etaUpB[$CellContext`\[Alpha], $CellContext`\[Beta], \ $CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaDownB", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}], ",", RowBox[{"-", "\[Lambda]1"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", $CellContext`etaDownB[-$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda], -$CellContext`\[Lambda]1], ". ", ""], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stationary and spherically symmetric metric", "Subsubsection"], Cell["\<\ We choose a spherically symmetric metric (the last 2x2 part of the metric), \ and stationary (does not depend on time)\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"g", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", RowBox[{"\[Lambda]tt", "[", RowBox[{"r", "[", "]"}], "]"}], "]"}]}], ",", RowBox[{"Exp", "[", RowBox[{"\[Lambda]rr", "[", RowBox[{"r", "[", "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"r", "[", "]"}], "^", "2"}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "]"}], "^", "2"}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}], "^", "2"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "B"}], ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"g", "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"g", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]]}]}]], Annotation[#, {1, 1} -> -E^$CellContext`\[Lambda]tt[ $CellContext`r[]], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]]}]], Annotation[#, {2, 2} -> E^$CellContext`\[Lambda]rr[ $CellContext`r[]], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]], Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}]}]], Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {" ", " "}, {"\[Mu]", "\[Nu]"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{-E^$CellContext`\[Lambda]tt[ $CellContext`r[]], 0, 0, 0}, {0, E^$CellContext`\[Lambda]rr[ $CellContext`r[]], 0, 0}, {0, 0, $CellContext`r[]^2, 0}, { 0, 0, 0, $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2}}, {-$CellContext`B, -$CellContext`B}, 0][-$CellContext`\[Mu], -$CellContext`\[Nu]], Editable->False]], "Output"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"MetricsOfVBundle", "::", "missing"}], "MessageName"], RowBox[{ ":", " "}], "\<\"There is no \ \[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"metric\\\\\\\"\\\"}]\\)\[NoBreak] in \ \[NoBreak]\\!\\(\\*InterpretationBox[StyleBox[\\\"\[DoubleStruckCapitalT]M4\\\ \", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], TangentM4, \ Rule[Editable, False]]\\)\[NoBreak].\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Throw", "::", "nocatch"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Uncaught \[NoBreak]\\!\\(\\*RowBox[{\\\"Throw\\\", \\\"[\\\ \", \\\"Null\\\", \\\"]\\\"}]\\)\[NoBreak] returned to top level. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Throw/nocatch\\\", \ ButtonNote -> \\\"Throw::nocatch\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{"Throw", "[", "Null", "]"}], "]"}]], "Output"] }, Open ]], Cell["We need a metric to raise indices", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SetCMetric"}]], "Input"], Cell[BoxData[ StyleBox["\<\"SetCMetric[met, ch] sets met, a CTensor[matrix, {-basis, \ -basis}] object, as metric for the vector bundle of the given basis. It is \ assumed to be a field on the coordinate chart ch. Some auxiliary objects, \ like metric derivatives and Christoffel values are precomputed. \ SetCMetric[met, tor, ch] adds the torsion tensor tor to the covariant \ derivative associated to the metric met. An option SignatureOfMetric -> {np, \ nn, nz} explicitly specifies the signature of the metric.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info123731738697-7852094"] }, Open ]], Cell["So we tell xCoba that g is the metric", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetCMetric", "[", RowBox[{"g", ",", "B", ",", RowBox[{"SignatureOfMetric", "->", RowBox[{"{", RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"g", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]]}]}]], Annotation[#, {1, 1} -> -E^(-$CellContext`\[Lambda]tt[ $CellContext`r[]]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]]}]], Annotation[#, {2, 2} -> E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox["1", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", FractionBox["1", SuperscriptBox[ InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]]}]], Annotation[#, {3, 3} -> $CellContext`r[]^(-2), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Csc", ShowAutoStyles->False, AutoSpacing->False], Csc, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", FractionBox[ SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> False], Csc, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"], SuperscriptBox[ InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]]}]], Annotation[#, {4, 4} -> Csc[ $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2), "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]", "\[Nu]"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{-E^(-$CellContext`\[Lambda]tt[ $CellContext`r[]]), 0, 0, 0}, {0, E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]), 0, 0}, {0, 0, $CellContext`r[]^(-2), 0}, { 0, 0, 0, Csc[ $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2)}}, {$CellContext`B, \ $CellContext`B}, 0][$CellContext`\[Mu], $CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SignDetOfMetric", "[", "g", "]"}]], "Input"], Cell[BoxData[ RowBox[{"-", "1"}]], "Output"] }, Open ]], Cell["We compute all curvature tensor related to g", "Text"], Cell[BoxData[ RowBox[{"MetricCompute", "[", RowBox[{"g", ",", "B", ",", "All"}], "]"}]], "Input"], Cell["We define the CD associated to g", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"CD", "=", RowBox[{"LC", "[", "g", "]"}]}], ";"}]], "Input"], Cell["Ricci does not vanishes (yet) as expect", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xAct`xCoba`$LargeComponentSize", "=", "3000"}], ";"}], RowBox[{"(*", " ", RowBox[{ "This", " ", "is", " ", "to", " ", "make", " ", "sure", " ", "expressions", " ", "are", " ", "displayed"}], " ", "*)"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Ricci", "[", "CD", "]"}], "[", RowBox[{"\[Mu]", ",", RowBox[{"-", "\[Nu]"}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], "+", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], "2"]}], "+", RowBox[{"2", " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}], RowBox[{"4", " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", SuperscriptBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], "2"]}], "+", RowBox[{"2", " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], RowBox[{"4", " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]}]], Annotation[#, {1, 1} -> Rational[-1, 4] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-1) (( 4 - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]]) Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]^2 + 2 $CellContext`r[] Derivative[2][$CellContext`\[Lambda]tt][ $CellContext`r[]]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}], "-", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}]}], ")"}]}], RowBox[{"4", " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}]}], ")"}]}], RowBox[{"4", " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, {2, 2} -> Rational[1, 4] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-1) ( Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] ( 4 + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]) - $CellContext`r[] ( Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]^2 + 2 Derivative[2][$CellContext`\[Lambda]tt][ $CellContext`r[]])), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]]}], "+", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], "-", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]]}], "+", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]], Annotation[#, {3, 3} -> Rational[1, 2] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 2 E^$CellContext`\[Lambda]rr[ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]]}], "+", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], "-", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]tt", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]tt, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]]}], "+", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]rr, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Lambda]tt, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]], Annotation[#, {4, 4} -> Rational[1, 2] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 2 E^$CellContext`\[Lambda]rr[ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]), "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]", " "}, {" ", "\[Nu]"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{Rational[-1, 4] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-1) ((4 - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]]) Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]^2 + 2 $CellContext`r[] Derivative[2][$CellContext`\[Lambda]tt][ $CellContext`r[]]), 0, 0, 0}, { 0, Rational[1, 4] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-1) ( Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] ( 4 + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]) - $CellContext`r[] ( Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]^2 + 2 Derivative[2][$CellContext`\[Lambda]tt][ $CellContext`r[]])), 0, 0}, { 0, 0, Rational[1, 2] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 2 E^$CellContext`\[Lambda]rr[ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]]), 0}, { 0, 0, 0, Rational[1, 2] E^(-$CellContext`\[Lambda]rr[ $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 2 E^$CellContext`\[Lambda]rr[ $CellContext`r[]] + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][ $CellContext`r[]] - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][ $CellContext`r[]])}}, {$CellContext`B, -$CellContext`B}, 0][$CellContext`\[Mu], -$CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell["Killing vector of the spherical symmetry", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"KV1", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"KV2", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}], ",", RowBox[{ RowBox[{"-", RowBox[{"Cot", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"KV3", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"Cot", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{ RowBox[{"CD", "[", "\[Mu]", "]"}], "@", RowBox[{"KV1", "[", "\[Nu]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{ RowBox[{"CD", "[", "\[Mu]", "]"}], "@", RowBox[{"KV2", "[", "\[Nu]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{ RowBox[{"CD", "[", "\[Mu]", "]"}], "@", RowBox[{"KV3", "[", "\[Nu]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData["0"], "Output"], Cell[BoxData["0"], "Output"], Cell[BoxData["0"], "Output"] }, Open ]], Cell["KVF of stationarity", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"KVt", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Symmetrize", "[", RowBox[{ RowBox[{ RowBox[{"CD", "[", "\[Mu]", "]"}], "@", RowBox[{"KVt", "[", "\[Nu]", "]"}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Birkhoff theorem", "Subsubsection"], Cell[BoxData[ RowBox[{"We", " ", "solve", " ", "the", " ", SubscriptBox["G", "tt"], " ", "and", " ", "the", " ", SubscriptBox["G", "rr"], " ", "part", " ", "of", " ", "the", " ", "Einstein", " ", "equations", " ", "in", " ", "vacuum"}]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"G", "=", RowBox[{"Einstein", "[", "CD", "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"G", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]], "+", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["\[Lambda]rr", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Lambda]rr, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rule\[Lambda]s", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Flatten", "@", RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"G", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[Equal]", "0"}], RowBox[{"(*", RowBox[{",", RowBox[{ RowBox[{"G", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", "0"}], ","}], "*)"}], ",", RowBox[{ RowBox[{"\[Lambda]rr", "[", "Infinity", "]"}], "\[Equal]", "0"}]}], "}"}], ")"}], "/.", RowBox[{ RowBox[{"r", "[", "]"}], "\[Rule]", "r"}]}], "/.", RowBox[{"\[Lambda]tt", "\[Rule]", "\[Lambda]ttV"}]}], "/.", RowBox[{"\[Lambda]rr", "\[Rule]", "\[Lambda]rrV"}]}], ",", RowBox[{"{", RowBox[{"\[Lambda]ttV", ",", "\[Lambda]rrV"}], "}"}], ",", RowBox[{"{", "r", "}"}]}], "]"}]}], ")"}], "/.", RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "2"}], "M"}], "]"}]}]}], "/.", RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", "0"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Solve", "::", "ifun"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Inverse functions are being used by \ \[NoBreak]\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\)\[NoBreak], so some solutions \ may not be found; use Reduce for complete solution information. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \ ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"DSolve", "::", "bvnr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"For some branches of the general solution, the given \ boundary conditions do not restrict the existing freedom in the general \ solution. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/DSolve/bvnr\\\", ButtonNote -> \ \\\"DSolve::bvnr\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Lambda]rrV", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{"1", "+", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "]"}]], "r"]}], "]"}]}]}], "]"}]}], ",", RowBox[{"\[Lambda]ttV", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", RowBox[{"0", "-", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", "r", "]"}], "+", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "]"}]], "+", "r"}], "]"}]}]}], "]"}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\[Lambda]tt", "=", RowBox[{"\[Lambda]ttV", "/.", "Rule\[Lambda]s"}]}], "\[IndentingNewLine]", RowBox[{"\[Lambda]rr", "=", RowBox[{"\[Lambda]rrV", "/.", "Rule\[Lambda]s"}]}]}], "Input"], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", RowBox[{"0", "-", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", "r", "]"}], "+", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "]"}]], "+", "r"}], "]"}]}]}], "]"}]], "Output"], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", RowBox[{"-", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{"1", "+", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "]"}]], "r"]}], "]"}]}]}], "]"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Schwarzschild metric", "Subsubsection"], Cell["Now, with these rules, the metric and its Ricci are", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}], "//", "Simplify"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {1, 1} -> -1 + 2 $CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox["1", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", FractionBox["1", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]]}]], Annotation[#, {2, 2} -> (1 - 2 $CellContext`M/$CellContext`r[])^(-1), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]], Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}]}]], Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {" ", " "}, {"\[Mu]", "\[Nu]"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{-1 + 2 $CellContext`M/$CellContext`r[], 0, 0, 0}, { 0, (1 - 2 $CellContext`M/$CellContext`r[])^(-1), 0, 0}, { 0, 0, $CellContext`r[]^2, 0}, {0, 0, 0, $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2}}, {-$CellContext`B, -$CellContext`B}, 0][-$CellContext`\[Mu], -$CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ricci", "[", "CD", "]"}]], "Input"], Cell[BoxData["Zero"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Riemann and Kretschmann", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Riemann", "[", "CD", "]"}], "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}], ",", RowBox[{"-", "\[Alpha]"}], ",", "\[Beta]"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ {GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "}"}], "\[Rule]", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {1, 2, 1, 2} -> 2 $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "+", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}]]}]}]], Annotation[#, {1, 2, 2, 1} -> (-2) $CellContext`M $CellContext`r[]^(-2)/((-2) \ $CellContext`M + $CellContext`r[]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "+", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {1, 3, 1, 3} -> $CellContext`M $CellContext`r[]^(-4) ((-2) \ $CellContext`M + $CellContext`r[]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "1"}], "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {1, 3, 3, 1} -> $CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "1", ",", "4"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "+", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {1, 4, 1, 4} -> $CellContext`M $CellContext`r[]^(-4) ((-2) \ $CellContext`M + $CellContext`r[]), "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "4", ",", "1"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {1, 4, 4, 1} -> $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]}, {GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "}"}], "\[Rule]", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "+", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {2, 1, 1, 2} -> 2 $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \ $CellContext`r[]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "}"}], "\[Rule]", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "+", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}]]}]], Annotation[#, {2, 1, 2, 1} -> 2 $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \ $CellContext`r[]), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]], Annotation[#, {2, 3, 2, 3} -> $CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[]^(-2), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3", ",", "2"}], "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {2, 3, 3, 2} -> $CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "2", ",", "4"}], "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]], Annotation[#, {2, 4, 2, 4} -> $CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[]^(-2), "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "4", ",", "2"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {2, 4, 4, 2} -> $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]}, {GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "1", ",", "3"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {3, 1, 1, 3} -> $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {3, 1, 3, 1} -> -$CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]]}], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "3"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]}]], Annotation[#, {3, 2, 2, 3} -> -$CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[]^(-2), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "3", ",", "2"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {3, 2, 3, 2} -> -$CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "3", ",", "4"}], "}"}], "\[Rule]", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {3, 4, 3, 4} -> 2 $CellContext`M/$CellContext`r[], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "4", ",", "3"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {3, 4, 4, 3} -> (-2) $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]}, {GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "4"}], "}"}], "\[Rule]", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}]}], SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "4"]]}]], Annotation[#, {4, 1, 1, 4} -> $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "4", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {4, 1, 4, 1} -> -$CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]}]]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "4"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], ")"}], " ", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]]}]}]], Annotation[#, {4, 2, 2, 4} -> -$CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[]^(-2), "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "2"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {4, 2, 4, 2} -> -$CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "4"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {4, 3, 3, 4} -> (-2) $CellContext`M/$CellContext`r[], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "4", ",", "3"}], "}"}], "\[Rule]", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]], Annotation[#, {4, 3, 4, 3} -> 2 $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 4, 4, 4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {" ", " ", " ", "\[Beta]"}, {"\[Mu]", "\[Nu]", "\[Alpha]", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 2 $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 0, 0}, {(-2) $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \ $CellContext`r[]), 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{ 0, 0, $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \ $CellContext`r[]), 0}, {0, 0, 0, 0}, {$CellContext`M/$CellContext`r[], 0, 0, 0}, {0, 0, 0, 0}}, {{ 0, 0, 0, $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \ $CellContext`r[])}, {0, 0, 0, 0}, {0, 0, 0, 0}, {$CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0, 0, 0}}}, {{{ 0, 2 $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \ $CellContext`r[]), 0, 0}, { 2 $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \ $CellContext`r[]), 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, { 0, 0, $CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2), 0}, {0, $CellContext`M/$CellContext`r[], 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, $CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2)}, {0, 0, 0, 0}, {0, $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0, 0}}}, {{{ 0, 0, $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 0}, {0, 0, 0, 0}, {-$CellContext`M/$CellContext`r[], 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, { 0, 0, -$CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2), 0}, {0, -$CellContext`M/$CellContext`r[], 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, { 0, 0, 0, 2 $CellContext`M/$CellContext`r[]}, { 0, 0, (-2) $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0}}}, {{{ 0, 0, 0, $CellContext`M ( 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4)}, {0, 0, 0, 0}, {0, 0, 0, 0}, {-$CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0, 0, 0}}, {{0, 0, 0, 0}, { 0, 0, 0, -$CellContext`M ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2)}, {0, 0, 0, 0}, {0, -$CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, { 0, 0, 0, (-2) $CellContext`M/$CellContext`r[]}, { 0, 0, 2 $CellContext`M $CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]]^2, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}}}, {-$CellContext`B, -$CellContext`B, -$CellContext`B, \ $CellContext`B}, 0][-$CellContext`\[Mu], -$CellContext`\[Nu], -$CellContext`\[Alpha], \ $CellContext`\[Beta]], Editable->False]], "Output"] }, Open ]], Cell["Kretschmann", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Riemann", "[", "CD", "]"}], "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}], ",", RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}]}], "]"}], RowBox[{ RowBox[{"Riemann", "[", "CD", "]"}], "[", RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}]}], "//", "Simplify"}]], "Input"], Cell[BoxData[ FractionBox[ RowBox[{"48", " ", SuperscriptBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], "2"]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "6"]]], "Output"] }, Open ]], Cell["\<\ We could have asked directly the Kretschmann tensor which had alrady been \ computed by MetricCompute\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kretschmann", "[", "CD", "]"}]], "Input"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ FractionBox[ RowBox[{"48", " ", SuperscriptBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], "2"]}], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "6"]], ",", RowBox[{"{", "}"}], ",", "0"}], "]"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bianchi identities", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Antisymmetrize"}]], "Input"], Cell[BoxData[ StyleBox["\<\"Antisymmetrize[expr, {i1, ..., in}] antisymmetrizes the expr \ with respect to the n abstract indices i1, ..., in. By convention, the result \ has a factor 1/n! multiplying. Antisymmetrize[expr] antisymmetrizes all free \ indices.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info393731738700-7852094"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Antisymmetrize", "[", RowBox[{ RowBox[{ RowBox[{"Riemann", "[", "CD", "]"}], "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Mu]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"CDR", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CD", "[", RowBox[{"-", "\[Lambda]"}], "]"}], "@", RowBox[{ RowBox[{"Riemann", "[", "CD", "]"}], "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}]}], "//", "ToCanonical"}], "//", "ToCCanonical"}]}], ";"}]], "Input"], Cell["When we antisymmetrie we get 0", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Antisymmetrize", "[", RowBox[{"CDR", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Lambda]"}], ",", RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Levi - Civita Tensor", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SignDetOfMetric", "[", "g", "]"}], "^=", RowBox[{"-", "1"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"epsilon", "[", "g", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "B"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "B"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "B"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"epsilon", "[", "g", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "B"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "B"}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"SignDetOfMetric", "::", "num"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Cannot determine sign of determinant of matrix \ \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{RowBox[{\\\"-\\\", \ \\\"2\\\"}], \\\" \\\", InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], M, Rule[Editable, \ False]]}], \\\"+\\\", InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \ False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]}], \ InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}], \\\",\\\", \ \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\ \", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", FractionBox[RowBox[{\\\"2\\\", \\\" \\\", \ InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], M, Rule[Editable, False]]}], \ InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}]], \\\",\\\", \ \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \ SuperscriptBox[InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \ False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]], \ \\\"2\\\"], \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \ \\\"0\\\", \\\",\\\", RowBox[{SuperscriptBox[InterpretationBox[StyleBox[\\\"r\ \\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], r[], \ Rule[Editable, False]], \\\"2\\\"], \\\" \\\", \ SuperscriptBox[RowBox[{InterpretationBox[StyleBox[RowBox[{\\\"Sin\\\"}], \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], Sin, Rule[Editable, \ False]], \\\"[\\\", InterpretationBox[StyleBox[\\\"\[Theta]\\\", \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], \\\\[Theta][], \ Rule[Editable, False]], \\\"]\\\"}], \\\"2\\\"]}]}], \\\"}\\\"}]}], \ \\\"}\\\"}]\\)\[NoBreak]. Assuming +1.\"\>"}]], "Message", "MSG"], Cell[BoxData[ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]}], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}]]], "Output"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"SignDetOfMetric", "::", "num"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Cannot determine sign of determinant of matrix \ \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{RowBox[{\\\"-\\\", \ \\\"2\\\"}], \\\" \\\", InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], M, Rule[Editable, \ False]]}], \\\"+\\\", InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \ False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]}], \ InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}], \\\",\\\", \ \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\ \", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", FractionBox[RowBox[{\\\"2\\\", \\\" \\\", \ InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], M, Rule[Editable, False]]}], \ InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \ Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}]], \\\",\\\", \ \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \ SuperscriptBox[InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \ False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]], \ \\\"2\\\"], \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \ \\\"0\\\", \\\",\\\", RowBox[{SuperscriptBox[InterpretationBox[StyleBox[\\\"r\ \\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], r[], \ Rule[Editable, False]], \\\"2\\\"], \\\" \\\", \ SuperscriptBox[RowBox[{InterpretationBox[StyleBox[RowBox[{\\\"Sin\\\"}], \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], Sin, Rule[Editable, \ False]], \\\"[\\\", InterpretationBox[StyleBox[\\\"\[Theta]\\\", \ Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], \\\\[Theta][], \ Rule[Editable, False]], \\\"]\\\"}], \\\"2\\\"]}]}], \\\"}\\\"}]}], \ \\\"}\\\"}]\\)\[NoBreak]. Assuming +1.\"\>"}]], "Message", "MSG"], Cell[BoxData[ FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]}], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}]]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Eddington - Finkelstein coordinates", "Subsubsection"], Cell["\<\ This section is given to serve as an extremely simple example of change of \ coordinates (that is change of chart).\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "DefChart"}]], "Input"], Cell[BoxData[ StyleBox["\<\"DefChart[chart, manifold, cnumbers, scalars] defines chart as \ a coordinate system on manifold, with coordinate fields given by the list \ scalars and the integer cnumbers identifying those coordinates and the \ associated vectors/covectors fields. \"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info463731738701-7852094"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefChart", "[", RowBox[{"EF", ",", "M4", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"v", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", RowBox[{"ChartColor", "\[Rule]", "Blue"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "EF", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`EF, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"v", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`v[], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "EF", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`EF, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", "iEF", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "inverse mapping ", $CellContext`iEF, ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"diEF", "[", RowBox[{ RowBox[{"-", "\[FormalA]"}], ",", "iEF\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`diEF[-\[FormalA], $CellContext`iEF\[Alpha]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"dEF", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", "EF\[FormalA]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`dEF[-$CellContext`\[Alpha], $CellContext`EF\[FormalA]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "EF", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`EF, ". ", "Coordinated basis."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", RowBox[{"PDEF", "[", RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", $CellContext`PDEF[-$CellContext`\[Alpha]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", "\[InvisibleSpace]", RowBox[{"TorsionPDEF", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", $CellContext`TorsionPDEF[$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDEF", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Christoffel tensor ", $CellContext`ChristoffelPDEF[$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", "\[InvisibleSpace]", RowBox[{"RiemannPDEF", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}], ",", "\[Lambda]1"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", $CellContext`RiemannPDEF[-$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", "\[InvisibleSpace]", RowBox[{"RicciPDEF", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", $CellContext`RicciPDEF[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaUpEF", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Lambda]", ",", "\[Lambda]1"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", $CellContext`etaUpEF[$CellContext`\[Alpha], $CellContext`\[Beta], \ $CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaDownEF", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}], ",", RowBox[{"-", "\[Lambda]1"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", $CellContext`etaDownEF[-$CellContext`\[Alpha], -$CellContext`\[Beta], \ -$CellContext`\[Lambda], -$CellContext`\[Lambda]1], ". ", ""], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$Assumptions", "=", RowBox[{"And", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"v", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}]}], "}"}], " ", "\[Element]", " ", "Reals"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "]"}], ">", RowBox[{"2", "M"}]}], ",", "\[IndentingNewLine]", RowBox[{"M", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"0", "\[LessEqual]", " ", RowBox[{"\[Theta]", "[", "]"}], "\[LessEqual]", " ", "Pi"}], ",", "\[IndentingNewLine]", RowBox[{"0", "\[LessEqual]", " ", RowBox[{"\[Phi]", "[", "]"}], "<", RowBox[{"2", "Pi"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False], "|", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "|", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False], "|", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "|", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False]}], ")"}], "\[Element]", "Reals"}], "&&", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], ">", RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]}], "&&", RowBox[{ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], ">", "0"}], "&&", RowBox[{"0", "\[LessEqual]", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "\[LessEqual]", "\[Pi]"}], "&&", RowBox[{"0", "\[LessEqual]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "<", RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output"] }, Open ]], Cell["\<\ The change of coordinates is (Identity should be Abs but let us restrict to \ the r>2M region)\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"EF2B", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"r", "[", "]"}], " ", "+", RowBox[{"2", "M", " ", RowBox[{"Log", "@", RowBox[{"Identity", "[", RowBox[{ RowBox[{ RowBox[{"r", "[", "]"}], "/", RowBox[{"(", RowBox[{"2", "M"}], ")"}]}], "-", "1"}], "]"}]}]}]}], ")"}]}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"B2EF", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", "]"}], "+", RowBox[{"r", "[", "]"}], " ", "+", RowBox[{"2", "M", " ", RowBox[{"Log", "@", RowBox[{"Identity", "[", RowBox[{ RowBox[{ RowBox[{"r", "[", "]"}], "/", RowBox[{"(", RowBox[{"2", "M"}], ")"}]}], "-", "1"}], "]"}]}]}]}], ",", RowBox[{"r", "[", "]"}], ",", "\[Theta]", ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], ";"}]}], "Input", ExpressionUUID -> "e3a30ad3-d5ab-4cb0-b31c-c49f51117f21"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"B2EFRules", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}], "\[Rule]", "EF2B"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"EF2BRules", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}], "\[Rule]", "B2EF"}], "]"}]}]}], "Input", ExpressionUUID -> "4cef0c5c-2687-4457-99e0-634535d00d01"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]]}], "]"}]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "+", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False]}]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False]}]}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False], "\[Rule]", RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]]}], "]"}]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "+", InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False]}]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "\[Rule]", "\[Theta]"}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False]}]}], "}"}]], "Output"] }, Open ]], Cell["Some assumptions on the ranges taken by coordinates", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$Assumptions", "=", RowBox[{"And", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{"v", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}]}], "}"}], " ", "\[Element]", " ", "Reals"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "]"}], ">", RowBox[{"2", "M"}]}], ",", "\[IndentingNewLine]", RowBox[{"0", "\[LessEqual]", " ", RowBox[{"\[Theta]", "[", "]"}], "\[LessEqual]", " ", "Pi"}], ",", "\[IndentingNewLine]", RowBox[{"0", "\[LessEqual]", " ", RowBox[{"\[Phi]", "[", "]"}], "<", RowBox[{"2", "Pi"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", ExpressionUUID -> "74b9886d-8f9d-4dc6-8536-7f5c4a9bbceb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False], "|", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False], "|", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "|", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "|", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False]}], ")"}], "\[Element]", "Reals"}], "&&", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], ">", RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]}], "&&", RowBox[{"0", "\[LessEqual]", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "\[LessEqual]", "\[Pi]"}], "&&", RowBox[{"0", "\[LessEqual]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "<", RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"B2EFRules", "/.", "EF2BRules"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EF2BRules", "/.", "B2EFRules"}], "//", "Simplify"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ",", RowBox[{"\[Theta]", "\[Rule]", "\[Theta]"}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False]}]}], "}"}]], "Output"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "\[Rule]", "\[Theta]"}], ",", RowBox[{ InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "\[Rule]", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False]}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ This is the Jacobian that we computed from the change of coordinates\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"JEF2B", "=", RowBox[{"Simplify", "@", RowBox[{"Outer", "[", RowBox[{"D", ",", "EF2B", ",", RowBox[{"{", RowBox[{ RowBox[{"v", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JB2EF", "=", RowBox[{"Simplify", "@", RowBox[{"Outer", "[", RowBox[{"D", ",", "B2EF", ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], "]"}]}]}], ";"}]}], "Input"], Cell["\<\ When building the CTensor which corresponds to the Jacobian, we must be very \ careful with the order of indices, otherwise it is the transpose !\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"EF2BJacobian", "=", RowBox[{"CTensor", "[", RowBox[{"JEF2B", ",", RowBox[{"{", RowBox[{"B", ",", RowBox[{"-", "EF"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"B2EFJacobian", "=", RowBox[{"CTensor", "[", RowBox[{"JB2EF", ",", RowBox[{"{", RowBox[{"EF", ",", RowBox[{"-", "B"}]}], "}"}]}], "]"}]}], ";"}]}], "Input"], Cell["But we could equally well use the Transpose and define", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"EF2BJacobian", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"Transpose", "@", "JEF2B"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "EF"}], ",", "B"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"B2EFJacobian", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"Transpose", "@", "JB2EF"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "B"}], ",", "EF"}], "}"}]}], "]"}]}], ";"}]}], "Input"], Cell["\<\ Here are the components of the Jacobians, and we check that one is the \ inverse of the other one\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"EF2BJacobian", "[", RowBox[{"a", ",", RowBox[{"-", "b"}]}], "]"}], ",", RowBox[{"B2EFJacobian", "[", RowBox[{"a", ",", RowBox[{"-", "b"}]}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, {2, 1} -> (2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {3, 3} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {4, 4} -> 1, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, "RowsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], 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], xAct`xCoba`CTensor[{{1, 0, 0, 0}, {(2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}, {-$CellContext`EF, $CellContext`B}, 0][$CellContext`a, -$CellContext`b], Editable->False], ",", InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]]}], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]}]], Annotation[#, {2, 1} -> -( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {4, 4} -> 1, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> { 1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}], FontSize->Small], 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], xAct`xCoba`CTensor[{{1, 0, 0, 0}, {-(2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 1}}, {-$CellContext`B, $CellContext`EF}, 0][$CellContext`a, -$CellContext`b], Editable->False]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"EF2BJacobian", "[", RowBox[{"b", ",", RowBox[{"-", "a"}]}], "]"}], RowBox[{"B2EFJacobian", "[", RowBox[{"c", ",", RowBox[{"-", "b"}]}], "]"}]}], "/.", "EF2BRules"}], ")"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"B2EFJacobian", "[", RowBox[{"b", ",", RowBox[{"-", "a"}]}], "]"}], RowBox[{"EF2BJacobian", "[", RowBox[{"c", ",", RowBox[{"-", "b"}]}], "]"}]}], "/.", "B2EFRules"}], ")"}], "//", "Simplify"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {4, 4} -> 1, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], FontSize->Small], 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], xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 1}}, {$CellContext`B, -$CellContext`B}, 0][-$CellContext`a, $CellContext`c], Editable->False]], "Output"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {4, 4} -> 1, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}], FontSize->Small], 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], xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 1}}, {$CellContext`EF, -$CellContext`EF}, 0][-$CellContext`a, $CellContext`c], Editable->False]], "Output"] }, Open ]], Cell["\<\ If we know we prefer one of the charts (say Eddington-Finkelstein in this \ case) then set the corresponding Jacobian:\ \>", "Text", ExpressionUUID -> "e9f4f2dd-4ced-459c-906f-3100ddbab4ff"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SetBasisChange"}]], "Input"], Cell[BoxData[ StyleBox["\<\"SetBasisChange[CTensor[matrix, {-newbasis, oldbasis}]] stores, \ both using a CTensor and TensorValues, the change of basis from the oldbasis \ to the newbasis.\"\>", "MSG"]], "Print", "PrintUsage", CellTags->"Info653731738702-7852094"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetBasisChange", "[", "EF2BJacobian", "]"}]], "Input", ExpressionUUID -> "42f846ff-3522-47d5-87b6-cef4f817872f"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["1", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`EF}, {1, $CellContext`B}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`EF}, {1, $CellContext`B}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["1", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`EF}, {2, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`EF}, {2, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["1", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`EF}, {3, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`EF}, {3, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["1", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`EF}, {4, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`EF}, {4, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["2", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`EF}, {1, $CellContext`B}], Editable->False], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`EF}, { 1, $CellContext`B}] -> ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["2", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`EF}, {2, $CellContext`B}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`EF}, {2, $CellContext`B}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["2", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`EF}, {3, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`EF}, {3, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["2", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`EF}, {4, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`EF}, {4, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["3", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`EF}, {1, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`EF}, {1, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["3", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`EF}, {2, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`EF}, {2, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["3", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`EF}, {3, $CellContext`B}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`EF}, {3, $CellContext`B}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["3", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`EF}, {4, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`EF}, {4, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["4", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`EF}, {1, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`EF}, {1, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["4", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`EF}, {2, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`EF}, {2, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["4", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`EF}, {3, $CellContext`B}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`EF}, {3, $CellContext`B}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["4", FontColor->RGBColor[0., 0., 1.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`EF}, {4, $CellContext`B}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`EF}, {4, $CellContext`B}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["1", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`B}, {1, $CellContext`EF}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`B}, {1, $CellContext`EF}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["1", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`B}, {2, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`B}, {2, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["1", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`B}, {3, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`B}, {3, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["1", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{1, -$CellContext`B}, {4, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`B}, {4, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["2", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`B}, {1, $CellContext`EF}], Editable->False], "\[Rule]", RowBox[{"-", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`B}, { 1, $CellContext`EF}] -> -( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["2", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`B}, {2, $CellContext`EF}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`B}, {2, $CellContext`EF}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["2", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`B}, {3, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`B}, {3, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["2", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{2, -$CellContext`B}, {4, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`B}, {4, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["3", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`B}, {1, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`B}, {1, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["3", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`B}, {2, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`B}, {2, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["3", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`B}, {3, $CellContext`EF}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`B}, {3, $CellContext`EF}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["3", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{3, -$CellContext`B}, {4, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`B}, {4, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["4", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`B}, {1, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`B}, {1, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["4", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`B}, {2, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`B}, {2, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["4", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`B}, {3, $CellContext`EF}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`B}, {3, $CellContext`EF}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["4", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["4", FontColor->RGBColor[1., 0., 0.]], " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xTensor`Basis[{4, -$CellContext`B}, {4, $CellContext`EF}], Editable->False], "\[Rule]", "1"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{4, -$CellContext`B}, {4, $CellContext`EF}] -> 1, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"\"\>", "\[InvisibleSpace]", RowBox[{"JacobianBEF", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "", $CellContext`JacobianBEF[], ". ", ""], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[ UnderscriptBox[ OverscriptBox["J", StyleBox["~", FontColor->RGBColor[1, 0, 0]]], StyleBox["~", FontColor->RGBColor[0, 0, 1]]], ShowAutoStyles->False, AutoSpacing->False], $CellContext`JacobianBEF[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox[ UnderscriptBox[ OverscriptBox["1", StyleBox["~", FontColor->RGBColor[1., 0., 0.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][], Editable->False]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "JacobianBEF"}], SequenceForm[ "Added independent rule ", $CellContext`JacobianBEF[] -> xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][], " for tensor ", $CellContext`JacobianBEF], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDBPDEF", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Beta]"}], ",", RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", $CellContext`ChristoffelPDBPDEF[$CellContext`\[Alpha], -$CellContext`\ \[Beta], -$CellContext`\[Lambda]], ". ", ""], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell["\<\ Let us give a simple example of change of coordinates. Let us take some vector which is not Killing, that is which has no special \ propreties, and which depends explicitly on t in the B basis.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CV", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", "]"}], ",", RowBox[{ RowBox[{"r", "[", "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "B", "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "B", "}"}], ",", "0"}], "]"}]], "Output"] }, Open ]], Cell["\<\ Let us transform it to the EF coordinates and read the result (this requires \ to use the rules B2EFRules to read the result in the new basis AND and where \ all dependence is in the scalars of the new chart.)\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ToCTensor", "[", RowBox[{"%", ",", RowBox[{"{", "EF", "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"CV", "=", RowBox[{ RowBox[{"%", "/.", "B2EFRules"}], "//", "Simplify"}]}]}], "Input"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]]}], "+", InterpretationBox[ StyleBox["t", ShowAutoStyles->False, AutoSpacing->False], $CellContext`t[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]]}], "]"}]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "-", FractionBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], "+", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False]}], ",", RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CV", "[", "\[Mu]", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Log", ShowAutoStyles->False, AutoSpacing->False], Log, Editable->False], "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]]}], "]"}]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "-", FractionBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], "+", InterpretationBox[ StyleBox["v", ShowAutoStyles->False, AutoSpacing->False], $CellContext`v[], Editable->False]}], RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False], " ", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Log"}], AutoSpacing -> False, ShowAutoStyles -> False], Log, Editable -> False], "[", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}]]}], "]"}]}], "-", InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "-", FractionBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]], "+", InterpretationBox[ StyleBox["v", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`v[], Editable -> False]}]}]], Annotation[#, { 1} -> (-2) $CellContext`M Log[-1 + Rational[ 1, 2] $CellContext`M^(-1) $CellContext`r[]] - \ $CellContext`r[] - ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^2 Sin[$CellContext`\[Theta]] + $CellContext`v[], "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", "\[Theta]", "]"}]}], RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", "\[Theta]", "]"}]}]}]], Annotation[#, {2} -> $CellContext`r[] Sin[$CellContext`\[Theta]], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]], Annotation[#, {3} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]], Annotation[#, {4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{(-2) $CellContext`M Log[-1 + Rational[ 1, 2] $CellContext`M^(-1) $CellContext`r[]] - $CellContext`r[] - ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^2 Sin[$CellContext`\[Theta]] + $CellContext`v[], $CellContext`r[] Sin[$CellContext`\[Theta]], 0, 0}, {$CellContext`EF}, 0][$CellContext`\[Mu]], Editable->False]], "Output"] }, Open ]], Cell["We can look at the metric in the EF components", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ToCTensor", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "EF"}], ",", RowBox[{"-", "EF"}]}], "}"}]}], "]"}], "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}], "/.", "B2EFRules"}], ")"}], "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ToCTensor", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"EF", ",", RowBox[{"-", "EF"}]}], "}"}]}], "]"}], "[", RowBox[{"\[Mu]", ",", RowBox[{"-", "\[Nu]"}]}], "]"}], "/.", "B2EFRules"}], ")"}], "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"ToCTensor", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"EF", ",", "EF"}], "}"}]}], "]"}], "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "/.", "B2EFRules"}], ")"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {1, 1} -> -1 + 2 $CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]}]], Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> False], Sin, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"]}]}]], Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}], FontSize->Small], StyleBox[GridBox[{ {" ", " "}, {"\[Mu]", "\[Nu]"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{-1 + 2 $CellContext`M/$CellContext`r[], 1, 0, 0}, {1, 0, 0, 0}, {0, 0, $CellContext`r[]^2, 0}, { 0, 0, 0, $CellContext`r[]^2 Sin[ $CellContext`\[Theta][]]^2}}, {-$CellContext`EF, -$CellContext`EF}, 0][-$CellContext`\[Mu], -$CellContext`\[Nu]], Editable->False]], "Output"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {3, 3} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {4, 4} -> 1, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]", " "}, {" ", "\[Nu]"} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}, {$CellContext`EF, -$CellContext`EF}, 0][$CellContext`\[Mu], -$CellContext`\[Nu]], Editable->False]], "Output"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {1, 2} -> 1, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {1, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "1"}]], Annotation[#, {2, 1} -> 1, "Tooltip"]& ], TagBox[ TooltipBox[ RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]]}]}]], Annotation[#, {2, 2} -> 1 - 2 $CellContext`M/$CellContext`r[], "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {2, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox["1", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]], RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", FractionBox["1", SuperscriptBox[ InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]]}]], Annotation[#, {3, 3} -> $CellContext`r[]^(-2), "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {3, 4} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 1} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 2} -> 0, "Tooltip"]& ], TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]], Annotation[#, {4, 3} -> 0, "Tooltip"]& ], TagBox[ TooltipBox[ FractionBox[ SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Csc", ShowAutoStyles->False, AutoSpacing->False], Csc, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"]], RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", FractionBox[ SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> False], Csc, Editable -> False], "[", InterpretationBox[ StyleBox[ "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`\[Theta][], Editable -> False], "]"}], "2"], SuperscriptBox[ InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "2"]]}]], Annotation[#, {4, 4} -> Csc[ $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2), "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]", "\[Nu]"}, {" ", " "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{{0, 1, 0, 0}, { 1, 1 - 2 $CellContext`M/$CellContext`r[], 0, 0}, { 0, 0, $CellContext`r[]^(-2), 0}, {0, 0, 0, Csc[ $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2)}}, {$CellContext`EF, \ $CellContext`EF}, 0][$CellContext`\[Mu], $CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell["The determinant of the Jacobian is a density", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Determinant", "[", "EF2BJacobian", "]"}], "[", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Determinant", "[", RowBox[{"Inv", "[", "EF2BJacobian", "]"}], "]"}], "[", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Jacobian", "[", RowBox[{"EF", ",", "B"}], "]"}], "[", "]"}], "//", "ToValues"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[ OverscriptBox[ UnderscriptBox["1", StyleBox["~", FontColor->RGBColor[1., 0., 0.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[1, {}, -$CellContext`B + $CellContext`EF][], Editable->False]], "Output"], Cell[BoxData[ InterpretationBox[ StyleBox[ UnderscriptBox[ OverscriptBox["1", StyleBox["~", FontColor->RGBColor[1., 0., 0.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][], Editable->False]], "Output"], Cell[BoxData[ InterpretationBox[ StyleBox[ OverscriptBox[ UnderscriptBox["1", StyleBox["~", FontColor->RGBColor[1., 0., 0.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[1, {}, -$CellContext`B + $CellContext`EF][], Editable->False]], "Output"] }, Open ]], Cell["\<\ The determinant of the metric is regular at r=2M in these \ Eddington-Finkelstein coordinates\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Determinant", "[", RowBox[{"g", ",", "EF"}], "]"}], "[", "]"}], "/.", "B2EFRules"}], ")"}], "//", "ToValues"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[ OverscriptBox[ OverscriptBox[ RowBox[{ RowBox[{"-", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]}], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[-$CellContext`r[]^4 Sin[ $CellContext`\[Theta][]]^2, {}, 2 $CellContext`EF][], Editable->False]], "Output"] }, Open ]], Cell["However in usual coordinates it is not regular at r = 2 M :", "Text"], Cell[CellGroupData[{ Cell[BoxData[{"g", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"Det", "[", RowBox[{"g", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{"r", "[", "]"}], "\[Rule]", RowBox[{"2", "M"}]}]}], ")"}]}], "Input"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}]], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "2"], " ", SuperscriptBox[ RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}], "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "B"}], ",", RowBox[{"-", "B"}]}], "}"}], ",", "0"}], "]"}]], "Output"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Power", "::", "infy"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(\\*FractionBox[\\\"1\\\ \", \\\"0\\\"]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \ \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Power", "::", "infy"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(\\*FractionBox[\\\"1\\\ \", \\\"0\\\"]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \ \\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Infinity", "::", "indet"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Indeterminate expression \ \[NoBreak]\\!\\(\\*RowBox[{\\\"ComplexInfinity\\\", \\\"+\\\", \ \\\"ComplexInfinity\\\"}]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \ \\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData["Indeterminate"], "Output"] }, Open ]], Cell["\<\ We want to check that v=Cte curves are geodesic Let us look for the vector of the geodesic equation.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefScalarFunction", "[", "f", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "f", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefScalarFunction, ": Defining ", "scalar function ", $CellContext`f, ". ", ""], Editable->False]], "Print"] }, Open ]], Cell["They must be generated by something of the form: ", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"f", "[", RowBox[{"r", "[", "]"}], "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "EF", "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"] }, Open ]], Cell["\<\ Let us determine the function f[]. We change k to the usual SZ chart\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ToCTensor", "[", RowBox[{"%", ",", RowBox[{"{", "B", "}"}]}], "]"}], "/.", "EF2BRules"}], ")"}], "//", "ToValues"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"k", "[", "\[Mu]", "]"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, {1} -> $CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]], Annotation[#, {2} -> $CellContext`f[ $CellContext`r[]], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]], Annotation[#, {3} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]], Annotation[#, {4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{$CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], $CellContext`f[ $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Mu]], Editable->False]], "Output"] }, Open ]], Cell["It does not satisfy yet the geodesic equation", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"k", "[", "\[Mu]", "]"}], RowBox[{ RowBox[{"CD", "[", RowBox[{"-", "\[Mu]"}], "]"}], "[", RowBox[{"k", "[", "\[Nu]", "]"}], "]"}]}], "//", "ToValues"}], "//", "Simplify"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, {1} -> $CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] Derivative[1][$CellContext`f][ $CellContext`r[]], "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}]], Annotation[#, {2} -> $CellContext`f[ $CellContext`r[]] Derivative[1][$CellContext`f][ $CellContext`r[]], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]], Annotation[#, {3} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]], Annotation[#, {4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Nu]"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{$CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] Derivative[1][$CellContext`f][ $CellContext`r[]], $CellContext`f[ $CellContext`r[]] Derivative[1][$CellContext`f][ $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell["But it is null whatever f", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"k", "[", "\[Mu]", "]"}], RowBox[{"k", "[", RowBox[{"-", "\[Mu]"}], "]"}]}], "//", "Simplify"}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]], Cell["So we must determine the function f[r].", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefTensor", "[", RowBox[{ RowBox[{"Acc", "[", "\[Mu]", "]"}], ",", "M4"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", RowBox[{"Acc", "[", "\[Mu]", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", $CellContext`Acc[$CellContext`\[Mu]], ". ", ""], Editable->False]], "Print"] }, Open ]], Cell[TextData[{ "We set ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["A", "\[Mu]"], " ", "=", " ", RowBox[{ SuperscriptBox["k", "\[Nu]"], RowBox[{ SubscriptBox["\[Del]", "\[Nu]"], SuperscriptBox["k", "\[Mu]"]}]}]}], TraditionalForm]]], "." }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IndexSet", "[", RowBox[{ RowBox[{"Acc", "[", "\[Nu]_", "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"k", "[", "\[Mu]", "]"}], RowBox[{ RowBox[{"TensorDerivative", "[", RowBox[{"k", ",", "CD"}], "]"}], "[", RowBox[{"\[Nu]", ",", RowBox[{"-", "\[Mu]"}]}], "]"}]}], "//", "ToValues"}], "//", "Simplify"}]}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, {1} -> $CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] Derivative[1][$CellContext`f][ $CellContext`r[]], "Tooltip"]& ]}, { TagBox[ TooltipBox[ RowBox[{ RowBox[{ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox["f", ShowAutoStyles->False, AutoSpacing->False], $CellContext`f, Editable->False], "\[Prime]", MultilineFunction->None], "[", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "]"}]}], RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}], " ", RowBox[{ SuperscriptBox[ InterpretationBox[ StyleBox[ RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`f, Editable -> False], "\[Prime]", MultilineFunction -> None], "[", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], "]"}]}]}]], Annotation[#, {2} -> $CellContext`f[ $CellContext`r[]] Derivative[1][$CellContext`f][ $CellContext`r[]], "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]], Annotation[#, {3} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]], Annotation[#, {4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Nu]"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{$CellContext`f[ $CellContext`r[]] ( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] Derivative[1][$CellContext`f][ $CellContext`r[]], $CellContext`f[ $CellContext`r[]] Derivative[1][$CellContext`f][ $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Nu]], Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solvef", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Acc", "[", RowBox[{"{", RowBox[{"2", ",", "B"}], "}"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"f", "[", "Infinity", "]"}], "==", "1"}]}], "}"}], "/.", RowBox[{ RowBox[{"r", "[", "]"}], "\[Rule]", "r"}]}], "/.", RowBox[{"f", "\[Rule]", "fV"}]}], ",", "fV", ",", "r"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Attributes", "::", "notfound"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Symbol \ \[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"DSolveDispatchODE\\\\\\\"\\\"}]\\)\ \[NoBreak] not found. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \ \\\"Attributes::notfound\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"DSolve", "::", "bvnul"}], "MessageName"], RowBox[{ ":", " "}], "\<\"For some branches of the general solution, the given \ boundary conditions lead to an empty solution. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/DSolve/bvnul\\\", ButtonNote -> \ \\\"DSolve::bvnul\\\"]\\)\"\>"}]], "Message", "MSG"], Cell[BoxData[ RowBox[{"{", RowBox[{"fV", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", "1"}], "]"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ We replace what we have found from the geodesic condition. It is simply f[r] \ = r.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"fV", "/.", "Solvef"}]}]], "Input"], Cell[BoxData[ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "r", "}"}], ",", "1"}], "]"}]], "Output"] }, Open ]], Cell["\<\ And now the acceleration vanishes. We check that now it is indeed a null \ geodesic vector.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"k", "[", "\[Mu]", "]"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", "[", "\[Mu]", "]"}], RowBox[{"k", "[", RowBox[{"-", "\[Mu]"}], "]"}]}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Acc", "[", "\[Mu]", "]"}], "//", "Simplify"}]}], "Input"], Cell[BoxData[ InterpretationBox[ StyleBox[GridBox[{ { StyleBox[GridBox[{ { TagBox[ TooltipBox[ FractionBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "-", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}]], RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", FractionBox[ InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False], RowBox[{ RowBox[{"2", " ", InterpretationBox[ StyleBox[ RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`M, Editable -> False]}], "-", InterpretationBox[ StyleBox[ "r", AutoSpacing -> False, ShowAutoStyles -> False], $CellContext`r[], Editable -> False]}]]}]], Annotation[#, { 1} -> (2 $CellContext`M - $CellContext`r[])^(-1) \ $CellContext`r[], "Tooltip"]& ]}, { TagBox[ TooltipBox["1", RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", "1"}]], Annotation[#, {2} -> 1, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]], Annotation[#, {3} -> 0, "Tooltip"]& ]}, { TagBox[ TooltipBox["0", RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]], Annotation[#, {4} -> 0, "Tooltip"]& ]} }, AutoDelete->False, GridBoxDividers->{ "ColumnsIndexed" -> { 1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}], FontSize->Small], StyleBox[GridBox[{ {"\[Mu]"}, {" "} }, GridBoxSpacings->{"Columns" -> { Offset[0.], { Offset[0.034999999999999996`]}, Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{ Offset[0.]}}, "RowsIndexed" -> {}}], FontSize->Rational[39, 4]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.034999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[{( 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0, 0}, {$CellContext`B}, 0][$CellContext`\[Mu]], Editable->False]], "Output"], Cell[BoxData["0"], "Output"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Surface Gravity", "Subsubsection"], Cell["\<\ Let us consider the Killing - Vector field of time translations\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"KV", "=", "KVt"}], ";"}]], "Input"], Cell["It is null at the horizon.", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "[", RowBox[{ RowBox[{"-", "\[Mu]"}], ",", RowBox[{"-", "\[Nu]"}]}], "]"}], RowBox[{"KV", "[", "\[Mu]", "]"}], RowBox[{"KV", "[", "\[Nu]", "]"}]}], "\[IndentingNewLine]", RowBox[{"%", "/.", RowBox[{ RowBox[{"r", "[", "]"}], "\[RuleDelayed]", RowBox[{"2", "M"}]}]}]}], "Input"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}], "+", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]]}]], "Output"], Cell[BoxData["0"], "Output"] }, Open ]], Cell[TextData[{ "Surface gravity (Wald\[CloseCurlyQuote]s book 12.5.14) is defined as ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Kappa]", RowBox[{"2", " "}]], " ", "=", " "}], TraditionalForm]]], " -1/2 ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Del]", "\[Mu]"], SubscriptBox["V", "\[Nu]"]}], RowBox[{ SuperscriptBox["\[Del]", "\[Mu]"], SuperscriptBox["V", "\[Nu]"]}]}], TraditionalForm]]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], RowBox[{ RowBox[{"CD", "[", RowBox[{"-", "\[Mu]"}], "]"}], "@", RowBox[{"KV", "[", RowBox[{"-", "\[Nu]"}], "]"}]}], RowBox[{ RowBox[{"CD", "[", "\[Mu]", "]"}], "@", RowBox[{"KV", "[", "\[Nu]", "]"}]}]}], "//", "ToValues"}], ")"}], "\[IndentingNewLine]", RowBox[{"%", "/.", RowBox[{ RowBox[{"r", "[", "]"}], "\[RuleDelayed]", RowBox[{"2", "M"}]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Sqrt", "@", "%"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"M", ">", "0"}]}]}], "]"}]}], "Input"], Cell[BoxData[ FractionBox[ SuperscriptBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], "2"], SuperscriptBox[ InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], "4"]]], "Output"], Cell[BoxData[ FractionBox["1", RowBox[{"16", " ", SuperscriptBox[ InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False], "2"]}]]], "Output"], Cell[BoxData[ FractionBox["1", RowBox[{"4", " ", InterpretationBox[ StyleBox["M", ShowAutoStyles->False, AutoSpacing->False], $CellContext`M, Editable->False]}]]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1298, 723}, WindowMargins->{{5, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \ 2016)", StyleDefinitions->"Default.nb" ]