(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 120404, 2604]
NotebookOptionsPosition[ 116922, 2484]
NotebookOutlinePosition[ 117266, 2499]
CellTagsIndexPosition[ 117223, 2496]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Appendix 1", "Subsection",
CellChangeTimes->{{3.671599444963106*^9, 3.6715994528381057`*^9},
3.671599488838135*^9, 3.671669788541832*^9}],
Cell[CellGroupData[{
Cell["A1B. Convergence of the Fresnel Integral", "Subsubsection",
CellChangeTimes->{{3.6715994948225136`*^9, 3.671599523335167*^9}, {
3.671666540881217*^9, 3.671666544459351*^9}, {3.6716698420263357`*^9,
3.6716698435732145`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"OO", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";",
RowBox[{"R", "=", "1"}], ";",
RowBox[{"\[Phi]", "=",
RowBox[{"\[Pi]", "/", "4"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"Graphics", "[", " ",
RowBox[{
RowBox[{"{", " ",
RowBox[{"Red", ",",
RowBox[{"Thickness", "[", ".01", "]"}], ",",
RowBox[{"Arrowheads", "[", ".1", "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{"OO", ",",
RowBox[{"{",
RowBox[{
RowBox[{"R", "/", "2"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"Line", "[",
RowBox[{"{", " ",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"R", "/", "2"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"R", ",", "0"}], "}"}]}], "}"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Circle", "[",
RowBox[{"OO", ",", "R", ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"\[Pi]", "/", "4"}]}], "}"}]}], "]"}], ",",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{
RowBox[{"R",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"\[Phi]", "/", "2.1"}], "]"}], ",",
RowBox[{"Sin", "[",
RowBox[{"\[Phi]", "/", "2.1"}], "]"}]}], "}"}]}], ",",
RowBox[{"R",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"\[Phi]", "/", "2"}], "]"}], ",",
RowBox[{"Sin", "[",
RowBox[{"\[Phi]", "/", "2"}], "]"}]}], "}"}]}]}], "}"}], "]"}],
",", "\[IndentingNewLine]",
RowBox[{"Arrow", "[",
RowBox[{"{",
RowBox[{
RowBox[{"R",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Phi]", "]"}], ",",
RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "}"}]}], ",",
RowBox[{
FractionBox["R", "2"],
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Phi]", "]"}], ",",
RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "}"}]}]}], "}"}], "]"}],
",", "\[IndentingNewLine]",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["R", "2"],
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Phi]", "]"}], ",",
RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "}"}]}], ",", "OO"}], "}"}],
"]"}], ",", "\[IndentingNewLine]",
RowBox[{"Text", "[", " ",
RowBox[{"\"\<\!\(\*
StyleBox[\"0\",
FontSize->24]\)\>\"", ",",
RowBox[{"OO", "-",
RowBox[{".05",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}]}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Text", "[", " ",
RowBox[{"\"\<\!\(\*
StyleBox[\"A\",
FontSize->24,
FontSlant->\"Italic\"]\)\>\"", ",",
RowBox[{
RowBox[{"{",
RowBox[{"R", ",", "0"}], "}"}], "-",
RowBox[{".1",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Text", "[", " ",
RowBox[{"\"\<\!\(\*
StyleBox[\"B\",
FontSize->24,
FontSlant->\"Italic\"]\)\>\"", ",",
RowBox[{"1.1", "R",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[", "\[Phi]", "]"}], ",",
RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Text", "[", " ",
RowBox[{"\"\<\!\(\*
StyleBox[\"\[Pi]\",
FontSize->24]\)\!\(\*
StyleBox[\"/\",
FontSize->24]\)\!\(\*
StyleBox[\"4\",
FontSize->24]\)\>\"", ",",
RowBox[{".25", "R",
RowBox[{"{",
RowBox[{
RowBox[{"Cos", "[",
RowBox[{"\[Phi]", "/", "2"}], "]"}], ",",
RowBox[{"Sin", "[",
RowBox[{"\[Phi]", "/", "2"}], "]"}]}], "}"}]}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{", " ",
RowBox[{"\"\<\!\(\*
StyleBox[\"x\",
FontSize->24,
FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\*
StyleBox[\"i\",
FontSize->24,
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSize->24,
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"y\",
FontSize->24,
FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", ".2"}], ",",
RowBox[{"1.1", "R"}]}], "}"}], ",", "Automatic"}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.6716665643187704`*^9, 3.671666943013236*^9}, {
3.671666977528948*^9, 3.6716670611385183`*^9}, {3.6716670929823437`*^9,
3.6716671495606103`*^9}, {3.6716671807325573`*^9, 3.671667301060967*^9}, {
3.6716673313579206`*^9, 3.6716674365456667`*^9}, {3.6716674829364157`*^9,
3.671667559014716*^9}, {3.6716676734082413`*^9, 3.671667772377223*^9}, {
3.6716678093616905`*^9, 3.6716678738462224`*^9}, {3.6716679486120205`*^9,
3.6716680000965195`*^9}}],
Cell[BoxData[
GraphicsBox[
{RGBColor[1, 0, 0], Thickness[0.01], Arrowheads[0.1],
ArrowBox[NCache[{{0, 0}, {Rational[1, 2], 0}}, {{0, 0}, {0.5, 0}}]],
LineBox[NCache[{{Rational[1, 2], 0}, {1, 0}}, {{0.5, 0}, {1, 0}}]],
CircleBox[{0, 0}, 1,
NCache[{0, Rational[1, 4] Pi}, {0, 0.7853981633974483}]],
ArrowBox[NCache[{{0.9308737486442042, 0.365341024366395}, {
Cos[Rational[1, 8] Pi], Sin[Rational[1, 8] Pi]}}, {{0.9308737486442042,
0.365341024366395}, {0.9238795325112867, 0.3826834323650898}}]],
ArrowBox[NCache[{{2^Rational[-1, 2], 2^Rational[-1, 2]}, {
Rational[1, 2] 2^Rational[-1, 2], Rational[1, 2] 2^Rational[-1, 2]}}, {{
0.7071067811865475, 0.7071067811865475}, {0.35355339059327373`,
0.35355339059327373`}}]],
LineBox[NCache[{{
Rational[1, 2] 2^Rational[-1, 2], Rational[1, 2] 2^Rational[-1, 2]}, {0,
0}}, {{0.35355339059327373`, 0.35355339059327373`}, {0, 0}}]],
InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"0\\\",\\nFontSize->24]\\)\"\>", \
{-0.05, -0.05}],
InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"A\\\",\\nFontSize->24,\\nFontSlant->\
\\\"Italic\\\"]\\)\"\>", {1., -0.1}],
InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"B\\\",\\nFontSize->24,\\nFontSlant->\
\\\"Italic\\\"]\\)\"\>", {0.7778174593052023, 0.7778174593052023}],
InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"\[Pi]\\\",\\nFontSize->24]\\)\\!\\(\
\\*\\nStyleBox[\\\"/\\\",\\nFontSize->24]\\)\\!\\(\\*\\nStyleBox[\\\"4\\\",\\\
nFontSize->24]\\)\"\>", {0.23096988312782168`, 0.09567085809127245}]},
Axes->True,
AxesLabel->{
FormBox[
"\"\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSize->24,\\nFontSlant->\\\"\
Italic\\\"]\\)\"", TraditionalForm],
FormBox[
"\"\\!\\(\\*\\nStyleBox[\\\"i\\\",\\nFontSize->24,\\nFontSlant->\\\"\
Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSize->24,\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"y\\\",\\nFontSize->24,\\nFontSlant->\
\\\"Italic\\\"]\\)\"", TraditionalForm]},
PlotRange->{{-0.2, 1.1}, Automatic},
Ticks->None]], "Output",
CellChangeTimes->{3.6717525415652466`*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["A1C. The Asymmetric Top", "Subsubsection",
CellChangeTimes->{{3.6716698080575047`*^9, 3.6716698387138276`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"R", "=."}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sub", "=",
RowBox[{"{",
RowBox[{
RowBox[{
"I\[Xi]", "\[Rule]",
"\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalI]\), \(\[Xi]\)]\)\>\""}], ",",
RowBox[{
"I\[Eta]", "\[Rule]",
"\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalI]\), \(\[Eta]\)]\)\>\""}],
",",
RowBox[{
"I\[Zeta]", "\[Rule]",
"\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalI]\), \(\[Zeta]\)]\)\>\""}],
",",
RowBox[{"\[Alpha]v", "\[Rule]", "\"\<\!\(\*OverscriptBox[\"\[Alpha]\",
StyleBox[\".\",
FontWeight->\"Plain\"]]\)\>\""}], ",",
RowBox[{"\[Beta]v", "\[Rule]", "\"\<\!\(\*OverscriptBox[\"\[Beta]\",
StyleBox[\".\",
FontWeight->\"Plain\"]]\)\>\""}], ",",
RowBox[{"\[Gamma]v", "\[Rule]", "\"\<\!\(\*OverscriptBox[\"\[Gamma]\",
StyleBox[\".\",
FontWeight->\"Plain\"]]\)\>\""}]}], "}"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.6716723494340115`*^9, 3.671672456215525*^9}, {
3.6716725183875465`*^9, 3.6716725914658475`*^9}, 3.6716726278096857`*^9, {
3.671672743235244*^9, 3.6716728158760433`*^9}, 3.6716728750324345`*^9, {
3.6716733013403683`*^9, 3.6716733102466397`*^9}, {3.6717458531341953`*^9,
3.6717458781355376`*^9}, {3.6717526180409203`*^9, 3.6717526281659393`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"v", "=",
RowBox[{"{",
RowBox[{"\[Alpha]v", ",", "\[Beta]v", ",", "\[Gamma]v"}], "}"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"q", "=",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.67167179734907*^9, 3.6716718233206153`*^9}, {
3.6716811645164566`*^9, 3.6716811811334147`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"\[Omega]", "=",
RowBox[{"{",
RowBox[{
SubscriptBox["\[Omega]", "\[Xi]"], ",",
SubscriptBox["\[Omega]", "\[Eta]"], ",",
SubscriptBox["\[Omega]", "\[Zeta]"]}], "}"}]}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Omega]", "=",
RowBox[{
RowBox[{"(", GridBox[{
{
RowBox[{" ",
RowBox[{
RowBox[{"\[Beta]v", " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "-",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}]}]},
{
RowBox[{" ",
RowBox[{
RowBox[{"\[Beta]v", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}]}]},
{
RowBox[{
RowBox[{"\[Alpha]v", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "+", "\[Gamma]v"}]}
}], ")"}], "//", "Flatten"}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.6716705362961216`*^9, 3.6716707114059153`*^9}, {
3.6716712311041665`*^9, 3.6716712339479227`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"II", "=",
RowBox[{"{", " ",
RowBox[{"I\[Xi]", ",", "I\[Eta]", ",", "I\[Zeta]"}], " ", "}"}]}],
";"}]], "Input",
CellChangeTimes->{{3.671670730025852*^9, 3.6716707539321594`*^9}, {
3.671670793057253*^9, 3.6716707954010077`*^9}, {3.6716710133719263`*^9,
3.671671023543821*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"II", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
" ",
SuperscriptBox[
RowBox[{
"\[Omega]", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
"2"]}], "//", "Simplify"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"I\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]v", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "-",
RowBox[{"\[Beta]v", " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"]}], ",",
RowBox[{"I\[Eta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\[Beta]v", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"]}], ",",
RowBox[{"I\[Zeta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Gamma]v", "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], "2"]}]}],
"}"}]], "Output",
CellChangeTimes->{3.671752541839281*^9, 3.671752633025324*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["Lagrangian in ",
FontColor->RGBColor[0.6, 0.4, 0.2]],
Cell[BoxData[
FormBox[
StyleBox[
RowBox[{
OverscriptBox["\[Alpha]", "."], ",",
OverscriptBox["\[Beta]", "."], ",",
OverscriptBox["\[Gamma]", "."]}], "DisplayFormula"], TraditionalForm]],
FontColor->RGBColor[0.6, 0.4, 0.2]]
}], "Text",
CellChangeTimes->{{3.6716778884538937`*^9, 3.6716779249349985`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"L", "=",
RowBox[{
FractionBox["1", "2"],
RowBox[{"Plus", "@@",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"II", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
" ",
SuperscriptBox[
RowBox[{
"\[Omega]", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
"2"]}], "//", "Simplify"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
CellChangeTimes->{{3.6716707977291327`*^9, 3.671670873588689*^9}, {
3.6716710960752497`*^9, 3.671671111278411*^9}, {3.6716711505285063`*^9,
3.6716711667472887`*^9}, {3.671671279166787*^9, 3.671671279588657*^9}, {
3.6716719371177626`*^9, 3.671671938055265*^9}}],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"I\[Zeta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"\[Gamma]v", "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], "2"]}], "+",
RowBox[{"I\[Xi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\[Alpha]v", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "-",
RowBox[{"\[Beta]v", " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"]}], "+",
RowBox[{"I\[Eta]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\[Beta]v", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ")"}], "2"]}]}],
")"}]}]], "Output",
CellChangeTimes->{3.671752541853282*^9, 3.671752633040949*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"L", "//", "Expand"}], "//",
RowBox[{
RowBox[{"Collect", "[",
RowBox[{"#", ",", "v"}], "]"}], "&"}]}]], "Input",
CellChangeTimes->{{3.6716729866733255`*^9, 3.6716730172984076`*^9}}],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"I\[Zeta]", " ",
SuperscriptBox["\[Gamma]v", "2"]}], "2"], "+",
RowBox[{
SuperscriptBox["\[Beta]v", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ", "I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "I\[Xi]", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["\[Alpha]v", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ", "I\[Zeta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "I\[Xi]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"]}], "+",
RowBox[{
FractionBox["1", "2"], " ", "I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}]}], ")"}]}], "+",
RowBox[{"\[Alpha]v", " ",
RowBox[{"(",
RowBox[{
RowBox[{"I\[Zeta]", " ", "\[Gamma]v", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "+",
RowBox[{"\[Beta]v", " ",
RowBox[{"(",
RowBox[{
RowBox[{"I\[Eta]", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "-",
RowBox[{"I\[Xi]", " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.6717525418707867`*^9, 3.671752633056575*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"L", "/.", "sub"}], "//", "TraditionalForm"}]], "Input",
CellChangeTimes->{{3.67167288439183*^9, 3.671672899501241*^9}, {
3.6716730544234953`*^9, 3.6716730648297644`*^9}}],
Cell[BoxData[
FormBox[
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*OverscriptBox[\\\"\[Alpha]\\\", \\n \
StyleBox[\\\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>", " ",
RowBox[{"sin", "(", "\[Beta]", ")"}], " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}], "+",
RowBox[{"\<\"\\!\\(\\*OverscriptBox[\\\"\[Beta]\\\", \\n StyleBox[\\\
\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>", " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}]}]}], ")"}], "2"]}], "+",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*OverscriptBox[\\\"\[Alpha]\\\", \\n \
StyleBox[\\\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>", " ",
RowBox[{"sin", "(", "\[Beta]", ")"}], " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}]}], "-",
RowBox[{"\<\"\\!\\(\\*OverscriptBox[\\\"\[Beta]\\\", \\n StyleBox[\\\
\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>", " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}]}], ")"}], "2"]}], "+",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Zeta]\\)]\\)\"\>", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*OverscriptBox[\\\"\[Alpha]\\\", \\n \
StyleBox[\\\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>", " ",
RowBox[{"cos", "(", "\[Beta]", ")"}]}],
"+", "\<\"\\!\\(\\*OverscriptBox[\\\"\[Gamma]\\\", \\n \
StyleBox[\\\".\\\",\\nFontWeight->\\\"Plain\\\"]]\\)\"\>"}], ")"}], "2"]}]}],
")"}]}], TraditionalForm]], "Output",
CellChangeTimes->{3.6717525419408007`*^9, 3.6717526331347046`*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["Metric Tensor",
FontColor->RGBColor[0.6, 0.4, 0.2]],
" ",
Cell[BoxData[
FormBox[
StyleBox["\[DoubleStruckG]", "DisplayFormula"], TraditionalForm]],
FormatType->"TraditionalForm"]
}], "Text",
CellChangeTimes->{{3.671677977774048*^9, 3.6716779911428194`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"gg", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{
RowBox[{"v", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
",",
RowBox[{
"v", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]}]],
"L"}], "//", "Simplify"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}], ")"}], "//",
"MatrixForm"}]], "Input",
CellChangeTimes->{{3.6716717647708673`*^9, 3.67167177078651*^9}, {
3.671671829789381*^9, 3.6716719015864277`*^9}, 3.671679940907931*^9}],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
RowBox[{
RowBox[{"I\[Zeta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"]}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"I\[Xi]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"]}], "+",
RowBox[{"I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}]}], ")"}]}]}],
RowBox[{
RowBox[{"(",
RowBox[{"I\[Eta]", "-", "I\[Xi]"}], ")"}], " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}],
RowBox[{"I\[Zeta]", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}]},
{
RowBox[{
RowBox[{"(",
RowBox[{"I\[Eta]", "-", "I\[Xi]"}], ")"}], " ",
RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ",
RowBox[{"Sin", "[", "\[Beta]", "]"}], " ",
RowBox[{"Sin", "[", "\[Gamma]", "]"}]}],
RowBox[{
RowBox[{"I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"]}], "+",
RowBox[{"I\[Xi]", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}]}], "0"},
{
RowBox[{"I\[Zeta]", " ",
RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "0", "I\[Zeta]"}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.671752542048807*^9, 3.67175263321283*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gS", "=",
RowBox[{
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"ToString", "[",
RowBox[{
SubscriptBox["g",
RowBox[{"i", ",", "j"}]], ",", "TraditionalForm"}], "]"}], "<>",
"\"\< = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{
RowBox[{"gg", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], "/.", "sub"}],
",", "TraditionalForm"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "i", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}], "//",
"TableForm"}]}]], "Input",
CellChangeTimes->{{3.671679711666701*^9, 3.6716798676987066`*^9}, {
3.671680013835842*^9, 3.6716800193421593`*^9}, 3.6716801064501934`*^9, {
3.67168016353448*^9, 3.671680278413111*^9}, {3.6716803135611396`*^9,
3.67168032084556*^9}}],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"1\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*\
SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"cos\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}]}], \\\"+\\\", RowBox[{RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\
\"], \\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}]}], \\\"+\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\" \\\", RowBox[{SuperscriptBox[\\\"cos\\\", \\\"2\\\"], \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}]}]}], \\\")\\\"}]}]}], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"2\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\[Gamma]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\[Gamma]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"3\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\
\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", RowBox[{\\\"cos\\\
\", \\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}]}], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"2\\\", \
\\\",\\\", \\\"2\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*\
SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\
\\\\\\)\\\\\\\"\\\", \\\" \\\", RowBox[{SuperscriptBox[\\\"cos\\\", \
\\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\
\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\
\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \
\\\")\\\"}]}]}], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"2\\\", \
\\\",\\\", \\\"3\\\"}]], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\", \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"g\\\", RowBox[{\\\"3\\\", \
\\\",\\\", \\\"3\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
TraditionalForm]\\)\"\>"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Column],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.671752542098814*^9, 3.6717526332597*^9}]
}, Open ]],
Cell[TextData[StyleBox["det \[DoubleStruckG]",
FontColor->RGBColor[0.6, 0.4, 0.2]]], "Text",
CellChangeTimes->{{3.671678023788704*^9, 3.6716780281399546`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"dg", "=",
RowBox[{
RowBox[{"Det", "[", "gg", "]"}], "//", "Simplify"}]}], ")"}], "/.",
"sub"}], "//", "TraditionalForm"}]], "Input",
CellChangeTimes->{{3.6716735357505946`*^9, 3.671673558953783*^9}, {
3.6716736009226217`*^9, 3.671673603766385*^9}, 3.6716800330899534`*^9, {
3.6717451453777485`*^9, 3.6717451500342426`*^9}}],
Cell[BoxData[
FormBox[
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Zeta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\\)\"\
\>", " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Beta]", ")"}]}],
TraditionalForm]], "Output",
CellChangeTimes->{3.67175254214432*^9, 3.671752633322199*^9}]
}, Open ]],
Cell[TextData[Cell[BoxData[
FormBox[
StyleBox[
SuperscriptBox["\[DoubleStruckG]",
RowBox[{"-", "1"}]],
FontColor->RGBColor[0.6, 0.4, 0.2]], TraditionalForm]],
FormatType->"TraditionalForm"]], "Text",
CellChangeTimes->{{3.6716780437318544`*^9, 3.671678046478013*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"gI", "=",
RowBox[{
RowBox[{"Inverse", "[", "gg", "]"}], "//", "Simplify"}]}], ")"}], "/.",
"sub"}], "//", "TraditionalForm"}]], "Input",
CellChangeTimes->{{3.67167806566912*^9, 3.6716780889954677`*^9}, {
3.67167820164299*^9, 3.6716782115805626`*^9}, 3.671680459083537*^9}],
Cell[BoxData[
FormBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["csc", "2"], "(", "\[Beta]", ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Eta]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Gamma]", ")"}]}], "+",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]", ")"}]}]}], ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>"}]],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\
\\)]\\)\"\>",
"-", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>"}], ")"}], " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}], " ",
RowBox[{"csc", "(", "\[Beta]", ")"}], " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>"}]],
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"cot", "(", "\[Beta]", ")"}], " ",
RowBox[{"csc", "(", "\[Beta]", ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Eta]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Gamma]", ")"}]}], "+",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Xi]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]", ")"}]}]}], ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Eta]\
\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>"}]]}]},
{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\
\\)]\\)\"\>",
"-", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>"}], ")"}], " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}], " ",
RowBox[{"csc", "(", "\[Beta]", ")"}], " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>"}]],
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Gamma]",
")"}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Eta]\
\\)]\\)\"\>"], "+",
FractionBox[
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]",
")"}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>"]}],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
"-", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>"}], ")"}], " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}], " ",
RowBox[{"cot", "(", "\[Beta]", ")"}], " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>"}]]},
{
RowBox[{"-",
FractionBox[
RowBox[{
RowBox[{"cot", "(", "\[Beta]", ")"}], " ",
RowBox[{"csc", "(", "\[Beta]", ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Eta]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Gamma]", ")"}]}], "+",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Xi]\\)]\\)\"\>", " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]", ")"}]}]}], ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Eta]\
\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>"}]]}],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
"-", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Xi]\\)]\\)\"\>"}], ")"}], " ",
RowBox[{"cos", "(", "\[Gamma]", ")"}], " ",
RowBox[{"cot", "(", "\[Beta]", ")"}], " ",
RowBox[{"sin", "(", "\[Gamma]", ")"}]}],
RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Eta]\\)]\\)\"\>",
" ", "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\[Xi]\\)]\
\\)\"\>"}]],
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["cos", "4"], "(", "\[Gamma]",
")"}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Zeta]\\)]\\)\"\>"], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["cot", "2"], "(", "\[Beta]",
")"}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Xi]\\)]\\)\"\>"], "+",
FractionBox[
RowBox[{"2", " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]",
")"}]}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Zeta]\\)]\\)\"\>"]}], ")"}], " ",
RowBox[{
SuperscriptBox["cos", "2"], "(", "\[Gamma]", ")"}]}], "+",
FractionBox[
RowBox[{
SuperscriptBox["sin", "4"], "(", "\[Gamma]",
")"}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \
\\(\[Zeta]\\)]\\)\"\>"], "+",
FractionBox[
RowBox[{
RowBox[{
SuperscriptBox["cot", "2"], "(", "\[Beta]", ")"}], " ",
RowBox[{
SuperscriptBox["sin", "2"], "(", "\[Gamma]",
")"}]}], "\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptCapitalI]\\), \\(\
\[Eta]\\)]\\)\"\>"]}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
TraditionalForm]], "Output",
CellChangeTimes->{3.671752543057956*^9, 3.6717526342128263`*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" doesn\[CloseCurlyQuote]t know how to simplify ",
Cell[BoxData[
FormBox[
SuperscriptBox["g", "33"], TraditionalForm]],
FormatType->"TraditionalForm"],
" and needs a helping hand."
}], "Text",
CellChangeTimes->{{3.6717474562206984`*^9, 3.6717475356781225`*^9}, {
3.6717475713519263`*^9, 3.6717475821493855`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"x33", " ", "=", " ",
RowBox[{"g", " ",
SuperscriptBox["g", "33"]}]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"x33", "=",
RowBox[{
RowBox[{
RowBox[{"gI", "\[LeftDoubleBracket]",
RowBox[{"3", ",", "3"}], "\[RightDoubleBracket]"}], "dg"}], "//",
RowBox[{
RowBox[{"Collect", "[",
RowBox[{"#", ",", "II"}], "]"}], "&"}]}]}]}]], "Input",
CellChangeTimes->{{3.6717454404245434`*^9, 3.671745501396555*^9}, {
3.6717456548110256`*^9, 3.6717456779372687`*^9}, {3.6717457089389334`*^9,
3.6717457163768325`*^9}, {3.6717457956467276`*^9, 3.6717458213043604`*^9}, {
3.671746980491846*^9, 3.6717470346353965`*^9}, {3.671747077575215*^9,
3.67174709813883*^9}, {3.671747143203762*^9, 3.6717471536730785`*^9}, {
3.671747196019121*^9, 3.6717471979098463`*^9}, {3.6717476925616107`*^9,
3.67174771875053*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"I\[Zeta]", " ", "I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"]}], "+",
RowBox[{"I\[Xi]", " ",
RowBox[{"(",
RowBox[{
RowBox[{"I\[Zeta]", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Beta]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}], "+",
RowBox[{"I\[Eta]", " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Beta]", "]"}], "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "4"], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "4"]}], ")"}]}]}],
")"}]}]}]], "Output",
CellChangeTimes->{3.6717525431517076`*^9, 3.6717526342909517`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"This", " ", "factor", " ", "is", " ", "equal", " ", "to", " ", "1"}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{"x33", "\[LeftDoubleBracket]",
RowBox[{"2", ",", "2", ",", "2", ",", "3"}],
"\[RightDoubleBracket]"}]}]], "Input",
CellChangeTimes->{{3.6717472024257174`*^9, 3.6717473355266676`*^9}, {
3.671747734126361*^9, 3.67174777445667*^9}}],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "4"], "+",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "4"]}]], "Output",
CellChangeTimes->{3.671752543167337*^9, 3.6717526343065777`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"x33", "\[LeftDoubleBracket]",
RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "\[RightDoubleBracket]"}], "//",
RowBox[{
RowBox[{"Factor", "[",
RowBox[{"#", ",",
RowBox[{"Trig", "\[Rule]", "True"}]}], "]"}], "&"}]}]], "Input",
CellChangeTimes->{{3.671747801364376*^9, 3.67174782192799*^9}}],
Cell[BoxData["1"], "Output",
CellChangeTimes->{3.6717525431829557`*^9, 3.6717526343222017`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"x33", "\[LeftDoubleBracket]",
RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "\[RightDoubleBracket]"}],
"=",
RowBox[{
RowBox[{"x33", "\[LeftDoubleBracket]",
RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "\[RightDoubleBracket]"}], "//",
RowBox[{
RowBox[{"Factor", "[",
RowBox[{"#", ",",
RowBox[{"Trig", "\[Rule]", "True"}]}], "]"}], "&"}]}]}]], "Input",
CellChangeTimes->{{3.671748122334882*^9, 3.6717481381169844`*^9},
3.671750741922515*^9}],
Cell[BoxData["1"], "Output",
CellChangeTimes->{3.6717525431985817`*^9, 3.6717526343378277`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"set", " ",
SuperscriptBox["g", "33"], " ", "by", " ", "hand"}], " ", "*)"}],
"\[IndentingNewLine]", " ",
RowBox[{
RowBox[{"gI", "\[LeftDoubleBracket]",
RowBox[{"3", ",", "3"}], "\[RightDoubleBracket]"}], "=", " ",
RowBox[{
RowBox[{"x33", "/", "dg"}], "//", "Simplify"}]}]}]], "Input",
CellChangeTimes->{{3.671747341902015*^9, 3.6717473436208577`*^9}, {
3.671747395108017*^9, 3.6717474180467577`*^9}, {3.671748018579264*^9,
3.671748062784783*^9}, {3.6717481657591066`*^9, 3.671748197620204*^9}, {
3.671748281015345*^9, 3.671748296766199*^9}}],
Cell[BoxData[
RowBox[{
FractionBox["1", "I\[Zeta]"], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Gamma]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"]}], "I\[Xi]"], "+",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"Cot", "[", "\[Beta]", "]"}], "2"], " ",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Gamma]", "]"}], "2"]}], "I\[Eta]"]}]], "Output",
CellChangeTimes->{3.6717525434017057`*^9, 3.6717526345565777`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gIS", "=",
RowBox[{
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"Superscript", "[",
RowBox[{"g", ",",
RowBox[{"{",
RowBox[{"i", ",", "j"}], "}"}]}], "]"}], ",", "TraditionalForm"}],
"]"}], "<>", "\"\< = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{
RowBox[{"gI", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], "/.", "sub"}],
",", "TraditionalForm"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "i", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}], "//",
"TableForm"}]}]], "Input",
CellChangeTimes->{{3.6716804340190907`*^9, 3.6716804509330673`*^9}, {
3.6716805158808165`*^9, 3.6716805898580837`*^9}, {3.6716806289763403`*^9,
3.671680673611917*^9}, {3.6716808183417826`*^9, 3.671680822249009*^9}}],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"1\\\", \\\",\\\", \\\"1\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{SuperscriptBox[\\\"csc\\\", \
\\\"2\\\"], \\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\
\\\", RowBox[{RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\
\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\
\", \\\" \\\", RowBox[{SuperscriptBox[\\\"cos\\\", \\\"2\\\"], \\\"(\\\", \
\\\"\[Gamma]\\\", \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\
\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \
\\\")\\\"}]}]}], \\\")\\\"}]}], \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"1\\\", \\\",\\\", \\\"2\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"csc\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\
\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"1\\\", \\\",\\\", \\\"3\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \\!\\(\\*FormBox[RowBox[{\\\"-\\\", \
FractionBox[RowBox[{RowBox[{\\\"cot\\\", \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"csc\\\", \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"cos\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \
\\\")\\\"}]}], \\\"+\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\" \\\", RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}]}]}], \\\")\\\"}]}], RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\
\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\
\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"2\\\", \\\",\\\", \\\"2\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{FractionBox[RowBox[{SuperscriptBox[\\\"cos\\\", \
\\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \\\")\\\"}], \\\"\\\\\\\"\\\\\\\\!\\\
\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\
\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"], \\\"+\\\", \
FractionBox[RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"]}], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"2\\\", \\\",\\\", \\\"3\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"cot\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\
\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[TemplateBox[List[\\\"g\\\", \
RowBox[List[\\\"{\\\", RowBox[List[\\\"3\\\", \\\",\\\", \\\"3\\\"]], \\\"}\\\
\"]]], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]], \
TraditionalForm]\\) = \\!\\(\\*FormBox[RowBox[{FractionBox[\\\"1\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"], \\\"+\\\", \
FractionBox[RowBox[{RowBox[{SuperscriptBox[\\\"cot\\\", \\\"2\\\"], \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\
\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \\\")\\\"}]}], \\\"\\\\\\\
\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\),\
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"], \\\"+\\\", \
FractionBox[RowBox[{RowBox[{SuperscriptBox[\\\"cot\\\", \\\"2\\\"], \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{SuperscriptBox[\\\
\"cos\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Gamma]\\\", \\\")\\\"}]}], \\\"\\\\\\\
\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\),\
\\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"]}], TraditionalForm]\\)\"\>"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Column],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.6717525434798374`*^9, 3.6717526346347027`*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["Christopher Symbol ",
FontColor->RGBColor[0.6, 0.4, 0.2]],
Cell[BoxData[
FormBox[
StyleBox[
SubsuperscriptBox[
OverscriptBox["\[CapitalGamma]", "_"],
RowBox[{"i", " ", "j"}],
RowBox[{" ", "k"}]], "DisplayFormula"], TraditionalForm]],
FormatType->"TraditionalForm",
FontColor->RGBColor[0.6, 0.4, 0.2]]
}], "Text",
CellChangeTimes->{{3.6716825139661036`*^9, 3.6716825368784275`*^9}, {
3.671682617483079*^9, 3.6716826182911253`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Ch", "[",
RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=",
RowBox[{
FractionBox["1", "2"],
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{"q", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]],
RowBox[{"gg", "\[LeftDoubleBracket]",
RowBox[{"j", ",", "k"}], "\[RightDoubleBracket]"}]}], "+",
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{"q", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]],
RowBox[{"gg", "\[LeftDoubleBracket]",
RowBox[{"k", ",", "i"}], "\[RightDoubleBracket]"}]}], "-",
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{"q", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]],
RowBox[{"gg", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}]}],
")"}]}]}]], "Input",
CellChangeTimes->{{3.671681048243746*^9, 3.6716811399180365`*^9}, {
3.6716811889108644`*^9, 3.67168128849161*^9}, {3.671682559668742*^9,
3.671682598203965*^9}, {3.6717459706092615`*^9, 3.6717459719062076`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
FormBox[
StyleBox[
SubscriptBox[
OverscriptBox["\[CapitalGamma]", "_"],
RowBox[{"i", " ", "j", " ", "k"}]], "DisplayFormula"],
TraditionalForm], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Chm", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Ch", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}], ";"}]}]], "Input",
CellChangeTimes->{
3.671681246818205*^9, {3.671681301307351*^9, 3.671681344267158*^9}, {
3.6717459757032847`*^9, 3.6717459769846053`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
FormBox[
StyleBox[
SubsuperscriptBox[
OverscriptBox["\[CapitalGamma]", "_"],
RowBox[{"i", " ", "j"}],
RowBox[{" ", "k"}]], "DisplayFormula"],
TraditionalForm], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ChTm", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=", "1"}], "3"],
RowBox[{
RowBox[{"gI", "\[LeftDoubleBracket]",
RowBox[{"k", ",", "m"}], "\[RightDoubleBracket]"}],
RowBox[{"Ch", "[",
RowBox[{"i", ",", "j", ",", "m"}], "]"}]}]}], "//", "Simplify"}],
",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}]}], "]"}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.671683777745857*^9, 3.671683805416454*^9}, {
3.671685939241033*^9, 3.67168594179918*^9}, {3.671745988828993*^9,
3.671745989891547*^9}, {3.6717460980067425`*^9, 3.671746102022586*^9}, {
3.6717461526971893`*^9, 3.671746160072587*^9}, {3.6717462333734145`*^9,
3.6717462370923653`*^9}, {3.6717463914131813`*^9, 3.6717463922569776`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ChT", "=",
RowBox[{
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"ToString", "[",
RowBox[{
SubsuperscriptBox[
OverscriptBox["\[CapitalGamma]", "_"],
RowBox[{"i", ",", "j"}],
RowBox[{"\"\< \>\"", "<>",
RowBox[{"ToString", "[", "k", "]"}]}]], ",", "TraditionalForm"}],
"]"}], "<>", "\"\< = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j", ",", "k"}], "\[RightDoubleBracket]"}], "/.",
"sub"}], ",", "TraditionalForm"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"k", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "i"}], "}"}]}], "]"}], "//", "Flatten"}], "//",
"TableForm"}]}]], "Input",
CellChangeTimes->{{3.6716804340190907`*^9, 3.6716804509330673`*^9}, {
3.6716805158808165`*^9, 3.6716805898580837`*^9}, {3.6716806289763403`*^9,
3.671680673611917*^9}, {3.6716808183417826`*^9, 3.671680822249009*^9}, {
3.6716814322832375`*^9, 3.6716814786439133`*^9}, {3.671681518064188*^9,
3.6716815200333023`*^9}, {3.6716818355775113`*^9, 3.671681839666747*^9}, {
3.671681958169985*^9, 3.6716820677910795`*^9}, 3.671682117244933*^9,
3.6716822126144447`*^9, {3.671682612572795*^9, 3.6716826245584865`*^9}, {
3.671683708115841*^9, 3.6716837435608845`*^9}, 3.671685921443006*^9, {
3.6716859689567475`*^9, 3.6716859885038757`*^9}, {3.671745980828562*^9,
3.671745982000499*^9}}],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\
\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\
\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"cot\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\
\\\", RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \
RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\
\", TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"sin\\\", \\\"(\\\", RowBox[{\
\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"csc\\\", \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"3\\\"}], \
\\\"\\\\\\\" 1\\\\\\\"\\\"], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\
\", TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"sin\\\", \
\\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Beta]\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \
RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\
\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"], \\\"+\\\", \
SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\"2\\\"]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"cos\\\", \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \
\\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\
\", TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"sin\\\", \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"sin\\\", \
\\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"3\\\"}], \
\\\"\\\\\\\" 2\\\\\\\"\\\"], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\
\", TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"sin\\\", \\\"(\\\", RowBox[{\
\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"], \\\"+\\\", \
RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\
\[Beta]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{FractionBox[\\\"1\\\", \
\\\"2\\\"], \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", RowBox[{\\\"cos\\\
\", \\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"cot\\\", \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \\\
\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\
\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\
\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\
\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}]}], \
\\\")\\\"}]}]}], RowBox[{\\\"2\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\
\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\
\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"2\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Gamma]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\
\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"1\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{\\\"cos\\\", \
\\\"(\\\", \\\"\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \
\\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}], \
RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"2\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"cot\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"-\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubsuperscriptBox[OverscriptBox[\\\"\
\[CapitalGamma]\\\", \\\"_\\\"], RowBox[{\\\"3\\\", \\\",\\\", \\\"3\\\"}], \
\\\"\\\\\\\" 3\\\\\\\"\\\"], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\
\", TraditionalForm]\\)\"\>"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Column],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.6717525453704615`*^9, 3.671752636639462*^9}]
}, Open ]],
Cell[TextData[{
StyleBox["Ricci Tensor ",
FontColor->RGBColor[0.6, 0.4, 0.2]],
Cell[BoxData[
FormBox[
SubscriptBox["R",
RowBox[{"i", " ", "j"}]], TraditionalForm]],
FontColor->RGBColor[0.6, 0.4, 0.2]]
}], "Text",
CellChangeTimes->{{3.6716826423309517`*^9, 3.671682654284642*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ChC", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"k", "=", "1"}], "3"],
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "k", ",", "k"}], "\[RightDoubleBracket]"}]}], "//",
"Simplify"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.6716838544562845`*^9, 3.6716839228512335`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"Cot", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]], "Output",
CellChangeTimes->{3.6717525455267143`*^9, 3.671752636780088*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
FormBox[
StyleBox[
SubscriptBox["R",
RowBox[{"i", " ", "j"}]], "DisplayFormula"],
TraditionalForm], " ", "*)"}], " ", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Rc", "[",
RowBox[{"i_", ",", "k_"}], "]"}], ":=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j", "=", "1"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{"q", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]],
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "k", ",", "j"}], "\[RightDoubleBracket]"}]}], "-",
RowBox[{
SubscriptBox["\[PartialD]",
RowBox[{"q", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]],
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j", ",", "j"}], "\[RightDoubleBracket]"}]}],
"\[IndentingNewLine]", "+",
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"m", "=", "1"}], "3"],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"m", ",", "j", ",", "j"}], "\[RightDoubleBracket]"}],
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "k", ",", "m"}], "\[RightDoubleBracket]"}]}],
"-",
RowBox[{
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"m", ",", "k", ",", "j"}], "\[RightDoubleBracket]"}],
RowBox[{"ChTm", "\[LeftDoubleBracket]",
RowBox[{"i", ",", "j", ",", "m"}], "\[RightDoubleBracket]"}]}]}],
")"}]}]}], ")"}]}], "//", "FullSimplify"}]}]}]], "Input",
CellChangeTimes->{{3.6716835260045443`*^9, 3.67168354974113*^9}, {
3.6716836054129205`*^9, 3.671683680404248*^9}, 3.671683834192116*^9, {
3.671683936885043*^9, 3.6716840519058237`*^9}, {3.671684085347754*^9,
3.6716841800742207`*^9}, {3.6716843742564187`*^9,
3.6716843903433557`*^9}, {3.671686219673218*^9, 3.6716862220043583`*^9}, {
3.671686318680939*^9, 3.6716863217811103`*^9}, {3.6716866463712225`*^9,
3.6716868614204464`*^9}, {3.671752840699065*^9, 3.671752841777191*^9}, {
3.6717531480938063`*^9, 3.6717531488125577`*^9}, {3.671753810749542*^9,
3.6717538119214196`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Rij", "=",
RowBox[{
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{
RowBox[{"ToString", "[",
RowBox[{
SubscriptBox["R",
RowBox[{"i", ",", "j"}]], ",", "TraditionalForm"}], "]"}], "<>",
"\"\< = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{
RowBox[{"Rc", "[",
RowBox[{"i", ",", "j"}], "]"}], "/.", "sub"}], ",",
"TraditionalForm"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "i"}], "}"}]}], "]"}], "//", "Flatten"}], "//",
"TableForm"}]}]], "Input",
CellChangeTimes->{{3.671686112145012*^9, 3.6716863015319414`*^9}, {
3.671752449745549*^9, 3.6717524646987033`*^9}}],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"1\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"3\\\"]}], \\\"+\\\", RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \
RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Beta]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"2\\\", \\\" \\\
\", SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\
\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}], \\\")\\\"}]}], \\\"-\\\", \
RowBox[{SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\
\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\
\\\", \\\"2\\\"], \\\"-\\\", RowBox[{\\\"4\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\"+\\\", \
SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\"2\\\"]}], \\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\
\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\\\
\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\
\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}]}], \
RowBox[{\\\"8\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"2\\\", \
\\\",\\\", \\\"1\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"sin\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"sin\\\", \\\"(\\\", RowBox[{\
\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\
\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\
\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"2\\\", \
\\\",\\\", \\\"2\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\
\\\", RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \
RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"3\\\", \
\\\",\\\", \\\"1\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \\\"\
\[Beta]\\\", \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], RowBox[{\\\"2\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\
\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"3\\\", \
\\\",\\\", \\\"2\\\"}]], TraditionalForm]\\) = \\!\\(\\*FormBox[\\\"0\\\", \
TraditionalForm]\\)\"\>"},
{"\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"3\\\", \
\\\",\\\", \\\"3\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], RowBox[{\\\"2\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\
\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\\)\"\>"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Column],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.6717525470579653`*^9, 3.6717526383425927`*^9,
3.6717528500740805`*^9, 3.6717538195677185`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"ToString", "[",
RowBox[{
SubscriptBox["R",
RowBox[{"1", ",", "1"}]], ",", "TraditionalForm"}], "]"}], "<>",
"\"\< = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"rc11", "/.", "sub"}], ",", "TraditionalForm"}], "]"}]}]], "Input",
CellChangeTimes->{{3.671753198749985*^9, 3.671753220557743*^9},
3.671753535888107*^9, {3.6717537619342704`*^9, 3.6717537643057404`*^9}}],
Cell[BoxData["\<\"\\!\\(\\*FormBox[SubscriptBox[\\\"R\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"1\\\"}]], TraditionalForm]\\) = \
\\!\\(\\*FormBox[FractionBox[RowBox[{RowBox[{\\\"2\\\", \\\" \\\", \
SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"3\\\"]}], \\\"+\\\", RowBox[{RowBox[{\\\"cos\\\", \\\"(\\\", \
RowBox[{\\\"2\\\", \\\" \\\", \\\"\[Beta]\\\"}], \\\")\\\"}], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"2\\\", \\\" \\\
\", SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\
\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"]}], \\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}], \\\")\\\"}]}], \\\"-\\\", \
RowBox[{SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"], \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\\!\
\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\
\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\
\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\
\\\", \\\"2\\\"], \\\"-\\\", RowBox[{\\\"4\\\", \\\" \\\", \\\"\\\\\\\"\\\\\\\
\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\\\\\
\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\"+\\\", \
SuperscriptBox[\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\
\"2\\\"]}], \\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"2\\\", \\\" \\\", \
RowBox[{SuperscriptBox[\\\"sin\\\", \\\"2\\\"], \\\"(\\\", \\\"\[Beta]\\\", \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"cos\\\", \\\"(\\\", RowBox[{\\\"2\\\", \\\
\" \\\", \\\"\[Gamma]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \
\\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]}], \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}], \\\" \
\\\", RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", RowBox[{SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\\\\\\\"\\\
\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\\), \\\
\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"+\\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \\\")\\\"}]}]}], \
RowBox[{\\\"8\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]], TraditionalForm]\
\\)\"\>"], "Output",
CellChangeTimes->{3.671753224151496*^9, 3.671753536544357*^9,
3.6717537654463634`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
FormBox[
RowBox[{
FormBox[
StyleBox["R", "DisplayFormula"],
TraditionalForm], " ", "=", " ",
StyleBox[
SubsuperscriptBox["R", "j",
RowBox[{" ", "j"}]], "DisplayFormula"]}],
TraditionalForm], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"rr", "=",
RowBox[{
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"i", "=", "1"}], "3"],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"j", "=", "1"}], "3"],
RowBox[{
RowBox[{"Rc", "[",
RowBox[{"i", ",", "j"}], "]"}],
RowBox[{"gI", "\[LeftDoubleBracket]",
RowBox[{"j", ",", "i"}], "\[RightDoubleBracket]"}]}]}]}], "//",
"Simplify"}]}]}]], "Input",
CellChangeTimes->{{3.6716865398748255`*^9, 3.671686582020501*^9}, {
3.6717465027473106`*^9, 3.6717465039192476`*^9}, {3.671748733477358*^9,
3.6717487818237276`*^9}, {3.6717516245768895`*^9, 3.671751710482338*^9}, {
3.6717522895582275`*^9, 3.671752422795804*^9}, {3.67175431962*^9,
3.6717543210262537`*^9}}],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["I\[Zeta]", "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"I\[Eta]", "-", "I\[Xi]"}], ")"}], "2"], "-",
RowBox[{"2", " ", "I\[Zeta]", " ",
RowBox[{"(",
RowBox[{"I\[Eta]", "+", "I\[Xi]"}], ")"}]}]}],
RowBox[{"2", " ", "I\[Zeta]", " ", "I\[Eta]", " ", "I\[Xi]"}]]}]], "Output",
CellChangeTimes->{3.671752547479841*^9, 3.671752638717598*^9,
3.671754323854377*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\"\<\!\(\*
StyleBox[\"R\",
FontSlant->\"Italic\"]\) = \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{
RowBox[{"rr", "/.", "sub"}], ",", "TraditionalForm"}], "]"}]}]], "Input",
CellChangeTimes->{{3.671754300713716*^9, 3.671754328587843*^9}}],
Cell[BoxData["\<\"\\!\\(\\*\\nStyleBox[\\\"R\\\",\\nFontSlant->\\\"Italic\\\"]\
\\) = \\!\\(\\*FormBox[RowBox[{\\\"-\\\", FractionBox[RowBox[{SuperscriptBox[\
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\"2\\\"], \\\"-\
\\\", RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"+\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}]}], \\\"+\\\", SuperscriptBox[RowBox[{\\\"(\\\", \
RowBox[{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \
\\\"-\\\", \\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\
\[ScriptCapitalI]\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}], \
\\\")\\\"}], \\\"2\\\"]}], RowBox[{\\\"2\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Zeta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \\\"\\\
\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\\\\\\\
\\), \\\\\\\\(\[Eta]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\", \\\" \\\", \
\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(\\\\\\\\*SubscriptBox[\\\\\\\\(\[ScriptCapitalI]\
\\\\\\\\), \\\\\\\\(\[Xi]\\\\\\\\)]\\\\\\\\)\\\\\\\"\\\"}]]}], \
TraditionalForm]\\)\"\>"], "Output",
CellChangeTimes->{3.6717543299159636`*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{979, 677},
WindowMargins->{{70, Automatic}, {41, Automatic}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 148, 2, 59, "Subsection"],
Cell[CellGroupData[{
Cell[753, 28, 236, 3, 49, "Subsubsection"],
Cell[CellGroupData[{
Cell[1014, 35, 5186, 156, 491, "Input"],
Cell[6203, 193, 2086, 38, 361, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[8338, 237, 119, 1, 49, "Subsubsection"],
Cell[8460, 240, 1322, 31, 95, "Input"],
Cell[9785, 273, 424, 12, 60, "Input"],
Cell[10212, 287, 1293, 36, 99, "Input"],
Cell[11508, 325, 328, 8, 36, "Input"],
Cell[CellGroupData[{
Cell[11861, 337, 383, 12, 41, "Input"],
Cell[12247, 351, 981, 28, 41, "Output"]
}, Open ]],
Cell[13243, 382, 416, 12, 42, "Text"],
Cell[CellGroupData[{
Cell[13684, 398, 778, 20, 54, "Input"],
Cell[14465, 420, 1051, 30, 83, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[15553, 455, 227, 6, 36, "Input"],
Cell[15783, 463, 1917, 54, 127, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[17737, 522, 208, 4, 36, "Input"],
Cell[17948, 528, 1908, 41, 73, "Output"]
}, Open ]],
Cell[19871, 572, 296, 9, 38, "Text"],
Cell[CellGroupData[{
Cell[20192, 585, 738, 21, 36, "Input"],
Cell[20933, 608, 2087, 57, 101, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[23057, 670, 985, 26, 106, "Input"],
Cell[24045, 698, 4028, 68, 172, "Output"]
}, Open ]],
Cell[28088, 769, 161, 2, 38, "Text"],
Cell[CellGroupData[{
Cell[28274, 775, 411, 10, 36, "Input"],
Cell[28688, 787, 452, 11, 60, "Output"]
}, Open ]],
Cell[29155, 801, 282, 7, 38, "Text"],
Cell[CellGroupData[{
Cell[29462, 812, 357, 9, 36, "Input"],
Cell[29822, 823, 7077, 182, 167, "Output"]
}, Open ]],
Cell[36914, 1008, 390, 11, 39, "Text"],
Cell[CellGroupData[{
Cell[37329, 1023, 917, 20, 62, "Input"],
Cell[38249, 1045, 1080, 30, 65, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[39366, 1080, 423, 10, 60, "Input"],
Cell[39792, 1092, 411, 11, 38, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[40240, 1108, 343, 8, 36, "Input"],
Cell[40586, 1118, 96, 1, 36, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[40719, 1124, 517, 13, 36, "Input"],
Cell[41239, 1139, 96, 1, 36, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[41372, 1145, 634, 14, 62, "Input"],
Cell[42009, 1161, 519, 15, 61, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[42565, 1181, 1046, 27, 106, "Input"],
Cell[43614, 1210, 7482, 118, 286, "Output"]
}, Open ]],
Cell[51111, 1331, 501, 14, 49, "Text"],
Cell[51615, 1347, 1124, 26, 54, "Input"],
Cell[52742, 1375, 777, 23, 70, "Input"],
Cell[53522, 1400, 1302, 34, 109, "Input"],
Cell[CellGroupData[{
Cell[54849, 1438, 1658, 37, 126, "Input"],
Cell[56510, 1477, 29755, 447, 743, "Output"]
}, Open ]],
Cell[86280, 1927, 297, 9, 41, "Text"],
Cell[CellGroupData[{
Cell[86602, 1940, 470, 13, 69, "Input"],
Cell[87075, 1955, 186, 4, 36, "Output"]
}, Open ]],
Cell[87276, 1962, 2354, 53, 160, "Input"],
Cell[CellGroupData[{
Cell[89655, 2019, 812, 24, 83, "Input"],
Cell[90470, 2045, 15667, 234, 269, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[106174, 2284, 443, 11, 36, "Input"],
Cell[106620, 2297, 6558, 93, 149, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[113215, 2395, 1084, 30, 107, "Input"],
Cell[114302, 2427, 480, 13, 61, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[114819, 2445, 275, 7, 36, "Input"],
Cell[115097, 2454, 1785, 25, 64, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)