(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 2245814, 47854]
NotebookOptionsPosition[ 2190837, 46687]
NotebookOutlinePosition[ 2192967, 46749]
CellTagsIndexPosition[ 2192924, 46746]
WindowTitle->RiemannTensor | Example Notebook
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
"Basic Examples",
"\[NonBreakingSpace]",
Cell["(3)", "ExampleCount"],
"\[NonBreakingSpace]"
}], "Subsection",
TaggingRules->{},
CellID->462042388],
Cell[TextData[{
"Construct the Riemann curvature tensor for the Schwarzschild metric (e.g. \
for an uncharged, non-rotating black hole with symbolic mass ",
Cell[BoxData["\"\<\[FormalCapitalM]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
") in standard spherical polar coordinates:"
}], "Text",
TaggingRules->{},
CellChangeTimes->{{3.890858752291644*^9, 3.890858772260683*^9},
3.8910207157390757`*^9},
CellID->692225073],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"metric", "=",
RowBox[{
RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[",
"\"\\"", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890858773025784*^9, 3.890858779561331*^9}},
CellLabel->"In[60]:=",
CellID->1543309042],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox["MetricTensor",
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2FOHfmDPgBWMmoOLBgDDtzDQ
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2FOHfmDPgBWMmoOLBgDDtzDQ
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}],
RowBox[{
TagBox["\"Symmetric: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["True", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{-1 + (2/
"\[FormalR]") "\[FormalCapitalM]", 0, 0, 0}, {
0, (1 - (2/"\[FormalR]") "\[FormalCapitalM]")^(-1), 0, 0}, {
0, 0, "\[FormalR]"^2, 0}, {
0, 0, 0, "\[FormalR]"^2 Sin["\[FormalTheta]"]^2}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908587816529207`*^9},
CellLabel->"Out[60]=",
CellID->178617109]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[", "metric", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890858783291338*^9, 3.890858786030251*^9}},
CellLabel->"In[61]:=",
CellID->950018488],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{-1 + (
2/"\[FormalR]") "\[FormalCapitalM]", 0, 0, 0}, {
0, (1 - (2/"\[FormalR]") "\[FormalCapitalM]")^(-1), 0, 0}, {
0, 0, "\[FormalR]"^2, 0}, {
0, 0, 0, "\[FormalR]"^2 Sin["\[FormalTheta]"]^2}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908587864274397`*^9},
CellLabel->"Out[61]=",
CellID->1172962541]
}, Open ]],
Cell["\<\
Show the Riemann curvature tensor for the Schwarzschild metric in explicit \
(mixed) array form:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908587923739243`*^9, 3.890858809315856*^9}},
CellID->81547127],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890858809711296*^9, 3.890858814607589*^9}},
CellLabel->"In[62]:=",
CellID->373286254],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], "+",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}], "2"]}]]}], "+",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}]}]]}], "0"},
{"0",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "2"]}]], "-",
FractionBox[
RowBox[{"2", " ",
TemplateBox[{"4"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}], "2"]}]], "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]}]]}], "0", "0",
"0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}], "2"]}]]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]}]]}], "0", "0",
"0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], "+",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], ")"}], "2"]}]]}], "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]}]], "0", "0",
"0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], "+",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
FractionBox[
RowBox[{"2", " ",
TemplateBox[{"3"},
"OutputSizeLimit`Skeleton"]}], "\<\"\[FormalR]\"\>"]}],
")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], ")"}], "2"]}]], "+",
TemplateBox[{"4"},
"OutputSizeLimit`Skeleton"], "+",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}],
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}]]}], "0"},
{"0",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
FractionBox[
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], "+",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]], "-",
FractionBox[
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}]}],
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}]]}], "0"},
{"0",
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
RowBox[{"1", "-",
FractionBox[
RowBox[{"2",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"3"},
"OutputSizeLimit`Skeleton"]}], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>"}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], ")"}], "2"]}]]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]}], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "2"]}]], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
TemplateBox[{"6"},
"OutputSizeLimit`Skeleton"], "+",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox[
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], ")"}], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
RowBox[{"1", "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\<\"\[FormalR]\"\>"]}]]}],
"+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"1", "-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]]}]]}]},
{"0", "0", "0",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]},
{"0",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"3"]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]]}], "+",
TemplateBox[{"6"},
"OutputSizeLimit`Skeleton"]}],
RowBox[{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]]}], "+",
TemplateBox[{"5"},
"OutputSizeLimit`Skeleton"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]],
Short[#, 5]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 62,
34189971819979907515, 5/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 62,
34189971819979907515, 5 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 62,
34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[62], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890858814928417*^9},
CellLabel->"Out[62]//MatrixForm=",
CellID->792571378]
}, Open ]],
Cell["\<\
Show the Riemann curvature tensor for the Schwarzschild metric in explicit \
(mixed) array form, with all algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890858831870469*^9, 3.890858848556134*^9}},
CellID->2053571352],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890858849548315*^9, 3.890858861550159*^9}},
CellLabel->"In[63]:=",
CellID->2001937729],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]],
"0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{"-",
FractionBox["\<\"\[FormalCapitalM]\"\>", "\<\"\[FormalR]\"\>"]}],
"0"},
{"0", "0", "0", "0"},
{
FractionBox["\<\"\[FormalCapitalM]\"\>", "\<\"\[FormalR]\"\>"], "0",
"0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"], "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]], "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]]}], "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{"-",
FractionBox["\<\"\[FormalCapitalM]\"\>", "\<\"\[FormalR]\"\>"]}],
"0"},
{"0",
FractionBox["\<\"\[FormalCapitalM]\"\>", "\<\"\[FormalR]\"\>"], "0",
"0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"]}]},
{"0", "0", "0", "0"},
{"0",
FractionBox[
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]]}], "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]], "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
FractionBox["\<\"\[FormalCapitalM]\"\>",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]],
"0"},
{"0",
RowBox[{"-",
FractionBox["\<\"\[FormalCapitalM]\"\>",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]]}],
"0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "\<\"\[FormalR]\"\>"]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>"}],
SuperscriptBox["\<\"\[FormalR]\"\>", "4"]], "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox["\<\"\[FormalCapitalM]\"\>",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]]},
{"0", "0", "0", "0"},
{"0",
RowBox[{"-",
FractionBox["\<\"\[FormalCapitalM]\"\>",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}]}]]}],
"0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], \
"\<\"\[FormalR]\"\>"]}]},
{"0", "0",
FractionBox[
RowBox[{
"2", " ", "\<\"\[FormalCapitalM]\"\>"}], "\<\"\[FormalR]\"\>"], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890858861973955*^9},
CellLabel->"Out[63]//MatrixForm=",
CellID->1835586227]
}, Open ]],
Cell["Deduce that the Schwarzschild metric is not Riemann-flat:", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908589472819643`*^9, 3.8908589584430933`*^9}},
CellID->2095128034],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908589592853823`*^9, 3.890858964800192*^9}},
CellLabel->"In[64]:=",
CellID->1496010582],
Cell[BoxData["False"], "Output",
TaggingRules->{},
CellChangeTimes->{3.890858965139192*^9},
CellLabel->"Out[64]=",
CellID->2038211928]
}, Open ]],
Cell["Show the list of Schwarzschild coordinate symbols:", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859007066606*^9, 3.8908590107868767`*^9}},
CellID->670316675],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859011441049*^9, 3.890859013533413*^9}},
CellLabel->"In[66]:=",
CellID->799980918],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\<\"\[FormalT]\"\>", ",", "\<\"\[FormalR]\"\>",
",", "\<\"\[FormalTheta]\"\>", ",", "\<\"\[FormalPhi]\"\>"}],
"}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859013766407*^9},
CellLabel->"Out[66]=",
CellID->1626601127]
}, Open ]],
Cell["\<\
Show the list of differential 1-form symbols for each of the Schwarzschild \
coordinates:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908590143994217`*^9, 3.8908590227931843`*^9}},
CellID->818315179],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908590243009653`*^9, 3.890859026919582*^9}},
CellLabel->"In[67]:=",
CellID->265887141],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\<\"\[FormalD]\[FormalT]\"\>", ",", "\<\"\[FormalD]\[FormalR]\"\>",
",", "\<\"\[FormalD]\[FormalTheta]\"\>",
",", "\<\"\[FormalD]\[FormalPhi]\"\>"}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908590271672583`*^9},
CellLabel->"Out[67]=",
CellID->1791630781]
}, Open ]],
Cell["\<\
Show the list of coordinate conditions that must hold for the Schwarzschild \
metric to be Lorentzian:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859028064444*^9, 3.890859039407991*^9}},
CellID->2070321680],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859039857863*^9, 3.890859042883644*^9}},
CellLabel->"In[68]:=",
CellID->1911344634],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], ">",
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ",",
RowBox[{
RowBox[{
"2", " ", "\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>"}], "<",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], ",",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], ">", "0"}]}],
"}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859043150879*^9},
CellLabel->"Out[68]=",
CellID->1898630285]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[Cell["\t", "ExampleDelimiter"],
$Line = 0; Null]], "ExampleDelimiter",
TaggingRules->{},
CellID->819689222],
Cell[TextData[{
"Construct the Riemann curvature tensor for the \
Friedmann-Lema\[IHat]tre-Robertson-Walker (FLRW) metric (for a homogeneous, \
isotropic and uniformly-expanding/contracting universe, with symbolic \
curvature parameter ",
Cell[BoxData["\"\<\[FormalK]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
" and symbolic scale factor ",
Cell[BoxData["\"\<\[FormalA]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
") in standard spherical polar coordinates:"
}], "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859122970353*^9, 3.890859159224598*^9}, {
3.891020752743452*^9, 3.8910207638161707`*^9}},
CellID->409158649],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"metric", "=",
RowBox[{
RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[",
"\"\\"", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859160207912*^9, 3.890859169591792*^9}},
CellLabel->"In[341]:=",
CellID->2113126450],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox["MetricTensor",
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2FOHfmDPgBUMXXO05JtWXVx9wT5JIMJyy4lr
9reFVbbtbn9DpfD6YA8APDo7eg==
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2FOHfmDPgBUMXXO05JtWXVx9wT5JIMJyy4lr
9reFVbbtbn9DpfD6YA8APDo7eg==
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}],
RowBox[{
TagBox["\"Symmetric: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["True", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{-1, 0,
0, 0}, {0, (1 - "\[FormalK]" "\[FormalR]"^2)^(-1)
"\[FormalA]"["\[FormalT]"]^2, 0, 0}, {
0, 0, "\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2, 0}, {
0, 0, 0, ("\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2)
Sin["\[FormalTheta]"]^2}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859169914839*^9, 3.890890598899384*^9,
3.89184592964098*^9, 3.891851567498021*^9},
CellLabel->"Out[341]=",
CellID->688208715]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{"metric", ",", "False", ",", "True", ",", "True", ",", "True"}],
"]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859173361596*^9, 3.8908591892694597`*^9}},
CellLabel->"In[342]:=",
CellID->997659047],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{-1, 0,
0, 0}, {0, (1 - "\[FormalK]" "\[FormalR]"^2)^(-1)
"\[FormalA]"["\[FormalT]"]^2, 0, 0}, {
0, 0, "\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2, 0}, {
0, 0, 0, ("\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2)
Sin["\[FormalTheta]"]^2}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.8908591813511343`*^9, 3.89085918962827*^9},
3.8918459304908752`*^9, 3.891851567980975*^9},
CellLabel->"Out[342]=",
CellID->1832939365]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859196635242*^9, 3.890859211271002*^9}},
CellLabel->"In[74]:=",
CellID->83798023],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "0"},
{"0",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}]},
{"0", "0", "0", "0"},
{"0",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "0"},
{"0",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}]},
{"0", "0",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}]},
{"0", "0", "0", "0"},
{"0",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}]},
{"0", "0",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.89085920084587*^9, 3.890859211611577*^9}},
CellLabel->"Out[74]//MatrixForm=",
CellID->455309045]
}, Open ]],
Cell["\<\
Show the explicit array form, with all algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859214731216*^9, 3.890859221666108*^9}},
CellID->894885054],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859223410428*^9, 3.890859227861351*^9}},
CellLabel->"In[75]:=",
CellID->823930781],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0", "0"},
{
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "0"},
{"0",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}]},
{"0", "0", "0", "0"},
{"0",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0"},
{"0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}]},
{"0", "0",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]},
{"0", "0", "0", "0"},
{"0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}]},
{"0", "0",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859228129025*^9},
CellLabel->"Out[75]//MatrixForm=",
CellID->535660761]
}, Open ]],
Cell["Deduce that the FLRW metric is not Riemann-flat:", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859262584269*^9, 3.890859267397622*^9}},
CellID->2134997011],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859252429079*^9, 3.890859260625413*^9}},
CellLabel->"In[78]:=",
CellID->1496850232],
Cell[BoxData["False"], "Output",
TaggingRules->{},
CellChangeTimes->{{3.8908592564610577`*^9, 3.890859268549486*^9}},
CellLabel->"Out[78]=",
CellID->891009378]
}, Open ]],
Cell["\<\
Show the list of conditions that must hold for the FLRW metric to be \
Riemann-flat:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890859268597261*^9, 3.890859277645733*^9}},
CellID->1711412028],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908592780749817`*^9, 3.8908592811433496`*^9}},
CellLabel->"In[79]:=",
CellID->1951834504],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "\[Equal]", "0"}], ",",
RowBox[{
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"\[Equal]", "0"}], ",",
RowBox[{
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
"\[Equal]", "0"}], ",",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"\[Equal]", "0"}], ",",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
"\[Equal]", "0"}], ",",
RowBox[{
RowBox[{
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
")"}]}], "\[Equal]", "0"}], ",",
RowBox[{
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "\[Equal]", "0"}]}],
"}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859281412202*^9},
CellLabel->"Out[79]=",
CellID->1433211101]
}, Open ]],
Cell["\<\
Show the first principal invariant (i.e. the Kretschmann quadratic scalar \
invariant) of the Riemann curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.89088910558445*^9, 3.890889140501436*^9}},
CellID->40298300],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859378823414*^9, 3.89085938192982*^9}},
CellLabel->"In[80]:=",
CellID->360287703],
Cell[BoxData[
RowBox[{
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]],
"+",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}], "2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]],
"+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], "2"]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "4"]}]],
"+",
FractionBox[
RowBox[{"12", " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908593878901043`*^9},
CellLabel->"Out[80]=",
CellID->1326594341]
}, Open ]],
Cell["\<\
Show the first principal invariant (i.e. the Kretschmann quadratic scalar \
invariant) of the Riemann curvature tensor for the FLRW metric, with all \
algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889144760963*^9, 3.890889172707706*^9}},
CellID->731185473],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859516661367*^9, 3.890859522825234*^9}},
CellLabel->"In[83]:=",
CellID->1514272568],
Cell[BoxData[
FractionBox[
RowBox[{"12", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
")"}], "2"], "+",
RowBox[{
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}]}],
")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"4"]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908595291900673`*^9},
CellLabel->"Out[83]=",
CellID->947151793]
}, Open ]],
Cell["\<\
Deduce that the Kreschmann scalar for the FLRW metric is non-vanishing:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.89088923031148*^9, 3.8908892467949343`*^9}},
CellID->2044118970],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"",
"]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.89088924385131*^9, 3.890889252688147*^9}},
CellLabel->"In[91]:=",
CellID->568917081],
Cell[BoxData["False"], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889259310956*^9},
CellLabel->"Out[91]=",
CellID->1815242082]
}, Open ]],
Cell["\<\
Show the condition that must hold for the FLRW metric to have a vanishing \
Kretschmann scalar:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889256250081*^9, 3.890889263580214*^9}},
CellID->1100390455],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"",
"]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889264489243*^9, 3.8908892705201883`*^9}},
CellLabel->"In[92]:=",
CellID->1599086005],
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
")"}], "2"],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}]}],
"\[Equal]", "0"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908892778877153`*^9},
CellLabel->"Out[92]=",
CellID->1063573140]
}, Open ]],
Cell["\<\
Show the second principal invariant (i.e. the Chern-Pontryagin quadratic \
scalar invariant, whose integral is related to the instanton number) of the \
Riemann curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889185339983*^9, 3.8908892198760357`*^9}, {
3.890889360064578*^9, 3.890889361674388*^9}},
CellID->1174251982],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859391721477*^9, 3.890859395218203*^9}},
CellLabel->"In[81]:=",
CellID->812567514],
Cell[BoxData["0"], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859429125648*^9},
CellLabel->"Out[81]=",
CellID->1286015318]
}, Open ]],
Cell["\<\
Deduce that the Chern-Pontryagin scalar for the FLRW metric vanishes:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889278242469*^9, 3.8908892872491903`*^9}},
CellID->1967369999],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"",
"]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908892880806932`*^9, 3.8908892933018513`*^9}},
CellLabel->"In[93]:=",
CellID->1157647017],
Cell[BoxData["True"], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889338664968*^9},
CellLabel->"Out[93]=",
CellID->432349623]
}, Open ]],
Cell["\<\
Show the third principal invariant (i.e. the Euler quadratic scalar \
invariant, whose integral is related to the Euler characteristic) of the \
Riemann curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908893271526203`*^9, 3.890889368497138*^9}},
CellID->1503650248],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859403301652*^9, 3.8908594059109573`*^9}},
CellLabel->"In[82]:=",
CellID->1383967358],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"+",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"-",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"-",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"+",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"-",
FractionBox[
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], "2"], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"+",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"+",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}], "-",
FractionBox[
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
"-",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], "9"]}]],
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}]}]}]}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859467191204*^9},
CellLabel->"Out[82]=",
CellID->1784026218]
}, Open ]],
Cell["\<\
Show the third principal invariant (i.e. the Euler quadratic scalar \
invariant, whose integral is related to the Euler characteristic) of the \
Riemann curvature tensor for the FLRW metric, with all algebraic equivalences \
imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889375392242*^9, 3.8908893997125063`*^9}},
CellID->1258782049],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890859527848074*^9, 3.890859530517733*^9}},
CellLabel->"In[84]:=",
CellID->119764284],
Cell[BoxData[
FractionBox[
RowBox[{"96", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"9"]}]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890859580895711*^9},
CellLabel->"Out[84]=",
CellID->164841933]
}, Open ]],
Cell["\<\
Deduce that the Euler scalar for the FLRW metric is non-vanishing:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889410553049*^9, 3.890889415653569*^9}},
CellID->1838761813],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889420050959*^9, 3.89088942726703*^9}},
CellLabel->"In[94]:=",
CellID->525326528],
Cell[BoxData["False"], "Output",
TaggingRules->{},
CellChangeTimes->{3.89088948522062*^9},
CellLabel->"Out[94]=",
CellID->1129547357]
}, Open ]],
Cell["\<\
Show the condition that must hold for the FLRW metric to have a vanishing \
Euler scalar:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889431943573*^9, 3.890889440895101*^9}},
CellID->114796816],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"",
"]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889441698118*^9, 3.890889446445203*^9}},
CellLabel->"In[95]:=",
CellID->362172453],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"]}],
")"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"\[Equal]", "0"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889548401713*^9},
CellLabel->"Out[95]=",
CellID->562317901]
}, Open ]],
Cell["\<\
Show the list of coordinate values that cause the Riemann curvature tensor \
for the FLRW metric to become singular:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889503683455*^9, 3.890889514197901*^9}},
CellID->546989619],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889515765512*^9, 3.8908895195435333`*^9}},
CellLabel->"In[96]:=",
CellID->1151161481],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\<\"\[FormalR]\"\>", "\[Rule]",
RowBox[{"-",
FractionBox["1",
SqrtBox["\<\"\[FormalK]\"\>"]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\<\"\[FormalR]\"\>", "\[Rule]",
FractionBox["1",
SqrtBox["\<\"\[FormalK]\"\>"]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\<\"\[FormalT]\"\>", "\[Rule]",
RowBox[{
RowBox[{"InverseFunction", "[",
RowBox[{"\<\"\[FormalA]\"\>", ",", "1", ",", "1"}], "]"}], "[", "0",
"]"}]}], "}"}]}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908895505026827`*^9},
CellLabel->"Out[96]=",
CellID->1948915307]
}, Open ]],
Cell["\<\
Show the list of coordinate values that cause the first principal invariant \
(i.e. the Kretschmann quadratic scalar invariant) of the Riemann curvature \
tensor for the FLRW metric to become singular:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889526550239*^9, 3.890889530161079*^9}, {
3.890889565251464*^9, 3.8908895991942873`*^9}},
CellID->117254717],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908895997469053`*^9, 3.890889606661319*^9}},
CellLabel->"In[97]:=",
CellID->1310874028],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\<\"\[FormalT]\"\>", "\[Rule]",
RowBox[{
RowBox[{"InverseFunction", "[",
RowBox[{"\<\"\[FormalA]\"\>", ",", "1", ",", "1"}], "]"}], "[", "0",
"]"}]}], "}"}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889614414605*^9},
CellLabel->"Out[97]=",
CellID->473800206]
}, Open ]],
Cell["\<\
Show the list of coordinate values that cause the third principal invariant \
(i.e. the Euler quadratic scalar invariant, whose integral is related to the \
Euler characteristic) of the Riemann curvature tensor for the FLRW metric to \
become singular:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889608221237*^9, 3.890889647487384*^9}},
CellID->1072983012],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889648026957*^9, 3.89088965311718*^9}},
CellLabel->"In[98]:=",
CellID->590688568],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\<\"\[FormalR]\"\>", "\[Rule]", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\<\"\[FormalT]\"\>", "\[Rule]",
RowBox[{
RowBox[{"InverseFunction", "[",
RowBox[{"\<\"\[FormalA]\"\>", ",", "1", ",", "1"}], "]"}], "[", "0",
"]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\<\"\[FormalTheta]\"\>", "\[Rule]",
TemplateBox[{
RowBox[{"2", " ", "\[Pi]", " ",
TemplateBox[{"1"}, "C"]}],
RowBox[{
TemplateBox[{"1"}, "C"], "\[Element]",
TemplateBox[{}, "Integers"]}]},
"ConditionalExpression"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\<\"\[FormalTheta]\"\>", "\[Rule]",
TemplateBox[{
RowBox[{"\[Pi]", "+",
RowBox[{"2", " ", "\[Pi]", " ",
TemplateBox[{"1"}, "C"]}]}],
RowBox[{
TemplateBox[{"1"}, "C"], "\[Element]",
TemplateBox[{}, "Integers"]}]},
"ConditionalExpression"]}], "}"}]}], "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889706312529*^9},
CellLabel->"Out[98]=",
CellID->598292800]
}, Open ]],
Cell["\<\
Show the association of all possible index contractions of the Riemann \
curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889736953644*^9, 3.890889750047468*^9}},
CellID->988654346],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889750555126*^9, 3.890889754469977*^9}},
CellLabel->"In[99]:=",
CellID->664744023],
Cell[BoxData[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalMu]\[FormalNu]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalLambda]\[FormalNu]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalK]\"\>"}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ",", "0", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ", "\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}]}],
"}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalMu]\[FormalLambda]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalK]\"\>"}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "-",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ",", "0", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"1", "-",
RowBox[{"2", " ", "\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}]}],
"}"}]}], "}"}]}]}], "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889754685835*^9},
CellLabel->"Out[99]=",
CellID->1021323380]
}, Open ]],
Cell["\<\
Show the association of all possible index contractions of the Riemann \
curvature tensor for the FLRW metric, with all algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889761023217*^9, 3.890889774671319*^9}},
CellID->545257189],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889775316319*^9, 3.890889779574965*^9}},
CellLabel->"In[100]:=",
CellID->1867352067],
Cell[BoxData[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalMu]\[FormalNu]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalLambda]\[FormalNu]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], ",", "0", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}]}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalMu]\[FormalLambda]\"",
"\"\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], ",", "0", ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}]}], "}"}]}], "}"}]}]}], "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889780304109*^9},
CellLabel->"Out[100]=",
CellID->324024798]
}, Open ]],
Cell["\<\
Show the association of all covariant derivatives (i.e. derivatives along \
tangent vectors of the manifold) of the Riemann curvature tensor for the FLRW \
metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890889795713811*^9, 3.890889814279016*^9}},
CellID->2013734841],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889814583756*^9, 3.890889818993458*^9}},
CellLabel->"In[101]:=",
CellID->435237210],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
TemplateBox[{"996"},
"OutputSizeLimit`Skeleton"], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
"+",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "\<\"\[FormalR]\"\>"]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\
\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\
\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
"+",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], "\<\"\[FormalR]\"\>"]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}]}],
"\[RightAssociation]"}],
Short[#, 160]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 101, 34189971819979907515, 160/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 101, 34189971819979907515, 160 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 101, 34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{77., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[101], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890889819497876*^9},
CellLabel->"Out[101]=",
CellID->1622685883]
}, Open ]],
Cell["\<\
Show the association of all covariant derivatives of the Riemann curvature \
tensor for the FLRW metric, with all algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908898315561934`*^9, 3.8908898505052547`*^9}},
CellID->1586802328],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], ",",
"500"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890889851014861*^9, 3.8908898675302134`*^9}, {
3.890890411322682*^9, 3.890890430128602*^9}},
CellLabel->"In[109]:=",
CellID->1206923384],
Cell[BoxData[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\
\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\
\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\
\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\[LeftSkeleton]", "934", "\[RightSkeleton]"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]}]]}]}],
",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]}],
",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\",\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\\
*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\
\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\
\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\
\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\
\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\
\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\
\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\
\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\
\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\
\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\
\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\
\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\
\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[\
{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\
\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\
\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}]}],
"\[RightAssociation]"}],
Short[#, 500]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.89088985485907*^9, 3.890889868261868*^9}, {
3.890890417315392*^9, 3.890890430744739*^9}},
CellLabel->"Out[109]//Short=",
CellID->802194069]
}, Open ]],
Cell["\<\
Show the list of all Bianchi identities asserting the symmetries of the \
covariant derivative of the Riemann curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890443691182*^9, 3.890890448662381*^9}, {
3.890890505430318*^9, 3.890890532058796*^9}},
CellID->573381817],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890533074992*^9, 3.890890535747213*^9}},
CellLabel->"In[343]:=",
CellID->187753886],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",",
TemplateBox[{"1007"},
"OutputSizeLimit`Skeleton"], ",", "True", ",", "True", ",",
"True", ",",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}]}], "\[Equal]", "0"}], ",", "True",
",",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "4"], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
"+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}]}], "\[Equal]", "0"}], ",",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "3"], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}]}], "\[Equal]", "0"}], ",",
"True"}], "}"}],
Short[#, 20]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 343, 34196384119125329787, 20/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 343, 34196384119125329787, 20 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 343, 34196384119125329787, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34196384119125329787 === $SessionID,
Out[343], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890890536323311*^9, 3.8918459369205313`*^9,
3.891851577057069*^9},
CellLabel->"Out[343]=",
CellID->976642512]
}, Open ]],
Cell["\<\
Show that the Bianchi identities for the FLRW metric all hold identically:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890544385785*^9, 3.890890550170751*^9}},
CellID->526358262],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"FullSimplify", "[", "%", "]"}], ",", "20"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890550926983*^9, 3.890890556629796*^9}, {
3.891845944449544*^9, 3.8918459511184387`*^9}, {3.891851581566598*^9,
3.891851585470327*^9}},
CellLabel->"In[345]:=",
CellID->1142498369],
Cell[BoxData[
TagBox[
RowBox[{"{",
RowBox[{
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
RowBox[{"\[LeftSkeleton]", "772", "\[RightSkeleton]"}], ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True",
",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",",
"True", ",", "True", ",", "True", ",", "True"}], "}"}],
Short[#, 20]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{
3.890890556920966*^9, 3.891845951408687*^9, {3.891851582491444*^9,
3.891851585711899*^9}},
CellLabel->"Out[345]//Short=",
CellID->2113095457]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Union", "[",
RowBox[{"FullSimplify", "[",
RowBox[{"riemann", "[", "\"\\"", "]"}], "]"}],
"]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8918459549148483`*^9, 3.8918460041378393`*^9}},
CellLabel->"In[346]:=",
CellID->2042852708],
Cell[BoxData[
RowBox[{"{", "True", "}"}]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.8918459673646603`*^9, 3.891846004643126*^9},
3.891851588352459*^9},
CellLabel->"Out[346]=",
CellID->1321445430]
}, Open ]],
Cell["\<\
Raise the second index of the Riemann curvature tensor for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890568833376*^9, 3.890890580374654*^9}},
CellID->1969166025],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{"metric", ",", "False", ",", "False", ",", "True", ",", "True"}],
"]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890581088163*^9, 3.890890590271887*^9}},
CellLabel->"In[114]:=",
CellID->1983280456],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2GOnH9gzYAW4xHGZQ6r51FI/UP4ingYALkAr
9A==
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\[FormalSigma]\""}, "Subsuperscript",
SyntaxForm -> SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2GOnH9gzYAW4xHGZQ6r51FI/UP4ingYALkAr
9A==
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\[FormalSigma]\""}, "Subsuperscript",
SyntaxForm -> SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{-1, 0,
0, 0}, {0, (1 - "\[FormalK]" "\[FormalR]"^2)^(-1)
"\[FormalA]"["\[FormalT]"]^2, 0, 0}, {
0, 0, "\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2, 0}, {
0, 0, 0, ("\[FormalR]"^2 "\[FormalA]"["\[FormalT]"]^2)
Sin["\[FormalTheta]"]^2}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, False, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.890890590779044*^9, 3.8908906042907057`*^9}},
CellLabel->"Out[114]=",
CellID->1423572838]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann2", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908905919295187`*^9, 3.890890619725153*^9}},
CellLabel->"In[115]:=",
CellID->1449071425],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "0"},
{"0",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]]},
{"0", "0", "0", "0"},
{"0",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0"},
{"0",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]]},
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]},
{"0", "0", "0", "0"},
{"0",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]]},
{"0", "0",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890890620305901*^9},
CellLabel->"Out[115]//MatrixForm=",
CellID->1096211506]
}, Open ]],
Cell["\<\
Show the explicit array form, with all algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908906308948107`*^9, 3.890890636990394*^9}},
CellID->1441076555],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann2", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908906387462997`*^9, 3.890890645065015*^9}},
CellLabel->"In[116]:=",
CellID->1451646939],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0"},
{"0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]},
{"0", "0", "0", "0"},
{"0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
"0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "0"},
{"0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]],
"0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]},
{"0", "0", "0", "0"},
{"0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]},
{"0", "0",
FractionBox[
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890890645485222*^9},
CellLabel->"Out[116]//MatrixForm=",
CellID->1073693481]
}, Open ]],
Cell["\<\
Show the association of all possible index contractions of the Riemann \
curvature tensor (with second index raised) for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8908906727085953`*^9, 3.890890692628717*^9}},
CellID->261249426],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890693597612*^9, 3.890890697254725*^9}},
CellLabel->"In[117]:=",
CellID->1980167114],
Cell[BoxData[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalNu]\"",
"\"\[FormalLambda]\[FormalSigma]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]}],
"}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalNu]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]}],
"}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalLambda]\"",
"\"\[FormalLambda]\[FormalSigma]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]}],
"}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalLambda]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}]}],
"}"}]}], "}"}]}]}], "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908906976493063`*^9},
CellLabel->"Out[117]=",
CellID->1384703787]
}, Open ]],
Cell["\<\
Show the association of all possible index contractions of the Riemann \
curvature tensor (with second index raised) for the FLRW metric, with all \
algebraic equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890701676454*^9, 3.8908907175599337`*^9}},
CellID->436265570],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",\
TaggingRules->{},
CellChangeTimes->{{3.890890718022965*^9, 3.890890723776205*^9}},
CellLabel->"In[118]:=",
CellID->443322606],
Cell[BoxData[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalNu]\"",
"\"\[FormalLambda]\[FormalSigma]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalNu]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalLambda]\"",
"\"\[FormalLambda]\[FormalSigma]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]]}],
",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]}], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalMu]\[FormalLambda]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"3", " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}]], ",",
"0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
FractionBox[
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}], ")"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], "}"}]}], "}"}]}]}], "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8908907241833353`*^9},
CellLabel->"Out[118]=",
CellID->226175810]
}, Open ]],
Cell["\<\
Show the association of all covariant derivatives (i.e. derivatives along \
tangent vectors of the manifold) of the Riemann curvature tensor (with second \
index raised) for the FLRW metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890888045622*^9, 3.890890912965077*^9}, {
3.890890956158801*^9, 3.890890957428527*^9}},
CellID->994627833],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890913675568*^9, 3.890890918207098*^9}},
CellLabel->"In[119]:=",
CellID->396473619],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]]}], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\
\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
TemplateBox[{"969"},
"OutputSizeLimit`Skeleton"], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "3"]}]]}], "-",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "-",
FractionBox[
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}], "-",
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], "-",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "+",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
FractionBox["\<\"\[FormalK]\"\>",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]], "+",
FractionBox[
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"],
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}]]}], ")"}]}],
RowBox[{"\<\"\[FormalR]\"\>", " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "\<\"\[FormalK]\"\>"}], " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], "-",
SuperscriptBox[
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\<\"\[FormalK]\"\>", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"],
" ",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]}], ")"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>",
"]"}], "2"]}]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\
\"\\\\[FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}]}],
"\[RightAssociation]"}],
Short[#, 320]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{51., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 119, 34189971819979907515, 320/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{56., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 119, 34189971819979907515, 320 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{42., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 119, 34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[119], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890890918810204*^9},
CellLabel->"Out[119]=",
CellID->988628457]
}, Open ]],
Cell["\<\
Show the association of all covariant derivatives of the Riemann curvature \
tensor (with second index raised) for the FLRW metric, with all algebraic \
equivalences imposed:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890890930188683*^9, 3.890890952788537*^9}, {
3.89102093230302*^9, 3.891020937314049*^9}},
CellID->797499960],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann2", "[", "\"\\"", "]"}], ",",
"500"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890890959649151*^9, 3.8908909785948353`*^9}},
CellLabel->"In[121]:=",
CellID->601519383],
Cell[BoxData[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\
\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "+",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\
\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}], "-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>",
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"2"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\[LeftSkeleton]", "934", "\[RightSkeleton]"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"3"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \
\\\"Subsuperscript\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>",
"\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \
\\\"Subsuperscript\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>",
"\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \
\\\"Subsuperscript\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>",
"\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \
\\\"Subsuperscript\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>",
"\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \
\\\"Subsuperscript\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>",
"\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
" ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"3"]]}]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalK]\"\>", "+",
SuperscriptBox[
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}], "2"],
"-",
RowBox[{
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}], " ",
RowBox[{
SuperscriptBox["\<\"\[FormalA]\"\>", "\[Prime]\[Prime]",
MultilineFunction->None], "[", "\<\"\[FormalT]\"\>", "]"}]}]}],
")"}]}],
SuperscriptBox[
RowBox[{"\<\"\[FormalA]\"\>", "[", "\<\"\[FormalT]\"\>", "]"}],
"3"]]}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\
\\\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalTheta]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\
\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalR]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[\
FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalR]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\
\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\
\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", Rule[SyntaxForm, \
SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalTheta]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\
\", Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalPhi]\\\\\\\\\
\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\
\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\
\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\\\\\\\\\\\"}]\\\
\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalPhi]\\\\\
\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}]}],
"\[RightAssociation]"}],
Short[#, 500]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.890890965895771*^9, 3.890890979272435*^9}},
CellLabel->"Out[121]//Short=",
CellID->2106996846]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[Cell["\t", "ExampleDelimiter"],
$Line = 0; Null]], "ExampleDelimiter",
TaggingRules->{},
CellID->290651692],
Cell[TextData[{
"Construct the Riemann curvature tensor for the Kerr-Newman metric (e.g. for \
a charged, spinning black hole with symbolic mass ",
Cell[BoxData["\"\<\[FormalCapitalM]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
", symbolic angular momentum ",
Cell[BoxData["\"\<\[FormalCapitalJ]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
" and symbolic electric charge ",
Cell[BoxData["\"\<\[FormalCapitalQ]\>\""], "InlineFormula",
FontFamily->"Source Sans Pro"],
") in Boyer-Lindquist/oblate spheroidal coordinates:"
}], "Text",
TaggingRules->{},
CellChangeTimes->{{3.890891265330288*^9, 3.890891298600326*^9}, {
3.890891335730946*^9, 3.890891335808021*^9}, {3.891020948037274*^9,
3.8910209544102707`*^9}},
CellID->1605174166],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"metric", "=",
RowBox[{
RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[",
"\"\\"", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8908912990811653`*^9, 3.8908913064756603`*^9}},
CellLabel->"In[222]:=",
CellID->1138255478],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox["MetricTensor",
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBR/sSaNHzSHVHAA7Liv0
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBR/sSaNHzSHVHAA7Liv0
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalG]\"", "\"\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}],
RowBox[{
TagBox["\"Symmetric: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["True", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1) (-"\[FormalR]"^2 -
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + (2 "\[FormalR]") "\[FormalCapitalM]" +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Sin["\[FormalTheta]"]^2), 0,
0, (((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2}, {
0, ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi))^(-1) (
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2), 0, 0}, {
0, 0, "\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2,
0}, {(((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2, 0,
0, (("\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1)
Sin["\[FormalTheta]"]^2) (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))
Sin["\[FormalTheta]"]^2)}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890891307280409*^9, 3.891846025014542*^9},
CellLabel->"Out[222]=",
CellID->343863611]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[", "metric", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890891309853055*^9, 3.890891313540368*^9}},
CellLabel->"In[223]:=",
CellID->1757555355],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1) (-"\[FormalR]"^2 -
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + (2 "\[FormalR]") "\[FormalCapitalM]" +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Sin["\[FormalTheta]"]^2), 0,
0, (((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2}, {
0, ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi))^(-1) (
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2), 0, 0}, {
0, 0, "\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2,
0}, {(((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2, 0,
0, (("\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1)
Sin["\[FormalTheta]"]^2) (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))
Sin["\[FormalTheta]"]^2)}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890891317045724*^9, 3.891846028244411*^9},
CellLabel->"Out[223]=",
CellID->1247264025]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890891316302841*^9, 3.890891327827218*^9},
3.8908916398258657`*^9, {3.8908917635151567`*^9, 3.89089176441152*^9}},
CellLabel->"In[126]:=",
CellID->2018791702],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"8", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"2", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "4"]}]]}]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{"8", " ",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], " ", "\[Pi]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}]]}], "0"},
{"0",
FractionBox[
RowBox[{"2", " ",
TemplateBox[{"4"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "3"]}]], "0", "0"},
{
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]], "0", "0",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
TemplateBox[{"4"},
"OutputSizeLimit`Skeleton"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], " ", "\[Pi]"}]}], ")"}]}]}],
")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
RowBox[{"8", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "4"]}]]},
{"0", "0",
FractionBox[
RowBox[{"4", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
TemplateBox[{"4"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"], " ",
"\[Pi]"}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}]}], ")"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "3"]}]], "0"},
{"0",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]], "0", "0"},
{
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ",
TemplateBox[{"3"},
"OutputSizeLimit`Skeleton"]}]}], ")"}], " ", "\[Pi]"}]}],
")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"2", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}]]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}]}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]}]]}], "0"},
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}]], "0", "0"},
{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]],
Short[#, 5]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{51., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 126,
34189971819979907515, 5/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{56., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 126,
34189971819979907515, 5 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{42., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 126,
34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{77., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[126], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.890891638079878*^9, 3.890891642873022*^9},
3.8908925702335176`*^9},
CellLabel->"Out[126]//MatrixForm=",
CellID->11044731]
}, Open ]],
Cell["\<\
Extract (and simplify) the time-radial-time-radial component of the Riemann \
curvature tensor for the Kerr-Newman metric:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890906552273073*^9, 3.890906565760841*^9}},
CellID->643682755],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann", "[",
RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], "//",
"Simplify"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906497073781*^9, 3.8909065438209267`*^9}},
CellLabel->"In[131]:=",
CellID->1044485066],
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{"24", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{"24", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "4"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{"108", " ", "\<\"\[FormalR]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"],
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}], "-",
RowBox[{"16", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "3"], " ", "\[Pi]"}], "+",
RowBox[{"64", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "5"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ", "\[Pi]"}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"24", " ", "\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ", "\[Pi]"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"14", " ", "\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ", "\[Pi]"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}], ")"}]}],
")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ", "\[Pi]"}], "-",
RowBox[{"8", " ", "\<\"\[FormalR]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "3"], " ", "\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ", "\[Pi]"}]}],
")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}], ")"}],
"3"]}], ")"}]}]], "Output",
TaggingRules->{},
CellChangeTimes->{{3.890906505138261*^9, 3.890906546647808*^9}},
CellLabel->"Out[131]=",
CellID->719784558]
}, Open ]],
Cell["\<\
Compute the covariant form of the Riemann curvature tensor (with all indices \
lowered):\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890906576513091*^9, 3.890906584540194*^9}},
CellID->893981037],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "=",
RowBox[{"riemann", "[", "\"\\"", "]"}]}]], "Input",\
TaggingRules->{},
CellChangeTimes->{{3.8909065851698313`*^9, 3.8909065925280724`*^9}},
CellLabel->"In[224]:=",
CellID->694216708],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Covariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
SubscriptBox[
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1) (-"\[FormalR]"^2 -
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + (2 "\[FormalR]") "\[FormalCapitalM]" +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Sin["\[FormalTheta]"]^2), 0,
0, (((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2}, {
0, ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi))^(-1) (
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2), 0, 0}, {
0, 0, "\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2,
0}, {(((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2, 0,
0, (("\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1)
Sin["\[FormalTheta]"]^2) (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))
Sin["\[FormalTheta]"]^2)}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], True, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890906595574339*^9, 3.891846032591511*^9},
CellLabel->"Out[224]=",
CellID->1981768274]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann2", "[", "\"\\"", "]"}], ",",
"25"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8909065940199738`*^9, 3.890906598846323*^9}, {
3.891846046789049*^9, 3.89184604736094*^9}, {3.891846272851637*^9,
3.891846274143363*^9}, {3.891846323364108*^9, 3.891846323821578*^9}, {
3.8918463556272984`*^9, 3.891846360575766*^9}, {3.8918464610139513`*^9,
3.891846508624192*^9}},
CellLabel->"In[232]:=",
CellID->17293573],
Cell[BoxData[
TagBox[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{
"8", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"108", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "+",
RowBox[{"8", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "\<\"\[FormalR]\"\>"}], "+",
RowBox[{"4", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"12", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"4", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
"16", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"7", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"12", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}], ",",
RowBox[{"-",
FractionBox[
RowBox[{"6", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}]]}], ",", "0"}], "}"}], ",",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "3"]}]],
",", "0", ",", "0", ",",
FractionBox[
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
RowBox[{"\[Pi]", " ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]]}], "}"}],
",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "-",
RowBox[{"6", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "+",
RowBox[{"8", " ",
RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], " ",
"\[Pi]"}], "+",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "+",
RowBox[{"8", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"4", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]"}], "-",
RowBox[{
"48", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"4", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
")"}], "/",
RowBox[{"(",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}], ",",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], "-",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}],
")"}], " ",
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}],
" ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], "2"],
" ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}],
")"}], "3"]}]]}], ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
")"}], "/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ", "\[Pi]",
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "2"]}]], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "2"]}]]}], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
")"}], "/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}], ",", "0", ",", "0", ",", "0"}],
"}"}]}], "}"}]}], "}"}], ",",
RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "}"}],
Short[#, 25]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{
3.89090667664356*^9, 3.891846045906505*^9, 3.891846128402348*^9,
3.891846294181196*^9, 3.891846328596608*^9, 3.891846363733324*^9, {
3.8918464650816793`*^9, 3.891846511657261*^9}},
CellLabel->"Out[232]//Short=",
CellID->483000423]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906600788397*^9, 3.890906604198316*^9}},
CellLabel->"In[134]:=",
CellID->627048158],
Cell[BoxData["True"], "Output",
TaggingRules->{},
CellChangeTimes->{3.890906677273387*^9},
CellLabel->"Out[134]=",
CellID->594258705]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906604634336*^9, 3.8909066081023684`*^9}},
CellLabel->"In[135]:=",
CellID->1905695112],
Cell[BoxData[
SubscriptBox["\<\"\[FormalCapitalR]\"\>", "\<\"\[FormalRho]\[FormalSigma]\
\[FormalMu]\[FormalNu]\"\>"]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890906677504162*^9},
CellLabel->"Out[135]=",
CellID->1907096385]
}, Open ]],
Cell["\<\
Show that no index contractions are possible for the Riemann curvature tensor \
in covariant form:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890906614952673*^9, 3.890906625022358*^9}},
CellID->62759424],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann2", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.89090662604602*^9, 3.8909066289687643`*^9}},
CellLabel->"In[136]:=",
CellID->253373093],
Cell[BoxData[
RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8909066809410553`*^9},
CellLabel->"Out[136]=",
CellID->1375511220]
}, Open ]],
Cell["\<\
Compute the contravariant form of the Riemann curvature tensor (with all \
indices raised):\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8909066304664793`*^9, 3.890906642818781*^9}},
CellID->1715112409],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann3", "=",
RowBox[{
"riemann", "[", "\"\\"", "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906644756042*^9, 3.890906651075015*^9}},
CellLabel->"In[233]:=",
CellID->1819628457],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Contravariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""},
"Superscript", SyntaxForm -> SuperscriptBox],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Contravariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""},
"Superscript", SyntaxForm -> SuperscriptBox],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1) (-"\[FormalR]"^2 -
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + (2 "\[FormalR]") "\[FormalCapitalM]" +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Sin["\[FormalTheta]"]^2), 0,
0, (((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2}, {
0, ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi))^(-1) (
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2), 0, 0}, {
0, 0, "\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2,
0}, {(((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2, 0,
0, (("\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1)
Sin["\[FormalTheta]"]^2) (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))
Sin["\[FormalTheta]"]^2)}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, False, False, False],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.89090713335461*^9, 3.8918476373904*^9},
CellLabel->"Out[233]=",
CellID->998564825]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann3", "[", "\"\\"", "]"}], ",",
"25"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906651852941*^9, 3.890906683613592*^9}, {
3.891847274254026*^9, 3.8918472765940638`*^9}},
CellLabel->"In[234]:=",
CellID->1937819296],
Cell[BoxData[
TagBox[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "6"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{
"8", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "6"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"108", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"19", " ", "\<\"\[FormalR]\"\>"}], "+",
RowBox[{"5", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"31", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"6", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}]}], "+",
RowBox[{"4", " ",
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"], "+",
RowBox[{"12", " ",
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], " ",
"\[Pi]"}], "+",
RowBox[{"16", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"],
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "\<\"\[FormalR]\"\>"}], "+",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"]}], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], "+",
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"3", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"]}]}],
")"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
"16", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"6", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"]}], "+",
RowBox[{"13", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"7", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"]}]}],
")"}], " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "5"]}], ")"}]}], ",",
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"24", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "5"]}], ")"}]}], ")"}]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}],
"5"]}]], ",", "0", ",", "0", ",",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], "5"], " ",
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}]}],
RowBox[{
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}],
"5"]}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
RowBox[{"(",
RowBox[{
RowBox[{"8", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"18", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}],
"2"]}], "+",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}],
")"}], " ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], " ",
"\[Pi]"}], "+",
RowBox[{
"48", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ", "\<\"\[FormalR]\"\>"}], "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}]}],
")"}], " ",
SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "5"]}], ")"}]}], ",",
FractionBox[
RowBox[{"8", " ",
RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], " ",
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], "2"],
" ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}],
")"}], "5"]}]], ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
RowBox[{"(",
RowBox[{"8", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{"8", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "4"]}]]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{"8", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>", " ", "\<\"\[FormalCapitalM]\"\>",
" ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}]}],
"+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ", "\[Pi]",
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "4"]}]], ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "\<\"\[FormalTheta]\"\>", "]"}], "2"]}],
")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\<\"\[FormalR]\"\>", " ",
RowBox[{"(",
RowBox[{"\<\"\[FormalR]\"\>", "-",
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}]}], ")"}],
" ", "\[Pi]"}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "3"]}], ")"}]}], ")"}]}], ",", "0", ",", "0", ",",
"0"}], "}"}]}], "}"}]}], "}"}], ",",
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}]}], "}"}],
Short[#, 25]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890907641857388*^9, 3.891848117862795*^9},
CellLabel->"Out[234]//Short=",
CellID->294312470]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann3", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8909066854021387`*^9, 3.890906692769034*^9}},
CellLabel->"In[139]:=",
CellID->1963865162],
Cell[BoxData["True"], "Output",
TaggingRules->{},
CellChangeTimes->{3.8909076422956667`*^9},
CellLabel->"Out[139]=",
CellID->271269646]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann3", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8909066933554373`*^9, 3.8909066949962606`*^9}},
CellLabel->"In[140]:=",
CellID->1481500433],
Cell[BoxData[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""},
"Superscript"]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890907642515167*^9},
CellLabel->"Out[140]=",
CellID->121157741]
}, Open ]],
Cell["\<\
Show that no index contractions are possible for the Riemann curvature tensor \
in contravariant form:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890906696446494*^9, 3.8909067067629547`*^9}},
CellID->1757223338],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann3", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906707550686*^9, 3.890906717044297*^9}},
CellLabel->"In[141]:=",
CellID->1161202564],
Cell[BoxData[
RowBox[{"\[LeftAssociation]", "\[RightAssociation]"}]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890907645158909*^9},
CellLabel->"Out[141]=",
CellID->578088430]
}, Open ]],
Cell["\<\
Compute a mixed form of the Riemann curvature tensor with first and last \
indices raised/contravariant and the second and third indices \
lowered/covariant:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8909067346840687`*^9, 3.890906750816394*^9}},
CellID->1491365203],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann4", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{"riemann", ",", "False", ",", "True", ",", "True", ",", "False"}],
"]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.89090675174037*^9, 3.890906760939313*^9}},
CellLabel->"In[142]:=",
CellID->1985390918],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalMu]\"",
"\"\[FormalRho]\[FormalNu]\""}, "Subsuperscript",
SyntaxForm -> SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalMu]\"",
"\"\[FormalRho]\[FormalNu]\""}, "Subsuperscript",
SyntaxForm -> SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalR]\"", ",",
"\"\[FormalTheta]\"", ",", "\"\[FormalPhi]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1) (-"\[FormalR]"^2 -
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + (2 "\[FormalR]") "\[FormalCapitalM]" +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Sin["\[FormalTheta]"]^2), 0,
0, (((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2}, {
0, ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi))^(-1) (
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2), 0, 0}, {
0, 0, "\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2,
0}, {(((-"\[FormalCapitalJ]") (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))/
"\[FormalCapitalM]") + ("\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))/(
"\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)) Sin["\[FormalTheta]"]^2, 0,
0, (("\[FormalR]"^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos["\[FormalTheta]"]^2)^(-1)
Sin["\[FormalTheta]"]^2) (("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) ("\[FormalR]"^2 +
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) - (2 "\[FormalR]")
"\[FormalCapitalM]" + Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi)))
Sin["\[FormalTheta]"]^2)}}, {
"\[FormalT]", "\[FormalR]", "\[FormalTheta]", "\[FormalPhi]"}, True,
True], False, True, True, False],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890907658104817*^9},
CellLabel->"Out[142]=",
CellID->1830195204]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann4", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906761752837*^9, 3.890906766252284*^9}},
CellLabel->"In[143]:=",
CellID->805373382],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"8", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}], ")"}],
" ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalR]\"\>",
" ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]"}]}],
")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}],
RowBox[{
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], "4"]}]], "0", "0",
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], " ", "\[Pi]"}]}], ")"}]}],
"+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "\<\"\[FormalTheta]\"\>"}], "]"}]}]}],
")"}], " ",
RowBox[{"Cot", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]}], ")"}], "4"]}]]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "3"]}]]}], "0"},
{"0",
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], "0", "0"},
{
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "0", "0",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]],
Short[#, 5]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 143,
34189971819979907515, 5/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 143,
34189971819979907515, 5 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 143,
34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{77., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[143], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890908677878457*^9},
CellLabel->"Out[143]//MatrixForm=",
CellID->436019698]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann4", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906775511178*^9, 3.890906778435175*^9}},
CellLabel->"In[144]:=",
CellID->656180587],
Cell[BoxData["True"], "Output",
TaggingRules->{},
CellChangeTimes->{3.8909086781550713`*^9},
CellLabel->"Out[144]=",
CellID->2063191317]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann4", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906778854525*^9, 3.890906781775866*^9}},
CellLabel->"In[145]:=",
CellID->376909802],
Cell[BoxData[
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalMu]\"",
"\"\[FormalRho]\[FormalNu]\""},
"Subsuperscript"]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890908678363872*^9},
CellLabel->"Out[145]=",
CellID->1786233808]
}, Open ]],
Cell["\<\
Show that index contractions are only possible for the Riemann curvature \
tensor in mixed form:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.89090678283377*^9, 3.8909067914733877`*^9}, {
3.890906846826323*^9, 3.890906846977097*^9}},
CellID->1624002870],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann4", "[", "\"\\"", "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906792184062*^9, 3.89090679902142*^9}},
CellLabel->"In[146]:=",
CellID->447097783],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalMu]\"",
"\"\[FormalLambda]\[FormalNu]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{
FractionBox[
RowBox[{
FractionBox[
RowBox[{"2", " ", "\<\"\[FormalR]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], "2"]}]], "-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}]], "-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
TemplateBox[{"3"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"Sin", "[", "\<\"\[FormalTheta]\"\>", "]"}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "2"]}]]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\<\"\[FormalTheta]\"\>", "]"}],
"2"]}],
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]]}]], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], "+",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]]}]], "+",
FractionBox[
RowBox[{
TemplateBox[{"20"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]}],
RowBox[{
SuperscriptBox["\<\"\[FormalR]\"\>", "2"], "+",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "2"]}],
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"]]}]]}],
",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], ",", "0"}], "}"}], ",",
RowBox[{"{",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "}"}]}], "}"}]}], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalLambda]\[FormalMu]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "}"}], ",",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], ",",
RowBox[{"{",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "}"}]}], "}"}]}], ",",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ",",
RowBox[{
TemplateBox[{
"\"\[FormalCapitalR]\"", "\"\[FormalSigma]\[FormalLambda]\"",
"\"\[FormalRho]\[FormalLambda]\""},
"Subsuperscript"], "\[Rule]",
RowBox[{"{",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "}"}]}]}], "\[RightAssociation]"}],
Short[#, 5]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{51., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 146, 34189971819979907515, 5/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{56., {0., 8.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 146, 34189971819979907515, 5 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
OutputSizeLimit`Defer, 146, 34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[146], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890908691550701*^9},
CellLabel->"Out[146]=",
CellID->500938929]
}, Open ]],
Cell["Transform to use the new coordinate symbols t, r, a1 and a2:", "Text",
TaggingRules->{},
CellChangeTimes->{{3.890906849287218*^9, 3.890906855493945*^9}},
CellID->1841429097],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann5", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{"riemann", ",",
RowBox[{"{",
RowBox[{"t", ",", "r", ",", "a1", ",", "a2"}], "}"}]}], "]"}]}]], "Input",\
TaggingRules->{},
CellChangeTimes->{{3.890906856508247*^9, 3.890906868960167*^9}},
CellLabel->"In[147]:=",
CellID->1721683592],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBaSKf7DHTo+ag0scAKF1HWA=
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"t", ",", "r", ",", "a1", ",", "a2"}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{($\
CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2)^(-1) ((-"\[FormalCapitalJ]"^2)
"\[FormalCapitalM]"^(-2) +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + (2
"\[FormalCapitalM]") $CellContext`r - $CellContext`r^2 + (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Sin[$CellContext`a1]^2), 0,
0, ((((-"\[FormalCapitalJ]")/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2) + (
"\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + \
$CellContext`r^2))/($CellContext`r^2 + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Cos[$CellContext`a1]^2))
Sin[$CellContext`a1]^2}, {
0, ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + $CellContext`r^2)^(-1) \
($CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2), 0, 0}, {
0, 0, $CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2,
0}, {((((-"\[FormalCapitalJ]")/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2) + (
"\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + \
$CellContext`r^2))/($CellContext`r^2 + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Cos[$CellContext`a1]^2))
Sin[$CellContext`a1]^2, 0,
0, (($CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2)^(-1)
Sin[$CellContext`a1]^2) ((
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2)^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + $CellContext`r^2))
Sin[$CellContext`a1]^2)}}, {$CellContext`t, $CellContext`r, \
$CellContext`a1, $CellContext`a2}, True, True], False, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890908694987569*^9},
CellLabel->"Out[147]=",
CellID->1080818118]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"riemann5", "[", "\"\\"", "]"}], "//",
"MatrixForm"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906869388916*^9, 3.890906874407468*^9}},
CellLabel->"In[149]:=",
CellID->515528750],
Cell[BoxData[
InterpretationBox[
TagBox[
FrameBox[GridBox[{
{
ItemBox[
TagBox[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"8", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "a1", "]"}], "2"]}],
RowBox[{"2", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "4"]}]]}]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"8", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "a1"}], "]"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+", "r"}], ")"}]}]}],
")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "3"]}]]}],
"0"},
{"0",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
TemplateBox[{"3"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "a1"}], "]"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "3"]}]], "0", "0"},
{
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\<\"\[FormalCapitalM]\"\>"}],
"+", "r"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "a1"}], "]"}]}],
RowBox[{"2", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "3"]}]]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{"12", " ",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], " ", "r"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}]}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]}], ")"}], "2"]}]]}], "0"},
{"0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}]}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "2"]}]], "0", "0"},
{
RowBox[{"-",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]]}], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"4", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"Cos", "[", "a1", "]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[", "a1", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "3"]}]]}]},
{"0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{"12", " ",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], " ", "r"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}]}],
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]}], ")"}], "2"]}]], "0"},
{"0",
RowBox[{"-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "0", "0"},
{
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
RowBox[{"\[Pi]", " ",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}]], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"},
{"0", "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]},
{
RowBox[{"(", "\[NoBreak]", GridBox[{
{"0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "+",
RowBox[{"2", " ",
TemplateBox[{"2"},
"OutputSizeLimit`Skeleton"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"4", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}]}],
RowBox[{"2", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "4"]}]]},
{"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"4", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], " ",
RowBox[{"Cot", "[", "a1", "]"}]}],
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], ")"}], "3"]}]]}], "0"},
{"0",
FractionBox[
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"],
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]], "0", "0"},
{
RowBox[{"-",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"]}], "0", "0", "0"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}],
RowBox[{"(", "\[NoBreak]",
TemplateBox[{"1"},
"OutputSizeLimit`Skeleton"], "\[NoBreak]", ")"}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]],
Short[#, 5]& ],
BaseStyle->{Deployed -> False},
StripOnInput->False]},
{GridBox[{
{
PaneBox[
TagBox[
TooltipBox[
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource[
"FEStrings", "sizeBriefExplanation"], StandardForm],
ImageSizeCache->{71.02125, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
StripOnInput->False],
StyleBox[
DynamicBox[
ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
StandardForm]], DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}, StripOnInput -> False]],
Annotation[#,
Style[
Dynamic[
FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
DynamicUpdating -> True, LineIndent -> 0,
LinebreakAdjustments -> {1., 100, 0, 0, 0},
LineSpacing -> {1, 2}], "Tooltip"]& ],
Alignment->Center,
BaselinePosition->Baseline,
ImageSize->{Automatic, {25, Full}}],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm],
ImageSizeCache->{63.067499999999995`, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 149,
34189971819979907515, 5/2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm],
ImageSizeCache->{71.00999999999999, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 149,
34189971819979907515, 5 2],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm],
ImageSizeCache->{53.28, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Composition[OutputSizeLimit`Defer,
Function[{OutputSizeLimit`Dump`x$},
MatrixForm[OutputSizeLimit`Dump`x$]]], 149,
34189971819979907515, Infinity],
Enabled->True,
Evaluator->Automatic,
Method->"Queued"],
ButtonBox[
PaneSelectorBox[{False->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm],
ImageSizeCache->{95.9625, {3., 11.}}],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
StripOnInput->False], True->
StyleBox[
StyleBox[
DynamicBox[ToBoxes[
FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
StandardForm]],
StripOnInput->False,
DynamicUpdating->True,
LineSpacing->{1, 2},
LineIndent->0,
LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
StripOnInput->False]}, Dynamic[
CurrentValue["MouseOver"]],
Alignment->Center,
FrameMargins->0,
ImageSize->{Automatic, {25, Full}}],
Appearance->None,
BaselinePosition->Baseline,
ButtonFunction:>FrontEndExecute[{
FrontEnd`SetOptions[
FrontEnd`$FrontEnd,
FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}],
FrontEnd`FrontEndToken["PreferencesDialog"]}],
Evaluator->None,
Method->"Preemptive"]}
},
AutoDelete->False,
FrameStyle->GrayLevel[0.85],
GridBoxDividers->{"Columns" -> {False, {True}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{2}}}]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2],
Offset[1.2], {
Offset[0.4]},
Offset[0.2]}}],
BaseStyle->"OutputSizeLimit",
FrameMargins->{{12, 12}, {0, 15}},
FrameStyle->GrayLevel[0.85],
RoundingRadius->5,
StripOnInput->False],
Deploy,
DefaultBaseStyle->"Deploy"],
If[34189971819979907515 === $SessionID,
Out[149], Message[
MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"];
Null]]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890908806551283*^9, 3.8909098481509743`*^9},
CellLabel->"Out[149]//MatrixForm=",
CellID->500875095]
}, Open ]],
Cell["\<\
Transform to use the new coordinate symbols t, r, a1 and a2, and raise all \
indices, simultaneously:\
\>", "Text",
TaggingRules->{},
CellChangeTimes->{{3.8909068808650084`*^9, 3.890906893801929*^9}},
CellID->587967621],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann6", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{"riemann", ",",
RowBox[{"{",
RowBox[{"t", ",", "r", ",", "a1", ",", "a2"}], "}"}], ",", "False", ",",
"False", ",", "False", ",", "False"}], "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906894455673*^9, 3.8909069008209677`*^9}},
CellLabel->"In[235]:=",
CellID->706506813],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Contravariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""},
"Superscript", SyntaxForm -> SuperscriptBox],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwIe2DNgBQMl/sEeOz1Q5tBOHAAY7BiE
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Contravariant\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalRho]\[FormalSigma]\[FormalMu]\[FormalNu]\""},
"Superscript", SyntaxForm -> SuperscriptBox],
"SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{"t", ",", "r", ",", "a1", ",", "a2"}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{($\
CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2)^(-1) ((-"\[FormalCapitalJ]"^2)
"\[FormalCapitalM]"^(-2) +
Rational[-1, 4] ("\[FormalCapitalQ]"^2/Pi) + (2
"\[FormalCapitalM]") $CellContext`r - $CellContext`r^2 + (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Sin[$CellContext`a1]^2), 0,
0, ((((-"\[FormalCapitalJ]")/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2) + (
"\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + \
$CellContext`r^2))/($CellContext`r^2 + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Cos[$CellContext`a1]^2))
Sin[$CellContext`a1]^2}, {
0, ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + $CellContext`r^2)^(-1) \
($CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2), 0, 0}, {
0, 0, $CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2,
0}, {((((-"\[FormalCapitalJ]")/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2) + (
"\[FormalCapitalJ]"/"\[FormalCapitalM]") (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + \
$CellContext`r^2))/($CellContext`r^2 + ("\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2)) Cos[$CellContext`a1]^2))
Sin[$CellContext`a1]^2, 0,
0, (($CellContext`r^2 + ("\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2))
Cos[$CellContext`a1]^2)^(-1)
Sin[$CellContext`a1]^2) ((
"\[FormalCapitalJ]"^2
"\[FormalCapitalM]"^(-2) + $CellContext`r^2)^2 - ((
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2)) (
"\[FormalCapitalJ]"^2 "\[FormalCapitalM]"^(-2) +
Rational[1, 4] ("\[FormalCapitalQ]"^2/Pi) - (2
"\[FormalCapitalM]") $CellContext`r + $CellContext`r^2))
Sin[$CellContext`a1]^2)}}, {$CellContext`t, $CellContext`r, \
$CellContext`a1, $CellContext`a2}, True, True], False, False, False, False],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890910002445775*^9, 3.890910566038237*^9,
3.891848655694998*^9},
CellLabel->"Out[235]=",
CellID->642391485]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann6", "[", "\"\\"", "]"}], ",",
"20"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890906902025251*^9, 3.890906908583519*^9}, {
3.891848245221603*^9, 3.891848248662051*^9}, {3.891849387021779*^9,
3.891849387423526*^9}, {3.891849893798348*^9, 3.891849893895173*^9},
3.891851050236088*^9},
CellLabel->"In[297]:=",
CellID->120839944],
Cell[BoxData[
TagBox[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"32", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
"\[Pi]", " ",
SuperscriptBox["r", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "-",
RowBox[{
"8", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "6"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"108", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"4", " ",
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], " ",
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
")"}]}], "+",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"24", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
"\[Pi]", " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"52", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "-",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "4"], " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "4"], "+",
RowBox[{"16", " ", "\<\"\[FormalCapitalM]\"\>", " ",
SuperscriptBox["\[Pi]", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\<\"\[FormalCapitalM]\"\>"}], "-",
RowBox[{"7", " ", "r"}]}], ")"}], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], " ",
"\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], " ", "\<\"\[FormalCapitalM]\"\>"}],
"+",
RowBox[{"2", " ", "r"}]}], ")"}]}]}], ")"}]}]}], ")"}],
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\<\"\[FormalCapitalM]\"\>"}],
"+", "r"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"4", " ", "a1"}], "]"}]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "5"]}], ")"}]}],
",",
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"24", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Sin", "[",
RowBox[{"2", " ", "a1"}], "]"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "5"]}],
")"}]}], ")"}]}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\[FormalCapitalJ]\"\>", " ",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "4"], " ",
"\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"18", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}],
"2"], " ", "\[Pi]"}], "+",
RowBox[{"\[LeftSkeleton]", "6", "\[RightSkeleton]"}]}],
")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Pi]", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}], "2"],
" ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "5"]}], ")"}]}],
",",
FractionBox[
RowBox[{"8", " ",
RowBox[{"\[LeftSkeleton]", "4", "\[RightSkeleton]"}], " ",
RowBox[{"Cot", "[", "a1", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}],
"5"]}]], ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",",
RowBox[{
RowBox[{"(",
RowBox[{"8", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"]}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "a1", "]"}], "2"]}]}], ")"}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\<\"\[FormalCapitalM]\"\>"}],
"+", "r"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "3"]}],
")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0", ",",
RowBox[{"-",
FractionBox[
RowBox[{"8", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]", " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Cot", "[", "a1", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "4"]}]]}], ",",
"0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
FractionBox[
RowBox[{"8", " ", "\<\"\[FormalCapitalJ]\"\>", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{"\<\"\[FormalCapitalM]\"\>", " ", "r", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"6", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ", "\[Pi]",
" ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
RowBox[{"Cot", "[", "a1", "]"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "4"]}]], ",",
"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "6"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"]}], "+",
RowBox[{
"4", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "-",
RowBox[{
"12", " ", "\<\"\[FormalCapitalM]\"\>", " ", "\[Pi]", " ",
"r"}]}], ")"}], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"Csc", "[", "a1", "]"}], "2"]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
"\[Pi]"}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalQ]\"\>", "2"], "+",
RowBox[{"4", " ", "\[Pi]", " ", "r", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ", "\<\"\[FormalCapitalM]\"\>"}],
"+", "r"}], ")"}]}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], "+",
RowBox[{"2", " ",
SuperscriptBox["\<\"\[FormalCapitalM]\"\>", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{
SuperscriptBox["\<\"\[FormalCapitalJ]\"\>", "2"], " ",
RowBox[{"Cos", "[",
RowBox[{"2", " ", "a1"}], "]"}]}]}], ")"}], "3"]}],
")"}]}], ")"}]}], ",", "0", ",", "0", ",", "0"}], "}"}]}],
"}"}]}], "}"}], ",",
RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], ",",
RowBox[{"\[LeftSkeleton]", "3", "\[RightSkeleton]"}]}], "}"}]}], "}"}],
Short[#, 20]& ]], "Output",
TaggingRules->{},
CellChangeTimes->{3.8909111755467176`*^9, 3.891849187322356*^9,
3.891849880732787*^9, 3.891850283520884*^9, 3.8918515120536327`*^9},
CellLabel->"Out[297]//Short=",
CellID->795575059]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"Scope",
"\[NonBreakingSpace]",
Cell["(3)", "ExampleCount"],
"\[NonBreakingSpace]"
}], "Subsection",
TaggingRules->{},
CellID->964056545],
Cell[TextData[{
"Riemann curvature tensors can be constructed directly from a ",
Cell[BoxData["MetricTensor"], "InlineFormula",
FontFamily->"Source Sans Pro"],
" expression:"
}], "Text",
TaggingRules->{},
CellChangeTimes->{{3.890911340278302*^9, 3.89091134959412*^9},
3.891021011429558*^9},
CellID->1506189710],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"riemann", "=",
RowBox[{
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False], "[",
RowBox[{
RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[",
"\"\\"", "]"}], "]"}]}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.890911350668974*^9, 3.890911362204615*^9}, {
3.891021022096822*^9, 3.89102102458187*^9}, {3.891021214489324*^9,
3.891021215518114*^9}},
CellLabel->"In[270]:=",
CellID->1594215934],
Cell[BoxData[
InterpretationBox[
RowBox[{
TagBox[
InterpretationBox[
TagBox[
TagBox[
DynamicModuleBox[{Typeset`open = False},
FrameBox[
PaneSelectorBox[{False->GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"],
ImageSizeCache->{11., {2., 9.}}], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"],
ImageSizeCache->{11., {2., 9.}}]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627,
0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True->
GridBox[{
{GridBox[{
{
PaneBox[GridBox[{
{
StyleBox[
StyleBox[
AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>",
BoxBaselineShift->-0.25,
BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
FontColor->RGBColor[
0.8745098039215686, 0.2784313725490196,
0.03137254901960784]],
ShowStringCharacters->False,
FontFamily->"Source Sans Pro Black",
FontSize->0.6538461538461539 Inherited,
FontWeight->"Heavy",
PrivateFontOptions->{"OperatorSubstitution"->False}],
StyleBox[
RowBox[{
StyleBox["RiemannTensor", "ResourceFunctionLabel"], " "}],
ShowAutoStyles->False,
ShowStringCharacters->False,
FontSize->Rational[12, 13] Inherited,
FontColor->GrayLevel[0.1]]}
},
GridBoxSpacings->{"Columns" -> {{0.25}}}],
Alignment->Left,
BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False},
BaselinePosition->Baseline,
FrameMargins->{{3, 0}, {0, 0}}],
ItemBox[
PaneBox[
TogglerBox[Dynamic[Typeset`open], {True->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeCloser"]], False->
DynamicBox[FEPrivate`FrontEndResource[
"FEBitmaps", "IconizeOpener"]]},
Appearance->None,
BaselinePosition->Baseline,
ContentPadding->False,
FrameMargins->0],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{1, 1}, {0, 0}}],
Frame->{{
RGBColor[
0.8313725490196079, 0.8470588235294118,
0.8509803921568627, 0.5], False}, {False, False}}]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{
"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]},
{
StyleBox[
PaneBox[GridBox[{
{
RowBox[{
TagBox["\<\"Version (latest): \"\>",
"IconizedLabel"], " ",
TagBox["\<\"1.0.0\"\>",
"IconizedItem"]}]},
{
TagBox[
TemplateBox[{
"\"Documentation \[RightGuillemet]\"",
"https://resources.wolframcloud.com/FunctionRepository/\
resources/f50cb285-5552-466b-a4db-dc9c7924eaf6/"},
"HyperlinkURL"],
"IconizedItem"]}
},
DefaultBaseStyle->"Column",
GridBoxAlignment->{"Columns" -> {{Left}}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
Alignment->Left,
BaselinePosition->Baseline,
FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle",
FontFamily->"Roboto",
FontSize->11]}
},
BaselinePosition->{1, 1},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, {
GrayLevel[0.8]}, False}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
Typeset`open],
BaselinePosition->Baseline,
ImageSize->Automatic],
Background->RGBColor[
0.9686274509803922, 0.9764705882352941, 0.984313725490196],
BaselinePosition->Baseline,
DefaultBaseStyle->{},
FrameMargins->{{0, 0}, {1, 0}},
FrameStyle->RGBColor[
0.8313725490196079, 0.8470588235294118, 0.8509803921568627],
RoundingRadius->4]],
#& ,
TagBoxNote->" "],
{"FunctionResourceBox",
RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784],
"RiemannTensor"},
TagBoxNote->"FunctionResourceBox"],
ResourceFunction["RiemannTensor"],
BoxID -> "RiemannTensor",
Selectable->False],
"SummaryHead"], "[",
DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"},
TemplateBox[{
PaneSelectorBox[{False -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2NOWfmDPgBXgEqeW+dRSTzt/AQBIHCv0
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}], True -> GridBox[{{
PaneBox[
ButtonBox[
DynamicBox[
FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
BaseStyle -> {}, Evaluator -> Automatic, Method ->
"Preemptive"], Alignment -> {Center, Center}, ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
GraphicsBox[
RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBggWIQGwI+2NOWfmDPgBXgEqeW+dRSTzt/AQBIHCv0
"], {{0, 0}, {4, 4}}, {0, 1}], Frame -> False,
FrameLabel -> {None, None},
FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle ->
Directive[
GrayLevel[0.5, 0.4]], ImageSize ->
Dynamic[{
Automatic,
3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}],
Method -> {
"AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" ->
Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2},
"HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultPlotStyle" -> Automatic, "DomainPadding" ->
Scaled[0.02], "RangePadding" -> Scaled[0.05]}],
GridBox[{{
RowBox[{
TagBox["\"Type: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["\"Mixed\"", "SummaryItem"]}],
RowBox[{
TagBox["\"Symbol: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
TemplateBox[{
"\"\[FormalCapitalR]\"",
"\"\[FormalSigma]\[FormalMu]\[FormalNu]\"",
"\"\[FormalRho]\""}, "Subsuperscript", SyntaxForm ->
SubsuperscriptBox], "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Dimensions: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["4", "SummaryItem"]}],
RowBox[{
TagBox["\"Signature: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox["Indeterminate", "SummaryItem"]}]}, {
RowBox[{
TagBox["\"Coordinates: \"", "SummaryItemAnnotation"],
"\[InvisibleSpace]",
TagBox[
RowBox[{"{",
RowBox[{
"\"\[FormalT]\"", ",", "\"\[FormalX]\"", ",",
"\"\[FormalY]\"", ",", "\"\[FormalZ]\""}], "}"}],
"SummaryItem"]}], ""}},
GridBoxAlignment -> {
"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete ->
False, GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
BaseStyle -> {
ShowStringCharacters -> False, NumberMarks -> False,
PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
BaselinePosition -> {1, 1}]},
Dynamic[Typeset`open$$], ImageSize -> Automatic]},
"SummaryPanel"],
DynamicModuleValues:>{}], "]"}],
$CellContext`RiemannTensor[
FunctionRepository`$e8bf75f345d9428d8514b42f99452556`MetricTensor[{{
Rational[-1, 2] "\[FormalOmega]"^(-2),
0, (Rational[-1, 2] "\[FormalOmega]"^(-2)) E^"\[FormalX]", 0}, {
0, Rational[1, 2] "\[FormalOmega]"^(-2), 0,
0}, {(Rational[-1, 2] "\[FormalOmega]"^(-2)) E^"\[FormalX]",
0, (Rational[-1, 4] "\[FormalOmega]"^(-2)) E^(2 "\[FormalX]"), 0}, {
0, 0, 0, Rational[1, 2] "\[FormalOmega]"^(-2)}}, {
"\[FormalT]", "\[FormalX]", "\[FormalY]", "\[FormalZ]"}, True, True],
False, True, True, True],
Editable->False,
SelectWithContents->True,
Selectable->False]], "Output",
TaggingRules->{},
CellChangeTimes->{3.890911362666401*^9, 3.890976994056202*^9,
3.891021026609668*^9, 3.891021215937566*^9},
CellLabel->"Out[270]=",
CellID->1393022331]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Short", "[",
RowBox[{
RowBox[{"riemann", "[", "\"\\"", "]"}], ",",
"500"}], "]"}]], "Input",
TaggingRules->{},
CellChangeTimes->{{3.8909113659858418`*^9, 3.890911427124936*^9}, {
3.890976995300146*^9, 3.8909770121162453`*^9}, {3.891021037548789*^9,
3.891021048153665*^9}, {3.89102109180165*^9, 3.8910211362129507`*^9}, {
3.89102121963988*^9, 3.89102122200117*^9}},
CellLabel->"In[271]:=",
CellID->1918095024],
Cell[BoxData[
TagBox[
RowBox[{"\[LeftAssociation]",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalX]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalT]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalY]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalZ]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalT]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>", "\[Rule]", "0"}], ",",
RowBox[{"\[LeftSkeleton]", "931", "\[RightSkeleton]"}], ",",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\\"\\\\\\\"\[Del]\\\\\\\"\\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\[FormalZ]\\\\\\\\\\\
\\\\\"}]\\\\\\\\)\\\\\\\"\\\"]\\)\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"\\\\[\
FormalCapitalR]\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalX]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\
\\[FormalT]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\
\\\\\\\\\\\"\\\\[FormalY]\\\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"\\\\[FormalZ]\\\
\\\\\\\\\\\\\"}]\\\\\\\\)\\\\\\\"\\\"], \\\"Subsuperscript\\\", \
Rule[SyntaxForm, SubsuperscriptBox]]\\)\"\>"