Notebook[{
Cell[CellGroupData[{
Cell["Clifford Algebra and traces of \[Gamma] matrices", "Chapter",
CellFrame->{{0, 0}, {2, 0}},
ExpressionUUID -> "1260ef40-5d72-4943-a19b-252cee3625d5"],
Cell[TextData[{
StyleBox["Author of Dirac algebra functionalities : \[Copyright] Leo C. \
Stein (",
FontSize->18],
StyleBox[ButtonBox["leo.stein@gmail.com",
BaseStyle->"Hyperlink",
ButtonData->{
URL["mailto:leo.stein@gmail.com"], None},
ButtonNote->"mailto:leo.stein@gmail.com"],
FontSize->18],
StyleBox[")\nAddition of tools for traces of gamma matrices : \[Copyright] \
Cyril Pitrou (pitrou@iap.fr).\n\nDate: April 2018\n\nThis notebook builds on \
the Dirac Algebra construction provided by Leo Stein.\nIts main purpose is to \
provide tools to perform products of Dirac matrices and extract their trace.\n\
Decomposition in irreducible components is also implemented following the ",
FontSize->18],
StyleBox[ButtonBox["GAMMA.m package",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://arxiv.org/abs/hep-th/0105086"], None},
ButtonNote->"https://arxiv.org/abs/hep-th/0105086"],
FontSize->18],
StyleBox[" by Ulaf Gran.",
FontSize->16]
}], "Subtitle",
ExpressionUUID -> "9fec8a2f-1cfa-4acc-84ec-a7153a5b3284"],
Cell[CellGroupData[{
Cell["Clifford Algebra (adapted from Leo Stein\[CloseCurlyQuote]s example)", \
"Section"],
Cell[CellGroupData[{
Cell["0. Overhead", "Subsubsection",
ExpressionUUID -> "d19dc23e-a35a-4df7-8f2f-b54e2f17231b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Needs", "[", "\"\<xAct`xTensor`\>\"", "]"}]], "Input",
ExpressionUUID -> "c008a5f4-ebf4-49d2-a924-11f1654d1408"],
Cell[CellGroupData[{
Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Package xAct`xPerm` version \"\>",
"\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>",
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}],
SequenceForm["Package xAct`xPerm` version ", "1.2.3", ", ", {2015, 8, 23}],
Editable->False]], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"Connection established.\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Package xAct`xTensor` version \"\>",
"\[InvisibleSpace]", "\<\"1.1.3\"\>", "\[InvisibleSpace]", "\<\", \"\>",
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
SequenceForm[
"Package xAct`xTensor` version ", "1.1.3", ", ", {2018, 2, 28}],
Editable->False]], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \
details type Disclaimer[]. This is free software, and you are welcome to \
redistribute it under certain conditions. See the General Public License for \
details.\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"],
Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
ExpressionUUID -> "742b5855-cbc6-40a5-8bfe-bbba3fbefd2a"]
}, Open ]]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"$PrePrint", "=", "ScreenDollarIndices"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"$DefInfoQ", "=", "False"}], ";"}]}], "Input",
ExpressionUUID -> "8c9a25b0-7ad3-48a0-afdd-f1510bc94519"],
Cell["\<\
Many functionalities work with an unspecified dimension, however it works \
only fully correctly with a specified integer dimension.
The case of odd dimensions has been treated but it is rather different since \
there is no need for a chiral matrix in that case.
The notebook has not been conceived for changing dim in the middle. So it \
should be set to a vlaue or left abstract the beginning.\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"DefConstantSymbol", "[", "dim", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"dim", ":=", "4"}], ";"}]}], "Input"],
Cell[BoxData[
RowBox[{"The", " ", "dimension", " ", "of", " ", "the", " ", "spinor", " ",
"representation", " ", "is", " ",
SuperscriptBox["2",
RowBox[{"Floor", "[",
RowBox[{"d", "/", "2"}], "]"}]], "where", " ", "d", " ", "is", " ", "the",
" ", "spacetime", " ", "dimension", " ",
RowBox[{"(",
RowBox[{
"and", " ", "hence", " ", "the", " ", "number", " ", "of", " ",
"different", " ", "Dirac", " ", "matrices"}], ")"}]}]], "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"spinordim", ":=",
RowBox[{"2", "^",
RowBox[{"Floor", "[",
RowBox[{"dim", "/", "2"}], "]"}]}]}], ";"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"DefManifold", "[",
RowBox[{"M", ",", "dim", ",",
RowBox[{"Complement", "[",
RowBox[{
RowBox[{"IndexRange", "[",
RowBox[{"a", ",", "u"}], "]"}], ",",
RowBox[{"{", "g", "}"}]}], "]"}]}], "]"}], ";"}]], "Input",
ExpressionUUID -> "ba13ee4f-dbe6-45cd-9ed3-c9f9c016b3cf"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"DefMetric", "[",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"NumericQ", "[", "dim", "]"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"dim", "-", "1"}], ",", "0"}], "}"}], ",",
RowBox[{"-", "1"}]}], "]"}], ",",
RowBox[{"g", "[",
RowBox[{
RowBox[{"-", "a"}], ",",
RowBox[{"-", "b"}]}], "]"}], ",", "PD", ",",
RowBox[{"FlatMetric", "\[Rule]", "True"}]}], "]"}],
RowBox[{"(*", " ",
RowBox[{
"Particle", " ", "Physics", " ", "Convention", " ", "for", " ",
"signature"}], " ", "*)"}]}]], "Input",
ExpressionUUID -> "ffe91ee0-6f16-4188-986c-7a5b9c3ebf2f"],
Cell[BoxData[
RowBox[{
StyleBox[
RowBox[{"DefMetric", "::", "error"}], "MessageName"],
RowBox[{
":", " "}], "\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"Using standard {,, \
\[PartialD]} as symbols for PD.\\\\\\\"\\\"}]\\)\[NoBreak]\"\>"}]], \
"Message", "MSG",
ExpressionUUID -> "f19be6d3-1fb4-4e1e-8ea2-de123f2f7f60"],
Cell[BoxData["\<\"** DefMetric: Associating fiducial flat derivative PD to \
metric.\"\>"], "Print"]
}, Open ]],
Cell["For information, the signature of the metric chosen is", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"SignDetOfMetric", "[", "g", "]"}]], "Input"],
Cell[BoxData[
RowBox[{"-", "1"}]], "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["1. Algebra definition", "Subsubsection",
ExpressionUUID -> "a6308d03-e21c-4c73-b4fb-305901912982"],
Cell["\<\
We define an algebra product which stands for the product of \[Gamma] matrices\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Options", "[", "DefProduct", "]"}]], "Input",
ExpressionUUID -> "b66a7b66-0b77-4028-b23b-eaef840c3a58"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"AssociativeProductQ", "\[Rule]", "False"}], ",",
RowBox[{"IdentityElementOfProduct", "\[Rule]", "None"}], ",",
RowBox[{"CommutativityOfProduct", "\[Rule]", "None"}], ",",
RowBox[{"GradedProductQ", "\[Rule]", "False"}], ",",
RowBox[{"GradeOfProduct", "\[Rule]", "0"}], ",",
RowBox[{"ScalarsOfProduct", "\[Rule]", "NumericQ"}], ",",
RowBox[{"DefineCommutator", "\[Rule]", "False"}], ",",
RowBox[{"xSortOrder", "\[Rule]", "Automatic"}], ",",
RowBox[{"Master", "\[Rule]", "Null"}], ",",
RowBox[{"PrintAs", "\[Rule]", "\<\"\[Diamond]\"\>"}], ",",
RowBox[{"ProtectNewSymbol", "\[RuleDelayed]", "$ProtectNewSymbols"}], ",",
RowBox[{"DefInfo", "\[Rule]",
RowBox[{"{",
RowBox[{"\<\"product\"\>", ",", "\<\"\"\>"}], "}"}]}]}], "}"}]], "Output",
ExpressionUUID -> "f8497ebd-db16-43c1-918b-8956cd45c45c"]
}, Open ]],
Cell["We first define the identity in this algebra", "Text"],
Cell[BoxData[{
StyleBox[
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"Id", "[", "]"}], ",", "M", ",",
RowBox[{"PrintAs", "\[Rule]", "\"\<\[DoubleStruckCapitalI]\>\""}]}], "]"}],
FontColor->GrayLevel[0]], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AlgElementQ", "[",
RowBox[{"Id", "[", "]"}], "]"}], "=", "True"}], ";"}]}], "Input",
ExpressionUUID -> "e6df5496-0081-4155-a5b0-0b857289050b"],
Cell["I name the Dirac product AP for \[OpenCurlyQuote]algebra product\
\[CloseCurlyQuote]. ", "Text",
ExpressionUUID -> "cd913591-f952-40d4-93f6-0eb91a6a5c77"],
Cell[BoxData[
RowBox[{"DefProduct", "[",
RowBox[{"AP", ",", "\[IndentingNewLine]",
RowBox[{"AssociativeProductQ", "\[Rule]", "True"}], ",",
"\[IndentingNewLine]",
RowBox[{"IdentityElementOfProduct", "\[Rule]",
RowBox[{"Id", "[", "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"GradedProductQ", "\[Rule]", "True"}], ",", "\[IndentingNewLine]",
RowBox[{"ScalarsOfProduct", "\[Rule]",
RowBox[{"(",
RowBox[{
RowBox[{"!",
RowBox[{"AlgElementQ", "[", "#", "]"}]}], "&"}], ")"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"DefineCommutator", "\[Rule]", "True"}]}], "]"}]], "Input",
ExpressionUUID -> "52ca07fa-8dc4-4aad-9ab8-2ef2b4bfc098"],
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",", "M", ",",
RowBox[{"GradeOfTensor", "\[Rule]",
RowBox[{"{",
RowBox[{"AP", "\[Rule]", "1"}], "}"}]}], ",",
RowBox[{"Dagger", "\[Rule]", "Complex"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "@", "\[Gamma]\[Dagger]"}], "^=",
"\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(_\)]\)\>\""}], ";"}]}], "Input",
ExpressionUUID -> "24c88dca-4fdc-4f90-b480-05450c3c6d01"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"?", "GradeOfTensor"}]], "Input"],
Cell[BoxData[
StyleBox["\<\"GradeOfTensor[T, prod] gives the grade of the tensor T in the \
product prod.\\n\\nGradeOfTensor is also an option of DefTensor specifying \
the grade of the tensor being defined in various products, as in \
GradeOfTensor->{wedge->1, clifford->2}.\"\>", "MSG"]], "Print", "PrintUsage",
CellTags->"Info163767357244-9107285"]
}, Open ]],
Cell["List of elements in the algebra. ", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"AlgebraElements", "=",
RowBox[{"{", "\[Gamma]", "}"}]}], ";"}]], "Input",
ExpressionUUID -> "dfe018f9-5a68-4e3d-80f6-7f128a7758b6"],
Cell["\<\
AlgElementQ is the function which tests if an expression is in the algebra\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"AlgElementQ", "[",
RowBox[{
RowBox[{"t_", "?", "xTensorQ"}], "[", "___", "]"}], "]"}], ":=",
RowBox[{"!",
RowBox[{"FreeQ", "[",
RowBox[{"AlgebraElements", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AlgElementQ", "[",
RowBox[{"HoldPattern", "[",
RowBox[{"Plus", "[", "factors___", "]"}], "]"}], "]"}], ":=",
RowBox[{"And", "@@",
RowBox[{"(",
RowBox[{"AlgElementQ", "/@",
RowBox[{"{", "factors", "}"}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AlgElementQ", "[",
RowBox[{"HoldPattern", "[",
RowBox[{"Times", "[", "factors___", "]"}], "]"}], "]"}], ":=",
RowBox[{"Or", "@@",
RowBox[{"(",
RowBox[{"AlgElementQ", "/@",
RowBox[{"{", "factors", "}"}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AlgElementQ", "[",
RowBox[{"HoldPattern", "[",
RowBox[{"AP", "[", "factors___", "]"}], "]"}], "]"}], ":=",
RowBox[{"Or", "@@",
RowBox[{"(",
RowBox[{"AlgElementQ", "/@",
RowBox[{"{", "factors", "}"}]}], ")"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AlgElementQ", "[", "_", "]"}], "=", "False"}], ";"}]}], "Input",
ExpressionUUID -> "1d97f44e-0046-4b00-8d71-3e6032172cbb"],
Cell["Examples of products", "Text",
ExpressionUUID -> "511dfa19-ef95-4c8a-85fa-a9ebe9cdbd12"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"AP", "[",
RowBox[{
RowBox[{"5",
RowBox[{"\[Gamma]", "[", "j", "]"}]}], ",",
RowBox[{"2",
RowBox[{"Id", "[", "]"}]}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}]}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"10", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"{",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}]}], "]"}], ",",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}]}], "]"}]}],
"}"}], "\[IndentingNewLine]",
RowBox[{"%", "//", "ToCanonical"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"#", "[",
RowBox[{"[", "1", "]"}], "]"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"#", "[",
RowBox[{"[", "2", "]"}], "]"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"#", "[",
RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@",
RowBox[{"Permutations", "[",
RowBox[{"{",
RowBox[{"i", ",", "j", ",", "k"}], "}"}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{"%", "//", "ToCanonical"}]}], "Input",
ExpressionUUID -> "48dc59db-78ee-43b8-90e8-0feb7b4c1547"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "e51cfc43-6c98-4ad1-bf84-1ae52064cbb6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "e51cfc43-6c98-4ad1-bf84-1ae52064cbb6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "e51cfc43-6c98-4ad1-bf84-1ae52064cbb6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "e51cfc43-6c98-4ad1-bf84-1ae52064cbb6"]
}, Open ]],
Cell["\<\
Jacobi identity. It is true for the supercommutator which happens to be the \
normal commutator,\
\>", "Text",
ExpressionUUID -> "7d1cdfd4-925b-49ca-b40a-3803c94c65e7"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Jac", "[",
RowBox[{"p_", "?", "ProductQ"}], "]"}], "[",
RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"sc", "=",
RowBox[{"Supercommutator", "[", "p", "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"3",
RowBox[{"Cyclize", "[",
RowBox[{
RowBox[{"sc", "[",
RowBox[{"a", ",",
RowBox[{"sc", "[",
RowBox[{"b", ",", "c"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}]}],
"]"}]}]], "Input",
ExpressionUUID -> "75ecb135-ed99-4dc2-86af-2c14549c0441"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Jac", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"#1", "[", "i", "]"}], ",",
RowBox[{"#2", "[", "j", "]"}], ",",
RowBox[{"#3", "[", "k", "]"}]}], "]"}], "&"}], ",", "AlgebraElements",
",", "AlgebraElements", ",", "AlgebraElements"}], "]"}], "//",
"Flatten"}], "\[IndentingNewLine]",
RowBox[{"%", "//", "ExpandCommutator"}]}], "Input",
ExpressionUUID -> "be9762d6-8dcb-4a85-bd34-8d03152bfb53"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k]]],
Editable->False], "+",
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], ",",
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`j],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i]]],
Editable->False], "+",
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], ",",
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`k],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "cbd6dff8-d66b-4422-952e-82ebbb1dc332"],
Cell[BoxData[
RowBox[{"{", "0", "}"}]], "Output",
ExpressionUUID -> "cbd6dff8-d66b-4422-952e-82ebbb1dc332"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["2. Simple sorting", "Subsubsection",
ExpressionUUID -> "2644e2ed-24a7-4fc1-8c8e-a2a648b04cce"],
Cell["We first define an algebra structure", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"AlgebraStructure", "[",
RowBox[{"\[Gamma]", ",", "\[Gamma]"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Supercommutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}]}], "]"}], "\[Equal]",
RowBox[{"2",
RowBox[{"g", "[",
RowBox[{"i", ",", "j"}], "]"}],
StyleBox[
RowBox[{"Id", "[", "]"}],
FontColor->GrayLevel[0]]}]}]}], "\[IndentingNewLine]",
RowBox[{"SetAttributes", "[",
RowBox[{"AlgebraStructure", ",", "Orderless"}], "]"}]}], "Input",
ExpressionUUID -> "8ea38443-7275-4a04-839a-f3cfd1b18710"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
"AlgebraStructure", ",", "AlgebraElements", ",", "AlgebraElements"}],
"]"}], "//", "TableForm"}]], "Input",
ExpressionUUID -> "99af7ff7-650d-41f9-a7bc-60d26c9e2870"],
Cell[BoxData[
TagBox[GridBox[{
{
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "\[Equal]",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
ExpressionUUID -> "9b4549ac-db3b-4c5d-9995-9f6cbd7e92f0"]
}, Open ]],
Cell["\<\
How to solve for a replacement rule for a particularly ordered product a\
\[Diamond]b in terms of b\[Diamond]a:\
\>", "Text",
ExpressionUUID -> "a69bf0d2-bf9a-49d6-ba90-b7b87fe09ceb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"CommuteAlgebraRule", "[", "AlgStruct_", "]"}], "[",
RowBox[{
RowBox[{"P_", "?", "ProductQ"}], "[",
RowBox[{
RowBox[{
RowBox[{"a_", "?", "xTensorQ"}], "[", "___", "]"}], ",",
RowBox[{
RowBox[{"b_", "?", "xTensorQ"}], "[", "___", "]"}]}], "]"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"structureEq", "=",
RowBox[{"ExpandCommutator", "@",
RowBox[{"AlgStruct", "[",
RowBox[{"a", ",", "b"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"solveFor", "=",
RowBox[{"First", "@",
RowBox[{"Cases", "[",
RowBox[{"structureEq", ",",
RowBox[{"P", "[",
RowBox[{
RowBox[{"a", "[", "___", "]"}], ",",
RowBox[{"b", "[", "___", "]"}]}], "]"}], ",", "All"}], "]"}]}]}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"IndexSolve", "[",
RowBox[{"structureEq", ",", "solveFor", ",",
RowBox[{"MetricOn", "\[Rule]", "All"}], ",",
RowBox[{"ContractMetrics", "\[Rule]", "True"}]}], "]"}]}], "]"}]}],
"]"}]}]], "Input",
ExpressionUUID -> "52aa89ba-ed83-4672-8b18-c84a3c1f131f"],
Cell["Examples:", "Text",
ExpressionUUID -> "afcc5063-44ff-4b0f-bcfb-d2dca1e9127a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"CommuteAlgebraRule", "[", "AlgebraStructure", "]"}], "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}]}], "]"}], "]"}]], "Input",
ExpressionUUID -> "b2cd8f7c-029e-44cd-ab8a-be73bafc9c58"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"HoldPattern", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{
UnderscriptBox[
UnderscriptBox["i", "_"], "_"]},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`i,
Blank[]], TangentM`pmQ]],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{
UnderscriptBox[
UnderscriptBox["j", "_"], "_"]},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`j,
Blank[]], TangentM`pmQ]],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`i,
Blank[]], TangentM`pmQ]],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`j,
Blank[]], TangentM`pmQ]]],
Editable->False], "]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "}"}], ",",
RowBox[{
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], ")"}]}], "+",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]}], "]"}]}], "}"}]], "Output",
ExpressionUUID -> "d6daab81-fcab-4ade-b883-47dacfc34bec"]
}, Open ]],
Cell[TextData[{
"We\[CloseCurlyQuote]re going to take the list AlgebraElements as an order \
on the elements. That is, if ",
Cell[BoxData[
FormBox[
RowBox[{"AlgebraElements", "=",
RowBox[{"{",
RowBox[{
SubscriptBox["a", "1"], ",",
SubscriptBox["a", "2"], ",",
RowBox[{"...", " ",
SubscriptBox["a", "n"]}]}], "}"}]}], TraditionalForm]]],
", then a general product ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["a",
SubscriptBox["i", "1"]], "\[Diamond]",
SubscriptBox["a",
SubscriptBox["i", "2"]], "\[Diamond]"}], "..."}], "\[Diamond]",
SubscriptBox["a",
SubscriptBox["i", "k"]]}], TraditionalForm]]],
"will get reordered so that the subscripts are in increasing order as \
determined by AlgebraElements. If two adjacent elements have the same tensor ",
Cell[BoxData[
FormBox[
SubscriptBox["a", "i"], TraditionalForm]]],
", then we determine the order based on a canonical order on the indices."
}], "Text"],
Cell[BoxData[{
RowBox[{"Clear", "[", "DisorderedProductQ", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"DisorderedProductQ", "[", "_", "]"}], "[",
RowBox[{
RowBox[{
RowBox[{"a_", "?", "xTensorQ"}], "[", "ai___", "]"}], ",",
RowBox[{"a_", "[", "bi___", "]"}]}], "]"}], ":=",
RowBox[{"!",
RowBox[{"OrderedQ", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{", "ai", "}"}], ",",
RowBox[{"{", "bi", "}"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"DisorderedProductQ", "[", "AlgList_", "]"}], "[",
RowBox[{
RowBox[{
RowBox[{"a_", "?", "xTensorQ"}], "[", "___", "]"}], ",",
RowBox[{
RowBox[{"b_", "?", "xTensorQ"}], "[", "___", "]"}]}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Position", "[",
RowBox[{"AlgList", ",", "a"}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ">",
RowBox[{
RowBox[{"Position", "[",
RowBox[{"AlgList", ",", "b"}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}]}], "Input",
ExpressionUUID -> "e1c40409-c776-4778-b754-0390445f7a14"],
Cell["Examples:", "Text",
ExpressionUUID -> "a8ee795e-dc1e-49e9-b6f4-8971bb285a22"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"#1", "[", "i", "]"}], ",",
RowBox[{"#2", "[", "j", "]"}]}], "]"}], ",",
RowBox[{
RowBox[{"DisorderedProductQ", "[", "AlgebraElements", "]"}], "[",
RowBox[{
RowBox[{"#1", "[", "i", "]"}], ",",
RowBox[{"#2", "[", "j", "]"}]}], "]"}]}], "}"}], "&"}], ",",
"AlgebraElements", ",", "AlgebraElements"}], "]"}], "//",
"TableForm"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"#1", "[", "j", "]"}], ",",
RowBox[{"#2", "[", "i", "]"}]}], "]"}], ",",
RowBox[{
RowBox[{"DisorderedProductQ", "[", "AlgebraElements", "]"}], "[",
RowBox[{
RowBox[{"#1", "[", "j", "]"}], ",",
RowBox[{"#2", "[", "i", "]"}]}], "]"}]}], "}"}], "&"}], ",",
"AlgebraElements", ",", "AlgebraElements"}], "]"}], "//",
"TableForm"}]}], "Input",
ExpressionUUID -> "77d5c2b4-620c-4aee-a9f9-942beb81e8d8"],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False]},
{"False"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {{
Offset[0.2]}}, "RowsIndexed" -> {}}],
Column]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
ExpressionUUID -> "6971363d-45d3-44b8-9fb1-2339eaff4de1"],
Cell[BoxData[
TagBox[GridBox[{
{
TagBox[GridBox[{
{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]},
{"True"}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {{
Offset[0.2]}}, "RowsIndexed" -> {}}],
Column]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
ExpressionUUID -> "6971363d-45d3-44b8-9fb1-2339eaff4de1"]
}, Open ]],
Cell["\<\
How to actually do the sorting. Find disordered products, apply \
(anti-)commutation relations, keep going until stable.\
\>", "Text",
ExpressionUUID -> "3e1ad0ce-e588-4ee3-b9de-95c58f19830f"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"SortAlgebraProduct", "[",
RowBox[{
RowBox[{"P_", "?", "ProductQ"}], ",", "AlgList_", ",", "AlgStruct_"}],
"]"}], "[", "expr_", "]"}], ":=",
RowBox[{"expr", "//.",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"HoldPattern", "[",
RowBox[{"P", "[",
RowBox[{"left___", ",", "a_", ",", "b_", ",", "right___"}], "]"}],
"]"}], "/;",
RowBox[{
RowBox[{"DisorderedProductQ", "[", "AlgList", "]"}], "[",
RowBox[{"a", ",", "b"}], "]"}]}], "\[RuleDelayed]",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"newInner", "=",
RowBox[{
RowBox[{"P", "[",
RowBox[{"a", ",", "b"}], "]"}], "/.",
RowBox[{
RowBox[{"CommuteAlgebraRule", "[", "AlgStruct", "]"}], "[",
RowBox[{"P", "[",
RowBox[{"a", ",", "b"}], "]"}], "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"P", "[",
RowBox[{"left", ",", "newInner", ",", "right"}], "]"}]}], "]"}]}],
"}"}]}]}]], "Input",
ExpressionUUID -> "4ba2dc55-6e91-4722-a0f4-62a4372dddac"],
Cell[BoxData[
RowBox[{
RowBox[{"SortCliffordAlgebraProduct", ":=",
RowBox[{"SortAlgebraProduct", "[",
RowBox[{"AP", ",", "AlgebraElements", ",", "AlgebraStructure"}], "]"}]}],
";"}]], "Input",
ExpressionUUID -> "fff0bbde-2883-4ca8-9070-d476fda46180"],
Cell["Examples of basic sorting according to the algebra structure", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Pairs", "=",
RowBox[{"Flatten", "@",
RowBox[{"{",
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"#1", "[", "i", "]"}], ",",
RowBox[{"#2", "[", "j", "]"}]}], "]"}], "&"}], ",",
"AlgebraElements", ",", "AlgebraElements"}], "]"}], ",",
RowBox[{"Outer", "[",
RowBox[{
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"#1", "[", "j", "]"}], ",",
RowBox[{"#2", "[", "i", "]"}]}], "]"}], "&"}], ",",
"AlgebraElements", ",", "AlgebraElements"}], "]"}]}],
"}"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Pairs", ",",
RowBox[{"SortCliffordAlgebraProduct", "@", "Pairs"}]}], "}"}]}], "//",
"ScreenDollarIndices"}], "//", "TableForm"}]}], "Input",
ExpressionUUID -> "d334779e-c542-4b69-a6a4-0a996852edec"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}], "}"}]], "Output",
ExpressionUUID -> "4895e0e5-a674-43b3-8b5e-a6acf514bc07"],
Cell[BoxData[
TagBox[GridBox[{
{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False],
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False]},
{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False],
RowBox[{
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ")"}]}], "+",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
ExpressionUUID -> "4895e0e5-a674-43b3-8b5e-a6acf514bc07"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["3. Identities", "Subsubsection",
ExpressionUUID -> "92754e4b-9fd3-429e-a752-62a4b48a9f77"],
Cell["\<\
This basic sorting is enough to check many simple usual identities\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Commutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"Id", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}]}], "]"}], "//",
"ExpandCommutator"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Anticommutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"Id", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}]}], "]"}], "//",
"ExpandCommutator"}]}], "Input"],
Cell[BoxData["0"], "Output"],
Cell[BoxData[
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Commutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"%", "//", "ExpandCommutator"}], "//",
"SortCliffordAlgebraProduct"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Anticommutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"%", "//", "ExpandCommutator"}], "//",
"SortCliffordAlgebraProduct"}]}], "Input",
ExpressionUUID -> "d85f2287-8e15-47e7-a47e-456e401e90ae"],
Cell[BoxData[
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"[",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Commutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False]], "Output",
ExpressionUUID -> "63be7a7d-c40c-48ea-a941-1ac884558dff"],
Cell[BoxData[
RowBox[{
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False]}], "-",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "a"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]], "Output",
ExpressionUUID -> "63be7a7d-c40c-48ea-a941-1ac884558dff"],
Cell[BoxData[
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"{",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "}"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Anticommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False]], "Output",
ExpressionUUID -> "63be7a7d-c40c-48ea-a941-1ac884558dff"],
Cell[BoxData[
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "a"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output",
ExpressionUUID -> "63be7a7d-c40c-48ea-a941-1ac884558dff"]
}, Open ]],
Cell["Contraction on product of two \[Gamma]\[CloseCurlyQuote]s identity. \
Save this rule.", "Text",
ExpressionUUID -> "8a6e2524-fef0-4c40-b6e9-077a269a71c7"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SeparateMetric", "[", "]"}], "@", "%"}], "\[IndentingNewLine]",
RowBox[{"MapAt", "[",
RowBox[{"Symmetrize", ",", "%", ",", "1"}], "]"}], "\[IndentingNewLine]",
RowBox[{"%", "//", "SortCliffordAlgebraProduct"}], "\[IndentingNewLine]",
RowBox[{"\[Gamma]a\[Gamma]aRule", "=",
RowBox[{"MakeRule", "[",
RowBox[{
RowBox[{"Evaluate", "@",
RowBox[{"{",
RowBox[{"%%%%", ",", "%"}], "}"}]}], ",",
RowBox[{"MetricOn", "\[Rule]", "All"}]}], "]"}]}]}], "Input",
ExpressionUUID -> "0cae49b2-e210-497a-b57e-73c55dc5da38"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a]],
Editable->False]], "Output",
ExpressionUUID -> "9981e8f4-c559-496c-b1e8-45868c3161a6"],
Cell[BoxData[
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{" ", " "},
{"b", "a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[-$CellContext`b, -$CellContext`a],
Editable->False]}]], "Output",
ExpressionUUID -> "9981e8f4-c559-496c-b1e8-45868c3161a6"],
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False], "+",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`a]],
Editable->False]}], ")"}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{" ", " "},
{"b", "a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[-$CellContext`b, -$CellContext`a],
Editable->False]}]], "Output",
ExpressionUUID -> "9981e8f4-c559-496c-b1e8-45868c3161a6"],
Cell[BoxData[
RowBox[{"4", " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output",
ExpressionUUID -> "9981e8f4-c559-496c-b1e8-45868c3161a6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"HoldPattern", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{
UnderscriptBox[
UnderscriptBox["a", "_"], "_"]},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{
UnderscriptBox[
UnderscriptBox["a", "_"], "_"]}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
$CellContext`\[Gamma][-PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]]],
Editable->False], "]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "}"}], ",",
RowBox[{"4", " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}], "]"}]}], ",",
RowBox[{
RowBox[{"HoldPattern", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{
UnderscriptBox[
UnderscriptBox["a", "_"], "_"]}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{
UnderscriptBox[
UnderscriptBox["a", "_"], "_"]},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][-PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]],
$CellContext`\[Gamma][
PatternTest[
Pattern[$CellContext`a,
Blank[Symbol]], TangentM`Q]]],
Editable->False], "]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "}"}], ",",
RowBox[{"4", " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}], "]"}]}]}], "}"}]], "Output",
ExpressionUUID -> "9981e8f4-c559-496c-b1e8-45868c3161a6"]
}, Open ]],
Cell["Contraction on product of three \[Gamma]\[CloseCurlyQuote]s:", "Text",
ExpressionUUID -> "56b35287-9917-4e14-8b77-eee90df78d42"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"%", "//", "SortCliffordAlgebraProduct"}], "\[IndentingNewLine]",
RowBox[{"%", "/.", "\[Gamma]a\[Gamma]aRule"}]}], "Input",
ExpressionUUID -> "3bc2e9a6-8342-4a8d-957a-7f9b48c5dc51"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][-$CellContext`a]],
Editable->False]], "Output",
ExpressionUUID -> "98a63d8c-8e24-4990-b7d2-b3fd655c1dd0"],
Cell[BoxData[
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False], "-",
RowBox[{"6", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}]}]], "Output",
ExpressionUUID -> "98a63d8c-8e24-4990-b7d2-b3fd655c1dd0"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "2"}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}]], "Output",
ExpressionUUID -> "98a63d8c-8e24-4990-b7d2-b3fd655c1dd0"]
}, Open ]],
Cell["Contraction on product of four \[Gamma]\[CloseCurlyQuote]s:", "Text",
ExpressionUUID -> "f5107ef2-aad4-4371-82b2-af339be5fad1"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[", "c", "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"%", "//", "SortCliffordAlgebraProduct"}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{"%", "/.", "\[Gamma]a\[Gamma]aRule"}]}], "Input",
ExpressionUUID -> "78621f21-ba87-4f4e-a432-8f4fa9639db6"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][-$CellContext`a]],
Editable->False]], "Output",
ExpressionUUID -> "cc78a489-5d8a-4bbb-b050-40c3ae8be10c"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c]],
Editable->False]}], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c]],
Editable->False], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]], "Output",
ExpressionUUID -> "cc78a489-5d8a-4bbb-b050-40c3ae8be10c"],
Cell[BoxData[
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output",
ExpressionUUID -> "cc78a489-5d8a-4bbb-b050-40c3ae8be10c"]
}, Open ]],
Cell["Contraction on product of five \[Gamma]\[CloseCurlyQuote]s:", "Text",
ExpressionUUID -> "27b798ac-f500-4790-af10-daf30be573de"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "d", "]"}], ",",
RowBox[{"\[Gamma]", "[", "c", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"%", "//", "SortCliffordAlgebraProduct"}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{"%", "/.", "\[Gamma]a\[Gamma]aRule"}]}], "Input",
ExpressionUUID -> "44bd8660-49a5-46f9-9dc5-f03a77f636e7"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`d],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][-$CellContext`a]],
Editable->False]], "Output",
ExpressionUUID -> "6a720d5a-4532-403e-8e66-6af78f365d42"],
Cell[BoxData[
RowBox[{
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][$CellContext`d]],
Editable->False]}], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][$CellContext`d]],
Editable->False], "+",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`d]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "-",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`c]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "+",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`a],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "-",
RowBox[{"8", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}], "+",
RowBox[{"8", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False]}], "-",
RowBox[{"8", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}]}]], "Output",
ExpressionUUID -> "6a720d5a-4532-403e-8e66-6af78f365d42"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "2"}], " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][$CellContext`d]],
Editable->False]}]], "Output",
ExpressionUUID -> "6a720d5a-4532-403e-8e66-6af78f365d42"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"4. The ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]],
ExpressionUUID -> "63be82ea-9567-4110-a8fc-827a5210283f"],
" algebra element"
}], "Subsubsection",
ExpressionUUID -> "cc97d62f-65d0-451c-8d45-4f6dd9a9911b"],
Cell[TextData[{
"First, we define ",
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox["\[Gamma]", "^"], "=",
RowBox[{
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"d", "!"}]],
SubscriptBox["\[Epsilon]",
RowBox[{
RowBox[{
SubscriptBox["i", "1"], "..."}],
SubscriptBox["i", "d"]}]],
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "1"]]}], "..."}],
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "d"]]}]}], TraditionalForm]],
ExpressionUUID -> "e51aef3f-a1fa-4a5c-80e9-517b5a62af20"],
" (It is not exactly the chiral matrix, see below)"
}], "Text",
ExpressionUUID -> "2fb1f47a-4300-4a32-8b27-e10d968d8819"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Gamma]hatExplicit", "[", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"inds", "=",
RowBox[{"GetIndicesOfVBundle", "[",
RowBox[{"TangentM", ",", "dim"}], "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"1", "/",
RowBox[{"dim", "!"}]}],
RowBox[{"epsilong", "@@",
RowBox[{"(",
RowBox[{"-", "inds"}], ")"}]}], " ",
RowBox[{"AP", "@@",
RowBox[{"(",
RowBox[{"\[Gamma]", "/@",
RowBox[{"(", "inds", ")"}]}], ")"}]}]}]}], "]"}]}]], "Input",
ExpressionUUID -> "f6c4ebf8-effb-4f5c-b466-757f34873750"],
Cell[TextData[{
"Now instead of dealing with the many indices of ",
Cell[BoxData[
FormBox[
RowBox[{
OverscriptBox["\[Gamma]", "^"], "=",
RowBox[{
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"d", "!"}]],
SubscriptBox["\[Epsilon]",
RowBox[{
RowBox[{
SubscriptBox["i", "1"], "..."}],
SubscriptBox["i", "d"]}]],
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "1"]]}], "..."}],
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "d"]]}]}], TraditionalForm]],
ExpressionUUID -> "e51aef3f-a1fa-4a5c-80e9-517b5a62af20"],
", we can define an abstract object ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]],
ExpressionUUID -> "c60ffc1d-f533-4d22-a7c5-bf43e1462552"],
" and add it to our algebra. All the relations involve only anticommutators, \
so it makes sense to make this have an odd grade."
}], "Text",
ExpressionUUID -> "a0c93cf8-2c6a-4a8a-b819-bcf28bb534a6"],
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",", "M", ",",
RowBox[{"GradeOfTensor", "\[Rule]",
RowBox[{"{",
RowBox[{"AP", "\[Rule]", "1"}], "}"}]}], ",",
RowBox[{
"PrintAs", "\[Rule]",
"\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(^\)]\)\>\""}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"\[Gamma]chiral", "[", "]"}], ",", "M", ",",
RowBox[{"GradeOfTensor", "\[Rule]",
RowBox[{"{",
RowBox[{"AP", "\[Rule]", "1"}], "}"}]}], ",",
RowBox[{
"PrintAs", "\[Rule]",
"\"\<\!\(\*OverscriptBox[\(\[Gamma]\), \(~\)]\)\>\""}]}], "]"}]}], "Input",
ExpressionUUID -> "b67532ab-3d5e-473c-a81c-113f9ea91d8d"],
Cell["Add to AlgebraElements and AlgebraStructure", "Text",
ExpressionUUID -> "f656cda3-c615-4142-8d60-bf9cdbe32a02"],
Cell[BoxData[
RowBox[{
RowBox[{"AlgebraElements", "=",
RowBox[{"{",
RowBox[{"\[Gamma]", ",", "\[Gamma]hat"}], "}"}]}], ";"}]], "Input",
ExpressionUUID -> "306652d8-cc0b-4483-9dee-39ed96f2558c"],
Cell["This sign sinrev[d] controls the reversal of d \[Gamma] matrices", \
"Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"sinrev", "[", "d_", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"d",
RowBox[{
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}], "/", "2"}]}], ")"}]}]}],
";"}]], "Input"],
Cell[BoxData[{
RowBox[{
RowBox[{"AlgebraStructure", "[",
RowBox[{"\[Gamma]", ",", "\[Gamma]hat"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Supercommutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "\[Equal]",
"0"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"AlgebraStructure", "[",
RowBox[{"\[Gamma]hat", ",", "\[Gamma]hat"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Supercommutator", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "\[Equal]",
RowBox[{"2", " ",
StyleBox[
RowBox[{"Id", "[", "]"}],
FontColor->RGBColor[1, 0.5, 0]],
RowBox[{"sinrev", "[", "dim", "]"}],
RowBox[{"SignDetOfMetric", "[", "g", "]"}]}]}]}]}], "Input",
ExpressionUUID -> "029305d9-70ed-4fbe-ba45-c7fbe1cf651f"],
Cell[TextData[{
"SignDetOfMetric[g] is because after reversing the order of the gammas \
(which brings ",
"sinrev[dim]",
") hidden in one ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]],
ExpressionUUID -> "e51aef3f-a1fa-4a5c-80e9-517b5a62af20"],
", \nwe get all gammas squared, so we get the determinant of metric (in \
tetrad basis)."
}], "Text"],
Cell[TextData[{
"For even dimensions, we want to define a chiral matrix such that ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[Gamma]chiral", "2"], TraditionalForm]]],
"=Id ",
Cell[BoxData[
FormBox[
RowBox[{"(",
RowBox[{"\[Gamma]chiral", "=",
RowBox[{
SuperscriptBox["\[Gamma]", "5"], " ", "in", " ", "D"}]}]}],
TraditionalForm]]],
").\nHence, we relate \[Gamma]chiral to ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]],
ExpressionUUID -> "e51aef3f-a1fa-4a5c-80e9-517b5a62af20"],
" by \[Gamma]chiral = ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["i",
RowBox[{
RowBox[{"Floor", "[",
RowBox[{"d", "/", "2"}], "]"}], "-", "1"}]], " ",
OverscriptBox["\[Gamma]", "^"]}], TraditionalForm]]],
". That way ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[Gamma]chiral", "2"], TraditionalForm]]],
" is Id for even dimension and -Id for odd dimensions."
}], "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Gamma]chiral", "[", "]"}], ":=",
RowBox[{
RowBox[{"I", "^",
RowBox[{"(",
RowBox[{
RowBox[{"Floor", "[",
RowBox[{"dim", "/", "2"}], "]"}], "-", "1"}], ")"}]}],
RowBox[{"\[Gamma]hat", "[", "]"}]}]}], ";"}]], "Input"],
Cell[BoxData[
RowBox[{"We", " ", "check", " ", "the", " ", "value", " ", "of", " ",
SuperscriptBox["\[Gamma]chiral", "2"], " ", "for", " ", "various", " ",
"dimensions"}]], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Grid", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"d", ",",
RowBox[{
RowBox[{"sinrev", "[", "d", "]"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"I", "^",
RowBox[{"(",
RowBox[{
RowBox[{"Floor", "[",
RowBox[{"d", "/", "2"}], "]"}], "-", "1"}], ")"}]}], ")"}], "^",
"2"}],
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"d", ",", "2", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input"],
Cell[BoxData[
TagBox[GridBox[{
{"2", "1"},
{"3",
RowBox[{"-", "1"}]},
{"4", "1"},
{"5",
RowBox[{"-", "1"}]},
{"6", "1"},
{"7",
RowBox[{"-", "1"}]},
{"8", "1"},
{"9",
RowBox[{"-", "1"}]},
{"10", "1"}
},
AutoDelete->False,
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
"Grid"]], "Output"]
}, Open ]],
Cell["Let us visualize the algebra structure now", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Outer", "[",
RowBox[{
"AlgebraStructure", ",", "AlgebraElements", ",", "AlgebraElements"}],
"]"}], "//", "TableForm"}]], "Input",
ExpressionUUID -> "6f5ffcd5-b75b-4e54-8cfe-44698e1104b6"],
Cell[BoxData[
TagBox[GridBox[{
{
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "\[Equal]",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}],
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], "\[Equal]", "0"}]},
{
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], ",",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], "\[Equal]", "0"}],
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox[
RowBox[{"\[LeftDoubleBracket]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], ",",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], "\[RightDoubleBracket]"}], "\[Diamond]"],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`Supercommutator[$CellContext`AP][
$CellContext`\[Gamma]hat[],
$CellContext`\[Gamma]hat[]],
Editable->False], "\[Equal]",
RowBox[{
RowBox[{"-", "2"}], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}]}
},
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[2.0999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
Function[BoxForm`e$,
TableForm[BoxForm`e$]]]], "Output",
ExpressionUUID -> "48760ea5-6c93-48c0-a843-5eace787b90e"]
}, Open ]],
Cell["\<\
So we can add the following rule, that we can set to be automatic.\
\>", "Text",
ExpressionUUID -> "4a6af408-a4ff-41ae-87e6-427edce7f648"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"CommuteAlgebraRule", "[", "AlgebraStructure", "]"}], "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]], "Input",
ExpressionUUID -> "c20ef355-bc0e-41de-b5fa-f72cff844414"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"HoldPattern", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma]hat[],
$CellContext`\[Gamma]hat[]],
Editable->False], "]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "}"}], ",",
RowBox[{"-",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]}], "]"}]}], "}"}]], "Output",
ExpressionUUID -> "4f5cfe7e-3112-41db-a114-22029ef7c20f"]
}, Open ]],
Cell["Make it automatic.", "Text",
ExpressionUUID -> "ea42287a-2daa-44ab-83f5-bd0ec3c2cdcc"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"AutomaticRules", "[",
RowBox[{"\[Gamma]hat", ",",
RowBox[{
RowBox[{"CommuteAlgebraRule", "[", "AlgebraStructure", "]"}], "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}], "]"}]], "Input",
ExpressionUUID -> "fcc1819e-fc66-493c-b1ff-2cb4700618cc"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\" Rules \"\>", "\[InvisibleSpace]",
RowBox[{"{", "1", "}"}],
"\[InvisibleSpace]", "\<\" have been declared as UpValues for \"\>",
"\[InvisibleSpace]", "\[Gamma]hat", "\[InvisibleSpace]", "\<\".\"\>"}],
SequenceForm[" Rules ",
Shallow[{1}],
" have been declared as UpValues for ", $CellContext`\[Gamma]hat, "."],
Editable->False]], "Print"]
}, Open ]],
Cell["Tests", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}]}], "Input",
ExpressionUUID -> "fbac9993-98c3-4e64-b73e-cbb3daa53d47"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}]], "Output",
ExpressionUUID -> "bc8c2f0c-7e4e-4d9b-b2e0-e7fe20d44981"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output",
ExpressionUUID -> "bc8c2f0c-7e4e-4d9b-b2e0-e7fe20d44981"]
}, Open ]],
Cell[BoxData[
StyleBox[
RowBox[{
RowBox[{"In", " ", "case", " ", "of", " ", "odd", " ", "dimensions"}], ",",
" ",
RowBox[{
RowBox[{
OverscriptBox["\[Gamma]", "^"], " ", "is", " ", "a", " ", "multiple",
" ", "of", " ",
RowBox[{"Identity", ".", " ", "There"}], " ", "are", " ", "still", " ",
"two", " ", "choices", " ", "so", " ", "we", " ", "need", " ", "a", " ",
"variable", " ", "which", " ", "can", " ", "be"}], "+",
RowBox[{"1", " ", "or"}], " ", "-",
RowBox[{"1", " ", "to", " ", "account", " ", "for", " ", "thoses", " ",
RowBox[{"choices", "."}]}]}]}],
FontFamily->"Arial"]], "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["It",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
StyleBox["is",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
StyleBox["possible",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
StyleBox["to",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
StyleBox["show",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
StyleBox["that",
FontFamily->"Arial"],
StyleBox[" ",
FontFamily->"Arial"],
SuperscriptBox[
RowBox[{
StyleBox["(",
FontFamily->"Arial"],
OverscriptBox["\[Gamma]", "^"], ")"}], "2"]}], " ", "=", " ",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"d",
RowBox[{
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}], "/", "2"}]}]], " ", "det", " ",
RowBox[{"g", ".", " ", "Furthermore"}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"d",
RowBox[{
RowBox[{"(",
RowBox[{"d", "-", "1"}], ")"}], "/", "2"}]}]]}], "=",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"Floor", "[",
RowBox[{"d", "/", "2"}], "]"}]], "."}]}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Gamma]hatChoice", ":=", "1"}], ";"}],
RowBox[{"(*",
RowBox[{
RowBox[{"Can", " ", "be"}], " ", "+",
RowBox[{"1", " ", "or"}], " ", "-", "1"}], "*)"}]}]], "Input"],
Cell[BoxData[
RowBox[{"\[Gamma]hatOverId", ":=",
RowBox[{
RowBox[{"-", "I"}], " ", "\[Gamma]hatChoice", " ",
RowBox[{"I", "^",
RowBox[{"(",
RowBox[{"Floor", "[",
RowBox[{"dim", "/", "2"}], "]"}], ")"}]}],
RowBox[{"Sqrt", "[",
RowBox[{"SignDetOfMetric", "[", "g", "]"}], "]"}]}]}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"We", " ", "replace", " ",
OverscriptBox["\[Gamma]", "^"], " ", "by", " ", "its", " ", "expression",
" ", "in", " ", "terms", " ", "of", " ", "identity", " ", "in", " ",
"case", " ", "of", " ", "odd", " ", "dimension"}], ",", " ",
RowBox[{
"so", " ", "as", " ", "to", " ", "never", " ", "have", " ", "to", " ",
"deal", " ", "with", " ",
RowBox[{"it", "."}]}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ":=",
RowBox[{
RowBox[{"\[Gamma]hatOverId", " ",
RowBox[{"Id", "[", "]"}]}], "/;",
RowBox[{"OddQ", "[", "dim", "]"}]}]}]], "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell["5. Irreducible decomposition", "Subsubsection"],
Cell["a) Basic definitions", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell["\<\
Taken from Jose and Alfonso Garcia-Parrado notebook, itself inspired and \
adapted from the GAMMA.m package by Ulaf Gran,\
\>", "Text"],
Cell["Cyril: The function GE[AP[ ...]] was corrected. See below. ", "Text"],
Cell["\<\
We extend the definition of \[Gamma] to allow for multiples indices. \
\[Gamma][i,j,k] is the antisymmetrized product of \[Gamma][i]\[Gamma][j]\
\[Gamma][k] etc..\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"SlotsOfTensor", "[", "\[Gamma]", "]"}], "^=",
RowBox[{"{",
RowBox[{"AnyIndices", "[", "TangentM", "]"}], "}"}]}], ";"}]], "Input"],
Cell["\<\
We must redefine the symmetries of the tensor \[Gamma] to be antisymmetric in \
its indices\
\>", "Text"],
Cell[BoxData[
RowBox[{"\[Gamma]", "/:",
RowBox[{"SymmetryGroupOfTensor", "[", "\[Gamma]", "]"}], "=."}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"\[Gamma]", "[", "inds__", "]"}], "]"}], "^:=",
RowBox[{"Antisymmetric", "[",
RowBox[{
RowBox[{"Range", "[",
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], "]"}], ",", "xAct`xPerm`Cycles"}],
"]"}]}]], "Input"],
Cell["We also need this special case:", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Gamma]", "[", "]"}], "=",
RowBox[{"Id", "[", "]"}]}], ";"}]], "Input"],
Cell["Now we can have an expression like", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"p", ",", "q"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}]}], "]"}]], "Input"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"p", "q"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`p, $CellContext`q],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i", "j", "k"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j, $CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`p, $CellContext`q],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j, $CellContext`k]],
Editable->False]], "Output"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Rules", " ", "to", " ", "convert", " ",
OverscriptBox["\[Gamma]", "^"], " ", "to", " ", "\[Gamma]", " ", "and",
" ", "vice"}], "-",
RowBox[{
RowBox[{"versa", ".", " ", "It"}], " ", "is", " ", "slow", " ",
"because", " ", "I", " ", "recompute", " ", "the", " ", "rule", " ",
"evrytime", " ", "I", " ", "need", " ", "it"}]}], "..."}], "."}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Gamma]hatTogamma", ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"inds", "=",
RowBox[{"GetIndicesOfVBundle", "[",
RowBox[{"TangentM", ",", "dim"}], "]"}]}], "}"}], ",",
RowBox[{"IndexRule", "[",
RowBox[{
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ",",
RowBox[{
RowBox[{"1", "/",
RowBox[{"dim", "!"}]}],
RowBox[{"epsilong", "@@", "inds"}], " ",
RowBox[{"\[Gamma]", "@@",
RowBox[{"(",
RowBox[{"-", "inds"}], ")"}]}]}]}], "]"}]}], "]"}]}],
";"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"gammaTo\[Gamma]hat", "=",
RowBox[{
RowBox[{"\[Gamma]", "[", "inds__", "]"}], "\[RuleDelayed]",
RowBox[{
RowBox[{
RowBox[{"SignDetOfMetric", "[", "g", "]"}],
RowBox[{"epsilong", "[", "inds", "]"}],
RowBox[{"\[Gamma]hat", "[", "]"}]}], "/;",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], "===", "dim"}]}]}]}],
";"}]], "Input"],
Cell["\<\
We check that these rules are the inverse of each other in various dimensions\
\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "3"}], "}"}], ",",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ";",
RowBox[{
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], "/.", "\[Gamma]hatTogamma"}], "/.",
"gammaTo\[Gamma]hat"}]}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "5"}], "}"}], ",",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ";",
RowBox[{
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], "/.", "\[Gamma]hatTogamma"}], "/.",
"gammaTo\[Gamma]hat"}]}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "7"}], "}"}], ",",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ";",
RowBox[{
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], "/.", "\[Gamma]hatTogamma"}], "/.",
"gammaTo\[Gamma]hat"}]}]}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Print"],
Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Print"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Print"],
Cell[BoxData[
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output"]
}, Open ]],
Cell["\<\
We define a rule to express an antisymmetrized product explicitly in terms of \
usual products.\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"ExpandMulti\[Gamma]Rule", "=",
RowBox[{
RowBox[{
RowBox[{"\[Gamma]", "[", "inds__", "]"}], "/;",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], ">", "1"}]}], "\[RuleDelayed]",
RowBox[{"Antisymmetrize", "[",
RowBox[{
RowBox[{"AP", "@@",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "[", "#", "]"}], "&"}], ")"}], "/@",
RowBox[{"{", "inds", "}"}]}], ")"}]}], ",",
RowBox[{"{", "inds", "}"}]}], "]"}]}]}], ";"}]], "Input"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"2", "!"}], "*",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j"}], "]"}]}], "/.",
"ExpandMulti\[Gamma]Rule"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"3", "!"}], "*",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}]}], "/.",
"ExpandMulti\[Gamma]Rule"}]}], "Input"],
Cell[BoxData[
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`k]],
Editable->False], "+",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], "+",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], "-",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`i]],
Editable->False]}]], "Output"]
}, Open ]],
Cell["b) Actual irreducible decomposition", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell["\<\
The following code for the irreducible decomposition in antisymmetric \
\[Gamma] is adapted from GAMMA.m package (using Jose and Alfonso\
\[CloseCurlyQuote]s code).
Initially there were three parts in this GAMMA.m code
\t1) decomposition of a product of gammas into irreducible parts (deltas and \
antisymmetrized gammas),
\t2) contraction of indices in two **contiguous** gammas in a product,
\t3) computation of traces.\t
Here we report **ONLY** the 1), that is the decomposition in irreducible \
components.\
\>", "Text"],
Cell["\<\
Wrapping function that performs the irreducible decomposition (the essential \
of the code is in the function GE implemented below).\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[", "expr_", "]"}], ":=",
RowBox[{
RowBox[{"Collect", "[",
RowBox[{
RowBox[{"expr", "//.",
RowBox[{
RowBox[{"dp", ":",
RowBox[{
RowBox[{"Verbatim", "[", "AP", "]"}], "[", "__", "]"}]}],
"\[RuleDelayed]",
RowBox[{"GE", "[", "dp", "]"}]}]}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",", "_\[Gamma]", ",",
RowBox[{"Id", "[", "]"}]}], "}"}], ",", "Expand"}], "]"}], "/.",
"gammaTo\[Gamma]hat"}]}], ";"}]], "Input"],
Cell["\<\
Common code: a numerical factor and the key algorithm for expansion of a \
product of two antisymmetrized gammas. Note that Gran\[CloseCurlyQuote]s \
Delta with two p-blocks is our Gdelta/p!, and hence the following factor does \
not have a p! multiplying in the numerator, that Gran has.\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"factor", "[",
RowBox[{"p_", ",", "n_", ",", "k_", ",", "dimr_"}], "]"}], ":=",
RowBox[{
RowBox[{"Power", "[",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "n"}], "+", "k", "-", "p", "-", "1"}], ")"}],
RowBox[{
RowBox[{"(",
RowBox[{"p", "+", "k"}], ")"}], "/", "2"}]}]}], "]"}],
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"dimr", "+", "p", "-", "n"}], ")"}], "!"}],
RowBox[{
RowBox[{"(",
RowBox[{"dimr", "+", "p", "-", "n", "-", "k"}], ")"}], "!"}]]}]}],
";"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"code", "[",
RowBox[{"prod_", ",", "gamma_", ",",
RowBox[{"{", "w___", "}"}], ",",
RowBox[{"{",
RowBox[{"x_List", ",", "y_List"}], "}"}], ",",
RowBox[{"{", "z___", "}"}], ",", "p_Integer"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"xxcomb", "=",
RowBox[{"Subsets", "[",
RowBox[{
RowBox[{"Sort", "[", "x", "]"}], ",",
RowBox[{"{", "p", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"yycomb", "=",
RowBox[{"Subsets", "[",
RowBox[{
RowBox[{"Sort", "[", "y", "]"}], ",",
RowBox[{"{", "p", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]",
"actxxcomb", ",", "actyycomb", ",", "actxxcompo", ",", "actyycompo",
",", "joincomb", ",", "joincompo"}], "\[IndentingNewLine]", "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Signature", "[", "x", "]"}],
RowBox[{"Signature", "[", "y", "]"}], "\[IndentingNewLine]",
RowBox[{"Sum", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"actxxcomb", "=",
RowBox[{"xxcomb", "[",
RowBox[{"[", "xxcount", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"actyycomb", "=",
RowBox[{"yycomb", "[",
RowBox[{"[", "yycount", "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"actxxcompo", "=",
RowBox[{"Complement", "[",
RowBox[{"x", ",", "actxxcomb"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"actyycompo", "=",
RowBox[{"Complement", "[",
RowBox[{"y", ",", "actyycomb"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"joincomb", "=",
RowBox[{"Join", "@@",
RowBox[{"Sort", "[",
RowBox[{"{",
RowBox[{"actxxcomb", ",", "actyycomb"}], "}"}], "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"joincompo", "=",
RowBox[{"Join", "[",
RowBox[{"actxxcompo", ",", "actyycompo"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Gdelta", "@@", "joincomb"}], "\[IndentingNewLine]",
RowBox[{"prod", "[",
RowBox[{"w", ",",
RowBox[{"gamma", "@@",
RowBox[{"Sort", "[", "joincompo", "]"}]}], ",", "z"}], "]"}],
"\[IndentingNewLine]",
RowBox[{"Signature", "[", "joincompo", "]"}], "\[IndentingNewLine]",
RowBox[{"Signature", "[",
RowBox[{"Join", "[",
RowBox[{"actxxcomb", ",", "actxxcompo"}], "]"}], "]"}],
"\[IndentingNewLine]",
RowBox[{"Signature", "[",
RowBox[{"Join", "[",
RowBox[{"actyycomb", ",", "actyycompo"}], "]"}], "]"}]}]}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"xxcount", ",", "1", ",",
RowBox[{"Length", "[", "xxcomb", "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"yycount", ",", "1", ",",
RowBox[{"Length", "[", "yycomb", "]"}]}], "}"}]}],
"\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}],
";"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"GE", "[",
RowBox[{"AP", "[",
RowBox[{"x_\[Gamma]", ",", "y_\[Gamma]", ",", "z___"}], "]"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{", "p", "}"}], ",",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"n", "=",
RowBox[{"Length", "[", "x", "]"}]}], ",",
RowBox[{"r", "=",
RowBox[{"Length", "[", "y", "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
RowBox[{"factor", "[",
RowBox[{"p", ",", "n", ",", "0", ",", "Null"}], "]"}],
RowBox[{"code", "[",
RowBox[{"AP", ",", "\[Gamma]", ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"List", "@@", "x"}], ",",
RowBox[{"List", "@@", "y"}]}], "}"}], ",",
RowBox[{"{", "z", "}"}], ",", "p"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"p", ",", "0", ",",
RowBox[{"Min", "[",
RowBox[{"n", ",", "r"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]}], ";"}]], "Input"],
Cell["\<\
Cyril TODO Careful that if the user uses the index ' p' then it conflicts \
with the code and factor functions, resulting in nonsensical results.
So I added a DummyIn[...]. Not the best method...but it works to avoid \
conflicts of indices.\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"GE", "[",
RowBox[{"AP", "[",
RowBox[{"x_\[Gamma]", ",",
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ",", "z___"}], "]"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"n", "=",
RowBox[{"Length", "[", "x", "]"}]}], ",",
RowBox[{"dim", "=",
RowBox[{"DimOfVBundle", "[",
RowBox[{"VBundleOfIndex", "[",
RowBox[{"First", "[", "x", "]"}], "]"}], "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"inds", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"DummyIn", "[", "TangentM", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"dim", "-", "n"}]}], "}"}]}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"sinrev", "[", "dim", "]"}], " ", "CYRIL", " ",
"CORRECTED"}], " ", "*)"}],
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"sinrev", "[", "n", "]"}], ")"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{"dim", "-", "n"}], ")"}], "!"}]}],
RowBox[{"epsilong", "@@",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"List", "@@", "x"}], ",",
RowBox[{"List", "@@", "inds"}]}], "]"}]}],
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "@@",
RowBox[{"(",
RowBox[{"-", "inds"}], ")"}]}], ",", "z"}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], "/;",
RowBox[{"IntegerQ", "[", "dim", "]"}]}]}], "\[IndentingNewLine]",
"]"}]}], "\n",
RowBox[{
RowBox[{"GE", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ",", "x_\[Gamma]", ",",
"z___"}], "]"}], "]"}], ":=",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"n", "=",
RowBox[{"Length", "[", "x", "]"}]}], ",",
RowBox[{"dim", "=",
RowBox[{"DimOfVBundle", "[",
RowBox[{"VBundleOfIndex", "[",
RowBox[{"First", "[", "x", "]"}], "]"}], "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"inds", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"DummyIn", "[", "TangentM", "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"dim", "-", "n"}]}], "}"}]}], "]"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"sinrev", "[", "dim", "]"}], " ", "CYRIL", " ",
"CORRECTED"}], "*)"}],
RowBox[{
RowBox[{
RowBox[{"sinrev", "[", "n", "]"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{"dim", "-", "n"}], ")"}], "!"}]}],
RowBox[{"epsilong", "@@",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"List", "@@", "inds"}], ",",
RowBox[{"List", "@@", "x"}]}], "]"}]}],
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "@@",
RowBox[{"(",
RowBox[{"-", "inds"}], ")"}]}], ",", "z"}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], "/;",
RowBox[{"IntegerQ", "[", "dim", "]"}]}]}], "\[IndentingNewLine]",
"]"}]}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"GE", "[",
RowBox[{"AP", "[",
RowBox[{"z___", ",",
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], ",",
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}]}], "]"}], "]"}], ":=",
RowBox[{
RowBox[{"sinrev", "[", "dim", "]"}],
RowBox[{"SignDetOfMetric", "[", "g", "]"}],
RowBox[{"AP", "[", "z", "]"}]}]}], ";"}]], "Input"],
Cell["Safety default", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"GE", "[", "expr_AP", "]"}], ":=", "expr"}], ";"}]], "Input"],
Cell["c) Examples ", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell["\<\
Let us check the irreducible decomposition on some simple operations\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}]}], "]"}], "]"}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}], ",",
RowBox[{"\[Gamma]", "[", "p", "]"}]}], "]"}], "]"}], "//",
"ToCanonical"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`k],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}], "+",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j, $CellContext`k],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`k],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"l", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`l, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"l", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`l, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j, $CellContext`k],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j, $CellContext`l],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j, $CellContext`p],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k, $CellContext`l],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k, $CellContext`p],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`k],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"l", "p"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`l, $CellContext`p],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"j", "k", "l", "p"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`j, $CellContext`k, $CellContext`l, \
$CellContext`p],
Editable->False], " ",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell[TextData[{
"We must check that when we apply twice \[Gamma]hat, we get what we should \
get.\nWe check the sign of (",
Cell[BoxData[
FormBox[
SuperscriptBox[
RowBox[{
OverscriptBox["\[Gamma]", "^"], ")"}], "2"], TraditionalForm]]]
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}]], "Output"]
}, Open ]],
Cell[BoxData[
RowBox[{"And", " ", "we", " ", "check", " ", "the", " ", "decomposition",
" ", "using", " ", "only", " ", "one",
FormBox[
RowBox[{
OverscriptBox["\[Gamma]", "^"], " "}],
TraditionalForm], " ", "and", " ", "then", " ", "the", " ", "other", " ",
RowBox[{
FormBox[
RowBox[{
OverscriptBox["\[Gamma]", "^"], " "}],
TraditionalForm], "."}]}]], "Text",
FontFamily->"Arial"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{"#", ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}], "//",
"ContractMetric"}], "//", "ToCanonical"}], ")"}], "&"}], "/@",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}]}], "}"}]}], "/.",
"\[Gamma]hatTogamma"}], ")"}], "//", "ContractMetric"}], "//",
"ToCanonical"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False]}], ",",
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j],
Editable->False]}], ",",
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i", "j", "k"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j, $CellContext`k],
Editable->False]}], ",",
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i", "j", "k", "l"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j, $CellContext`k, \
$CellContext`l],
Editable->False]}]}], "}"}]], "Output"]
}, Open ]],
Cell[TextData[{
"CYRIL : This double application of ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]],
" works only because I have modified sinrev[dim] into sinrev[n] inside the \
implementation of GE[AP[ ...]]"
}], "Text"],
Cell[BoxData[
RowBox[{"We", " ", "check", " ", "how", " ", "the", " ",
FormBox[
OverscriptBox["\[Gamma]", "^"],
TraditionalForm], " ", "are", " ", "treated", " ", "in", " ", "the", " ",
RowBox[{"decomposition", " ", ":"}]}]], "Text",
FontFamily->"Arial"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "4"}], "}"}], ",",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "5"}], "}"}], ",",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "6"}], "}"}], ",",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j", ",", "k"}], "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", "k", "a"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, $CellContext`k, \
$CellContext`a],
Editable->False]}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i", "j", "k"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i, $CellContext`j, $CellContext`k],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{"-",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", "k", "a"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, $CellContext`k, \
$CellContext`a],
Editable->False]}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}]], "Output"]
}, Open ]],
Cell["\<\
d) Method to reduce a factor when there is a \[Gamma]hat[] at the end\
\>", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell[TextData[{
"In 4D, we can for instance reduce ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["\[Gamma]", "i"],
SuperscriptBox["\[Gamma]", "j"],
SuperscriptBox["\[Gamma]", "k"],
OverscriptBox["\[Gamma]", "^"]}], TraditionalForm]]],
", to express it with only ",
Cell[BoxData[
FormBox[
RowBox[{"some", " ",
SuperscriptBox["\[Gamma]", "i"], " ", "or", " "}], TraditionalForm]]],
"some ",
Cell[BoxData[
RowBox[{
SuperscriptBox["\[Gamma]", "k"],
OverscriptBox["\[Gamma]", "^"]}]]],
"."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "4"}], "}"}], ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}]}], "]"}], "]"}], "-",
RowBox[{"AP", "[",
RowBox[{"\[Gamma]", "[",
RowBox[{"j", ",", "k", ",", "l"}], "]"}], "]"}]}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "+",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"j", ",", "k", ",", "l"}], "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}]}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"l"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`l],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`l],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`k],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`l],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`l],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"j", "k", "l", "a"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`j, $CellContext`k, $CellContext`l, \
$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell["This method is implemented in rule", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"Rule1", "[", "dim_", "]"}], ":=",
RowBox[{"(",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"x___", ",",
RowBox[{"\[Gamma]l", ":",
RowBox[{"(",
RowBox[{"Repeated", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "_", "]"}], ",",
RowBox[{"{",
RowBox[{"dim", "-", "1"}], "}"}]}], "]"}], ")"}]}], ",",
RowBox[{"HoldPattern", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}]}], "]"}], ":>",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"Seqijk", "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"IndicesOf", "[", "]"}], "[", "#", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@",
RowBox[{"{", "\[Gamma]l", "}"}]}]}], "}"}], ",",
RowBox[{"AP", "[",
RowBox[{"x", ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[", "\[Gamma]l", "]"}], "]"}], "-",
RowBox[{"AP", "[",
RowBox[{"\[Gamma]", "@@", "Seqijk"}], "]"}]}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "+",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "@@", "Seqijk"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}]}], "]"}]}],
"]"}]}], ")"}]}]], "Input"],
Cell["Example", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "4"}], "}"}], ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[", "c", "]"}], ",",
RowBox[{"\[Gamma]", "[", "d", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "/.",
RowBox[{"Rule1", "[", "dim", "]"}]}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "5"}], "}"}], ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[", "c", "]"}], ",",
RowBox[{"\[Gamma]", "[", "d", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "/.",
RowBox[{"Rule1", "[", "dim", "]"}]}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "6"}], "}"}], ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]", "[", "b", "]"}], ",",
RowBox[{"\[Gamma]", "[", "c", "]"}], ",",
RowBox[{"\[Gamma]", "[", "d", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "/.",
RowBox[{"Rule1", "[", "dim", "]"}]}]}], "]"}], "//",
"ToCanonical"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"e"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`e],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][-$CellContext`e]],
Editable->False], ")"}]}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"b", "c", "d", "e"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`b, $CellContext`c, $CellContext`d, \
$CellContext`e],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}]}]], "Output"],
Cell[BoxData[
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma][$CellContext`d]],
Editable->False], ")"}]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c", "d", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c, $CellContext`d, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`c, $CellContext`d, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b", "d", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b, $CellContext`d, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b, $CellContext`d, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b", "c", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b, $CellContext`c, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b, $CellContext`c, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b", "c", "d"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b, $CellContext`c, $CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b, $CellContext`c, $CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "d", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`d, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`d, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "c", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`c, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`c, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "c", "d"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`c, $CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`c, $CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "b", "i"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "b", "d"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"d"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`d],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`d],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a", "b", "c"},
{" ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a, $CellContext`b, $CellContext`c],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"c"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`c],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`c],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "-",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}]}]], "Output"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Traces of \[Gamma] matrices", "Section"],
Cell[CellGroupData[{
Cell["Implementation", "Subsection"],
Cell[CellGroupData[{
Cell[TextData[{
"Collect factors of ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]]
}], "Subsubsection"],
Cell[TextData[{
"In even dimensions, ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]],
" anticommutes, and in odd dimensions it commutes. \nWe push all such \
factors to the right. Either they cancel to give identity if there is an even \
number, or there is a single ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]],
" on the right of the product.\nIn the case of odd dimension, ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]],
" is replaced by its expression in therms of Identity, so there is no such \
rule to implement."
}], "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AP", "[",
RowBox[{"x___", ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"z__", "?",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"FreeQ", "[",
RowBox[{"#", ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], ")"}], "&"}],
")"}]}]}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"Length", "[",
RowBox[{"{", "z", "}"}], "]"}]}],
RowBox[{"AP", "[",
RowBox[{"x", ",", "z", ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}]}], "/;",
RowBox[{"EvenQ", "[", "dim", "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AP", "[",
RowBox[{"x___", ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"z__", "?",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"FreeQ", "[",
RowBox[{"#", ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], ")"}], "&"}], ")"}]}],
",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"Length", "[",
RowBox[{"{", "z", "}"}], "]"}]}],
RowBox[{"AP", "[",
RowBox[{"x", ",", "z"}], "]"}]}], "/;",
RowBox[{"EvenQ", "[", "dim", "]"}]}]}], ";"}]}], "Input"],
Cell["Tests", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]chiral", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]chiral", "[", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}]}], "]"}]}], "Input"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False]], "Output"],
Cell[BoxData[
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], ")"}]}]], "Output"],
Cell[BoxData[
RowBox[{"-",
RowBox[{"(",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma]hat[]],
Editable->False], ")"}]}]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Formal trace of a \[Gamma] product", "Subsubsection"],
Cell["\<\
We will add the SpinorTrace[] head to all gamma matrices products (including \
Identity).
Formally the application from Clifford representation -> C is performed by \
this SpinorTrace[].\
\>", "Text"],
Cell[BoxData[{
RowBox[{"DefInertHead", "[",
RowBox[{"SpinorTrace", ",",
RowBox[{"LinearQ", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "[", "SpinorTrace", "]"}], "^=", "\"\<Tr\>\""}],
";"}]}], "Input"],
Cell["\<\
We make sure that on a general expression, this head ends up on products of \
Gamma matrices\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"SpinorTrace", "[", "sum_Plus", "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"Expand", "[", "#", "]"}], "]"}], "&"}], ")"}], "/@",
"sum"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"x_", " ",
RowBox[{"ap", ":",
RowBox[{"(",
RowBox[{"_AP", "|", "_\[Gamma]", "|",
RowBox[{"Id", "[", "]"}], "|",
RowBox[{"\[Gamma]hat", "[", "]"}]}], ")"}]}]}], "]"}], ":=",
RowBox[{"x", " ",
RowBox[{"SpinorTrace", "[", "ap", "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"x_", " ", "y_"}], "]"}], ":=",
RowBox[{
RowBox[{"x", " ",
RowBox[{"SpinorTrace", "[",
RowBox[{"Expand", "@", "y"}], "]"}]}], "/;",
RowBox[{"!",
RowBox[{"MemberQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"\[Gamma]", ",", "\[Gamma]hat", ",", "Id"}], "}"}], ",",
RowBox[{"Head", "[", "x", "]"}]}], "]"}]}]}]}], ";"}]}], "Input"],
Cell["Tests", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"V", "[", "i", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]",
RowBox[{"SpinorTrace", "[",
RowBox[{"2",
RowBox[{"AP", "[", " ",
RowBox[{"\[Gamma]", "[", "i", "]"}], "]"}],
RowBox[{"V", "[",
RowBox[{"-", "i"}], "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"3",
RowBox[{"Id", "[", "]"}]}], "+",
RowBox[{"\[Gamma]chiral", "[", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"SpinorTrace", "[",
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{
RowBox[{"Id", "[", "]"}],
RowBox[{"V", "[", "i", "]"}],
RowBox[{"V", "[", "j", "]"}]}], "+",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}]}], "]"}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`\[Gamma][$CellContext`i]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"V",
StyleBox[GridBox[{
{" "},
{"i"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`V[-$CellContext`i],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{"3", " ",
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`Id[]],
Editable->False]}], "+",
RowBox[{"\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`\[Gamma]hat[]],
Editable->False]}]}]], "Output"],
Cell[BoxData[
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma]hat[]],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma]hat[]]],
Editable->False], "+",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`Id[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"V",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`V[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"V",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`V[$CellContext`j],
Editable->False]}]}]], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Replacing the trace by a multi-index tensor", "Subsubsection"],
Cell[TextData[{
"Now we replace all traces by a tensor which has some symmetries,\nThese are \
the symmetries of the trace of a product of gamma matrices.\n\nThere is at \
least the cyclic cymmetry of the trace. \nThen in even dimensions, the \
Transpose of ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["\[Gamma]", "i"], " ", "is", " ", "related", " ", "as"}],
" ", "\[PlusMinus]",
RowBox[{"C", " ",
SuperscriptBox["\[Gamma]", "i"],
SuperscriptBox["C",
RowBox[{"-", "1"}]]}]}], TraditionalForm]]],
" (*). Hence transposing on an even number of matrices does not change the \
trace.\nThis is the reversal symmetry (reversing the order of all matrices \
inside a trace). Combined with the cyclic symmetry, this is exactly the \
Dihedral group.\n\nFor odd dimensions, we must also consider the case of an \
odd number of matrices. In that case we have + sign for d=3,7,11,15 etc.. and \
- sign for 5,9,13,17,....\nSee Charge conjugation for Gamma matrice for \
details.\nThat is reversal is accompanied by a factor ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{
RowBox[{"d", "(",
RowBox[{"d", "-", "1"}], ")"}], "/", "2"}]], "=",
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"Floor", "[",
RowBox[{"d", "/", "2"}], "]"}]]}], TraditionalForm]]],
" \n\nWe use the possibility of using tensors with variable number of indices"
}], "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"Trn", "[",
RowBox[{"AnyIndices", "[", "TangentM", "]"}], "]"}], ",", "M"}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"AnyIndices", "[", "TangentM", "]"}], "]"}], ",", "M"}], "]"}],
";"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"GenDH", "[", "len_", "]"}], ":=",
RowBox[{"(",
RowBox[{
RowBox[{"GroupGenerators", "[",
RowBox[{"DihedralGroup", "[", "len", "]"}], "]"}], "/.",
RowBox[{
RowBox[{"System`Cycles", "[",
RowBox[{"{", "args__", "}"}], "]"}], "\[RuleDelayed]",
RowBox[{"xAct`xPerm`Cycles", "[", "args", "]"}]}]}], ")"}]}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"GenSetTrn", "[", "len_", "]"}], ":=",
RowBox[{"If", "[",
RowBox[{
RowBox[{"EvenQ", "[", "len", "]"}], ",", "\[IndentingNewLine]",
RowBox[{"GenSet", "@@",
RowBox[{"GenDH", "[", "len", "]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"GenSet", "@@",
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"sinrev", "[", "dim", "]"}], "#"}], "&"}], ",",
RowBox[{"GenDH", "[", "len", "]"}], ",", "1"}], "]"}]}], ","}],
"\[IndentingNewLine]", "]"}]}]], "Input"],
Cell["Examples of symmetries", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"GenSetTrn", "[", "6", "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "5"}], "}"}], ",",
RowBox[{"GenSetTrn", "[", "5", "]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "7"}], "}"}], ",",
RowBox[{"GenSetTrn", "[", "5", "]"}]}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "1", ",", "6", ")"}],
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 6}, {2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ")"}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 2, 3, 4, 5, 6}],
Editable->False]}], "]"}]], "Output"],
Cell[BoxData[
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ")"}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 2, 3, 4, 5}],
Editable->False]}], "]"}]], "Output"],
Cell[BoxData[
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{"-",
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
-xAct`xPerm`Cycles[{2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ")"}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 2, 3, 4, 5}],
Editable->False]}], "]"}]], "Output"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"Trn", "[", "indices__", "]"}], "]"}], "^:=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"ListNum", "=",
RowBox[{"Range", "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}], ",", "len"}], "}"}],
",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"len", "=",
RowBox[{"Length", "@", "ListNum"}]}], ";",
RowBox[{"SchreierSims", "[",
RowBox[{"ListNum", ",",
RowBox[{"GenSetTrn", "[", "len", "]"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], "/;",
RowBox[{"EvenQ", "@",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}]}]}]}], ";"}]], "Input"],
Cell["\<\
When we add a \[Gamma]hat at the end of the product of \[Gamma] matrices, the \
cyclic symmetry gets a minus sign in even dimension as \[Gamma]hat \
anticommutes in even dimensions.
Then the reversal symmetry gets a (-1)^d(d-1)/2 as we need to reverse the \
order of the matrices inside the \[Gamma]hat after we have taken the \
transpose of the product.
Note that the crossing of the \[Gamma]hat from far left to far right makes \
nothing as there must be and even number of \[Gamma]\[CloseCurlyQuote]s.
In odd dimension we always replace \[Gamma]hat by its expression in terms of \
Id[], hence the situation is only considered for even dimensions.\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"GenSetTrn\[Gamma]hat", "[", "len_", "]"}], ":=",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"EvenQ", "[", "len", "]"}], ",", "\[IndentingNewLine]",
RowBox[{"GenSet", "@@",
RowBox[{"(",
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"sinrev", "[", "dim", "]"}], "#"}], "&"}], ",",
RowBox[{"MapAt", "[",
RowBox[{
RowBox[{
RowBox[{"-", "#"}], "&"}], ",",
RowBox[{"(",
RowBox[{
RowBox[{"GroupGenerators", "[",
RowBox[{"DihedralGroup", "[", "len", "]"}], "]"}], "/.",
RowBox[{
RowBox[{"System`Cycles", "[",
RowBox[{"{", "args__", "}"}], "]"}], "\[RuleDelayed]",
RowBox[{"xAct`xPerm`Cycles", "[", "args", "]"}]}]}], ")"}],
",", "2"}], "]"}], ",", "1"}], "]"}], ")"}]}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"GenSet", "@@",
RowBox[{"(",
RowBox[{"-",
RowBox[{"GroupGenerators", "[",
RowBox[{"CyclicGroup", "[", "len", "]"}], "]"}]}], ")"}]}], "/.",
RowBox[{
RowBox[{"System`Cycles", "[",
RowBox[{"{", "args__", "}"}], "]"}], "\[RuleDelayed]",
RowBox[{"xAct`xPerm`Cycles", "[", "args", "]"}]}]}],
RowBox[{"(*",
RowBox[{
"This", " ", "case", " ", "should", " ", "never", " ", "be", " ",
"used"}], "*)"}], ","}], "\[IndentingNewLine]", "]"}], "/;",
RowBox[{"EvenQ", "[", "dim", "]"}]}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"GenSetTrn\[Gamma]hat", "[", "len_", "]"}], ":=",
RowBox[{
RowBox[{"GenSetTrn", "[", "len", "]"}], "/;",
RowBox[{"OddQ", "[", "dim", "]"}]}]}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"Trn\[Gamma]hat", "[", "indices__", "]"}], "]"}], "^:=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"ListNum", "=",
RowBox[{"Range", "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}], ",", "len"}], "}"}],
",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"len", "=",
RowBox[{"Length", "@", "ListNum"}]}], ";",
RowBox[{"SchreierSims", "[",
RowBox[{"ListNum", ",",
RowBox[{"GenSetTrn\[Gamma]hat", "[", "len", "]"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}]}], ";"}]], "Input"],
Cell["\<\
Here are the symmetries of these multi-indices tensors implemented. \
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "4"}], "}"}], ",",
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "i", ",", "j", ",", "k"}], "]"}],
"]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "6"}], "}"}], ",",
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "i", ",", "j", ",", "k"}], "]"}],
"]"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Block", "[",
RowBox[{
RowBox[{"{",
RowBox[{"dim", "=", "4"}], "}"}], ",",
RowBox[{"SymmetryGroupOfTensor", "[",
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "i", ",", "j", ",", "k"}], "]"}],
"]"}]}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"StrongGenSet", "[",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}],
",",
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "1", ",", "6", ")"}],
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 6}, {2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ")"}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 2, 3, 4, 5, 6}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "2", ",", "6", ")"}],
RowBox[{"(", "3", ",", "5", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{2, 6}, {3, 5}],
Editable->False]}], "]"}]}], "]"}]], "Output"],
Cell[BoxData[
RowBox[{"StrongGenSet", "[",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}],
",",
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "1", ",", "6", ")"}],
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 6}, {2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ")"}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 2, 3, 4, 5, 6}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "2", ",", "6", ")"}],
RowBox[{"(", "3", ",", "5", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{2, 6}, {3, 5}],
Editable->False]}], "]"}]}], "]"}]], "Output"],
Cell[BoxData[
RowBox[{"StrongGenSet", "[",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}],
",",
RowBox[{"GenSet", "[",
RowBox[{
InterpretationBox[
StyleBox[
RowBox[{
RowBox[{"(", "1", ",", "6", ")"}],
RowBox[{"(", "2", ",", "5", ")"}],
RowBox[{"(", "3", ",", "4", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xPerm`Cycles[{1, 6}, {2, 5}, {3, 4}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{"-",
RowBox[{
"(", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
-xAct`xPerm`Cycles[{1, 2, 3, 4, 5, 6}],
Editable->False], ",",
InterpretationBox[
StyleBox[
RowBox[{"-",
RowBox[{"(", "2", ",", "6", ")"}],
RowBox[{"(", "3", ",", "5", ")"}]}],
ShowAutoStyles->False,
AutoSpacing->False],
-xAct`xPerm`Cycles[{2, 6}, {3, 5}],
Editable->False]}], "]"}]}], "]"}]], "Output"]
}, Open ]],
Cell["\<\
Some examples of Canonicalization according to the symmetries\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "+",
RowBox[{"Trn", "[",
RowBox[{"b", ",", "c", ",", "d", ",", "a"}], "]"}]}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "+",
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"b", ",", "c", ",", "d", ",", "a"}], "]"}]}], "//",
"ToCanonical"}]}], "Input"],
Cell[BoxData[
RowBox[{"2", " ",
InterpretationBox[
StyleBox[GridBox[{
{"Trn",
StyleBox[GridBox[{
{"a", "b", "c", "d"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Trn[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d],
Editable->False]}]], "Output"],
Cell[BoxData["0"], "Output"]
}, Open ]],
Cell["\<\
Replacing the SpinorTrace[] Head by these multi - indices tensors\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{"RuleTraceId", ":=",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"Id", "[", "]"}], "]"}], "\[RuleDelayed]", "spinordim"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RuleTrace\[Gamma]hat", ":=",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"\[Gamma]hat", "[", "]"}], "]"}], "\[RuleDelayed]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"OddQ", "[", "dim", "]"}], ",",
RowBox[{"\[Gamma]hatOverId", " ", "spinordim"}], ",", "0"}], "]"}]}]}],
";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"This", " ", "rule", " ", "can", " ", "never", " ", "be", " ", "evaluated",
" ", "in", " ", "odd", " ", "dimension", " ", "because", " ",
OverscriptBox["\[Gamma]", "^"], " ", "is", " ", "always", " ", "replaced",
" ", "in", " ", "terms", " ", "of", " ", "identity"}], " ",
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"RuleTraces\[Gamma]i\[Gamma]hat", "=",
RowBox[{"{",
RowBox[{"RuleTrace\[Gamma]hat", ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"HoldPattern", "[", "AP", "]"}], "[",
RowBox[{
RowBox[{"\[Gamma]l", ":",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "[", "_", "]"}], "..."}], ")"}]}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"indices", "=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"IndicesOf", "[", "]"}], "[", "#", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@",
RowBox[{"{", "\[Gamma]l", "}"}]}], ")"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"len", "=",
RowBox[{"Length", "@", "indices"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"OddQ", "[", "len", "]"}], "||",
RowBox[{"len", "<=",
RowBox[{"dim", "-", "1"}]}]}], ",", "0", ",",
RowBox[{"Trn\[Gamma]hat", "@@", "indices"}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]}], "]"}]}]}], "}"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"RuleTraces\[Gamma]i", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"\[Gamma]", "[", "i_", "]"}], "]"}], "\[RuleDelayed]", "0"}],
",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"HoldPattern", "[", "AP", "]"}], "[",
RowBox[{"\[Gamma]l", ":",
RowBox[{"(",
RowBox[{
RowBox[{"\[Gamma]", "[", "_", "]"}], "..."}], ")"}]}], "]"}],
"]"}], "\[RuleDelayed]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"indices", "=",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"IndicesOf", "[", "]"}], "[", "#", "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@",
RowBox[{"(",
RowBox[{"{", "\[Gamma]l", "}"}], ")"}]}], ")"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"len", "=",
RowBox[{"Length", "@", "indices"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"EvenQ", "[", "len", "]"}]}], ")"}], "||",
RowBox[{"(",
RowBox[{
RowBox[{"OddQ", "[", "dim", "]"}], "&&",
RowBox[{"len", "\[GreaterEqual]", "dim"}]}], ")"}]}], ",",
RowBox[{"Trn", "@@", "indices"}], ",", "0"}], "]"}]}],
"\[IndentingNewLine]", "]"}]}], "]"}]}]}], "}"}]}], ";"}]}], "Input"],
Cell["\<\
This functions replaces the non-vanishing Traces of products by a tensor with \
variable number of indices\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"TraceGammaToTensor", "[", "expr_", "]"}], ":=",
RowBox[{"ToCanonical", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Identity", "[", "expr", "]"}], "/.",
"RuleTraces\[Gamma]i\[Gamma]hat"}], "/.", "RuleTraces\[Gamma]i"}], "/.",
"RuleTraceId"}], "]"}]}]], "Input"],
Cell["Tests", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}], ",",
RowBox[{"\[Gamma]", "[", "p", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}], "//",
"TraceGammaToTensor"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}], "//",
"TraceGammaToTensor"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "q", "]"}]}], "]"}], "]"}], "//",
"TraceGammaToTensor"}]}], "Input"],
Cell[BoxData["0"], "Output"],
Cell[BoxData[
InterpretationBox[
StyleBox[GridBox[{
{"Trn\[Gamma]hat",
StyleBox[GridBox[{
{"i", "j", "l", "k"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Trn\[Gamma]hat[$CellContext`i, $CellContext`j, $CellContext`l, \
$CellContext`k],
Editable->False]], "Output"],
Cell[BoxData["0"], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"\[Gamma]", "[", "j", "]"}], "]"}], "//",
"TraceGammaToTensor"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"\[Gamma]chiral", "[", "]"}], "]"}], "//",
"TraceGammaToTensor"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SpinorTrace", "[",
RowBox[{"Id", "[", "]"}], "]"}], "//", "TraceGammaToTensor"}]}], "Input"],
Cell[BoxData["0"], "Output"],
Cell[BoxData["0"], "Output"],
Cell[BoxData["4"], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Recursive computation of traces ", "Subsubsection"],
Cell["\<\
We use a recursive algorithm which caches the results (adapted from Guillaume \
Faye notebooks)\
\>", "Text"],
Cell["Traces of Products of \[Gamma]", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell[BoxData[{
RowBox[{
RowBox[{"SetAttributes", "[",
RowBox[{"HoldGF", ",", "HoldAll"}], "]"}], ";"}], "\n",
RowBox[{"Clear", "[",
RowBox[{
"TrnRec", ",", "Trn\[Gamma]hatRec", ",", "Compute\[Gamma]Traces", ",",
"Compute\[Gamma]Traces\[Gamma]hat"}], "]"}]}], "Input"],
Cell["\<\
End values of the recursion.
1)Trace of Identity is dimension of spinor representation
2) For odd number of \[Gamma]\[CloseCurlyQuote]s, it is not vanishing for odd \
dimensions but requires at least d matrices. In that case the trace is a \
multiple of the Levi-Civita tensor.\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"TrnRec", "[", "]"}], ":=", "spinordim"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"TrnRec", "[", "indices__", "]"}], ":=",
RowBox[{
RowBox[{"\[Gamma]hatOverId", " ",
RowBox[{"spinordim", "/",
RowBox[{"SignDetOfMetric", "[", "g", "]"}]}],
RowBox[{"epsilong", "@@",
RowBox[{"{", "indices", "}"}]}]}], "/;",
RowBox[{
RowBox[{"OddQ", "[", "dim", "]"}], "&&",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "===", "dim"}]}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"TrnRec", "[", "indices__", "]"}], ":=",
RowBox[{"0", "/;",
RowBox[{
RowBox[{"OddQ", "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "||",
RowBox[{"(",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "<", "dim"}], ")"}]}],
")"}]}]}]}]}], "Input"],
Cell[TextData[{
"Recursion for odd dimension when the number of matrices is odd and larger \
than the dimension. \nThis is the most complicate recursion formula. For 5 \
indices in 3D this is for instance (using 1 instead of ",
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox["i", "1"], " "}], TraditionalForm]]],
"for indices)\n",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"5", "-", "d"}], ")"}], "/", "2"}],
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "12345"]}]}], TraditionalForm]]],
"] = ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "12"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "345"], "]"}]}], "-"}], TraditionalForm]]],
" ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "13"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "245"], "]"}]}], "+"}], TraditionalForm]]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "14"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "235"], "]"}]}], "+"}], TraditionalForm]]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "23"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "145"], "]"}]}], "-"}], TraditionalForm]]],
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["g", "24"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "135"], "]"}]}], TraditionalForm]]],
"+",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox["g", "34"], " ",
RowBox[{"Tr", "[",
SuperscriptBox["\[Gamma]", "125"], "]"}]}], TraditionalForm]]]
}], "Text"],
Cell[TextData[{
"So we see we had to pair all indices from the first to the penultimate to \
put them on the metric. The sign is ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"1", "+",
RowBox[{"pos", "(", "ind1", ")"}], "+",
RowBox[{"pos", "(", "ind1", ")"}], " "}]], " ", "where", " ",
RowBox[{"pos", "(", "ind", ")"}], " ", "is", " ", "the", " ", "position",
" ",
RowBox[{"(",
RowBox[{"1", ",", "2", ",", "3", ",", "4"}], ")"}], " ", "of", " ",
"the", " ",
RowBox[{"index", "."}]}], TraditionalForm]]]
}], "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"TrnRec", "[", "indices__", "]"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"len", "=",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}]}], ",",
RowBox[{"list", "=",
RowBox[{"{", "indices", "}"}]}], ",", "res"}], "}"}], ",",
RowBox[{
RowBox[{"res", "=",
RowBox[{
RowBox[{"2", "/",
RowBox[{"(",
RowBox[{"len", "-", "dim"}], ")"}]}], "*",
RowBox[{"Plus", "@@",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"g", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}],
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ")"}]}],
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "@@",
RowBox[{"(",
RowBox[{"Complement", "[",
RowBox[{"list", ",",
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}],
")"}]}], "]"}]}], ")"}], "&"}], "/@",
RowBox[{"Subsets", "[",
RowBox[{
RowBox[{"MapIndexed", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"#1", ",",
RowBox[{"First", "@", "#2"}]}], "}"}], "&"}], ",",
RowBox[{"Most", "@", "list"}]}], "]"}], ",",
RowBox[{"{", "2", "}"}]}], "]"}]}], ")"}]}]}]}], ";",
"\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}], "/;",
RowBox[{"(",
RowBox[{
RowBox[{"OddQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "\[GreaterEqual]",
RowBox[{"(",
RowBox[{"2", "+", "dim"}], ")"}]}], ")"}], "&&",
RowBox[{"OddQ", "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}], ")"}]}], ")"}]}]}],
";"}]], "Input"],
Cell["\<\
The recursion for even number of matrices, the usual one (e.g. Eq. C2c of \
arxiv:1701.08844).\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"TrnRec", "[", "indices__", "]"}], ":=", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"listi", "=",
RowBox[{"{", "indices", "}"}]}], ",", "listim1", ",", "ifirst", ",",
"len", ",", "rhs", ",", "range", ",", "listiANDpos"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"listim1", "=",
RowBox[{"Rest", "@", "listi"}]}], ";", "\[IndentingNewLine]",
RowBox[{"ifirst", "=",
RowBox[{"First", "@", "listi"}]}], ";", "\[IndentingNewLine]",
RowBox[{"len", "=",
RowBox[{"Length", "@", "listim1"}]}], ";", "\[IndentingNewLine]",
RowBox[{"range", "=",
RowBox[{"Range", "[", "len", "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"rhs", "=",
RowBox[{"-",
RowBox[{"Plus", "@@",
RowBox[{"MapIndexed", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"First", "[", "#2", "]"}]}],
RowBox[{"g", "[",
RowBox[{"ifirst", ",", "#1"}], "]"}],
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "@@",
RowBox[{"Drop", "[",
RowBox[{"listim1", ",", "#2"}], "]"}]}], "]"}]}], "&"}], ",",
"listim1"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "rhs"}]}],
"\[IndentingNewLine]", "]"}], "/;",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "#", "]"}], "&&",
RowBox[{"#", "\[GreaterEqual]", "2"}]}], ")"}], "&"}], ")"}], "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}]}],
"\[IndentingNewLine]"}]], "Input"],
Cell[BoxData[
RowBox[{"For", " ", "product", " ", "with", " ", "a", " ",
OverscriptBox["\[Gamma]", "^"], " ", "at", " ", "the", " ", "end"}]], "Text",
FontFamily->"Arial",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"1", ")"}], " ", "We", " ", "express", " ",
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "1"]]}], "..."}],
SuperscriptBox["\[Gamma]",
SubscriptBox["i",
RowBox[{"d", "-", "1"}]]], " ",
OverscriptBox["\[Gamma]", "^"], " ", "as", " ", "a", " ", "sum", " ", "of",
" ", "product", " ", "with", " ", "less", " ",
RowBox[{
SuperscriptBox["\[Gamma]", "i"], " ", ".", " "}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"For", " ", "this", " ", "we", " ", "express", " ",
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "1"]]}], "..."}],
SuperscriptBox["\[Gamma]",
SubscriptBox["i",
RowBox[{"d", "-", "1"}]]], " ", "in", " ", "terms", " ", "of", " ",
SuperscriptBox["\[Gamma]",
RowBox[{"[",
SubscriptBox["i", "1"]}]]}], "..."}],
SuperscriptBox["\[Gamma]",
RowBox[{
SubscriptBox["i",
RowBox[{"d", "-", "1"}]], "]"}]]}], ",", " ",
RowBox[{
"that", " ", "is", " ", "in", " ", "terms", " ", "of", " ", "irreducible",
" ", "fully", " ", "antisymmetric", " ",
RowBox[{"components", ".", " "}]}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"2", ")"}], " ", "Then", " ",
SuperscriptBox["\[Gamma]",
RowBox[{"[",
SubscriptBox["i", "1"]}]]}], "..."}],
SuperscriptBox["\[Gamma]",
RowBox[{
SubscriptBox["i",
RowBox[{"d", "-", "1"}]], "]"}]],
OverscriptBox["\[Gamma]", "^"], " ", "is", " ", "expressed", " ", "in",
" ", "terms", " ", "of", " ",
SuperscriptBox["\[Gamma]", "i"], " ", "and", " ", "Levi"}], "-",
RowBox[{"Civita", " ",
RowBox[{"only", ".", " ", "This"}], " ", "method", " ", "triggers", " ",
"the", " ",
RowBox[{"recursion", "."}]}]}]], "Text",
FontFamily->"Arial"],
Cell[TextData[{
"First the stopping point is for ",
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "1"]], "..."}],
SuperscriptBox["\[Gamma]",
SubscriptBox["i", "d"]], " ",
OverscriptBox["\[Gamma]", "^"]}]],
FontFamily->"Arial"],
". Using ",
Cell[BoxData[
FormBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
OverscriptBox["\[Gamma]", "^"], ")"}], "2"], " ", "=", " ",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{
RowBox[{"d", "(",
RowBox[{"d", "-", "1"}], ")"}], "/", "2"}]], "det", " ",
RowBox[{"g", "."}]}]}], TraditionalForm]]]
}], "Text"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Trn\[Gamma]hatRec", "[", "inds__", "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"spinordim", "*",
RowBox[{"sinrev", "[", "dim", "]"}]}], ")"}], " ",
RowBox[{
RowBox[{"epsilon", "[", "g", "]"}], "[", "inds", "]"}]}], "/;",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], "==", "dim"}], ")"}]}]}]}],
";"}]], "Input"],
Cell["The recursion itself", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"Trn\[Gamma]hatRec", "[",
RowBox[{"x__", ",",
RowBox[{"is", ":",
RowBox[{"(",
RowBox[{"Repeated", "[",
RowBox[{"_", ",",
RowBox[{"{",
RowBox[{"dim", "-", "1"}], "}"}]}], "]"}], ")"}]}]}], "]"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]l", "=",
RowBox[{"\[Gamma]", "/@",
RowBox[{"{", "is", "}"}]}]}], ",", "reshapedap", ",", "resa"}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"reshapedap", "=",
RowBox[{"ToCanonical", "@",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"Sequence", "@@",
RowBox[{"(",
RowBox[{"\[Gamma]", "/@",
RowBox[{"{", "x", "}"}]}], ")"}]}], ",",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "@@", "\[Gamma]l"}], "]"}], "-",
RowBox[{"AP", "[",
RowBox[{"\[Gamma]", "@@",
RowBox[{"{", "is", "}"}]}], "]"}]}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "+",
RowBox[{"GammaDecomposition", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "@@",
RowBox[{"{", "is", "}"}]}], ",",
RowBox[{"\[Gamma]hat", "[", "]"}]}], "]"}], "]"}]}]}],
"]"}]}]}], ";", "\[IndentingNewLine]",
RowBox[{"resa", "=",
RowBox[{"TraceGammaToTensor", "[",
RowBox[{"SpinorTrace", "[", "reshapedap", "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"ContractMetric", "[",
RowBox[{
RowBox[{"resa", "/.",
RowBox[{
RowBox[{"Trn", "[", "args___", "]"}], "\[RuleDelayed]",
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[", "args", "]"}], "]"}]}]}], "/.",
RowBox[{
RowBox[{"Trn\[Gamma]hat", "[", "args___", "]"}], ":>",
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[", "args", "]"}], "]"}]}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}], "/;",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "#", "]"}], "&&",
RowBox[{"#", "\[GreaterEqual]",
RowBox[{"(",
RowBox[{"dim", "+", "2"}], ")"}]}]}], ")"}]}], "&"}], ")"}], "[",
RowBox[{"Length", "[",
RowBox[{"Join", "[",
RowBox[{
RowBox[{"{", "x", "}"}], ",",
RowBox[{"{", "is", "}"}]}], "]"}], "]"}], "]"}],
"\[IndentingNewLine]"}]}]], "Input"],
Cell["\<\
There is a slower but more general method which does not break the symmetry \
and does not use dimensional identities implicitly.
If interested in t his method, one needs to comments the two cells above for \
Trn\[Gamma]hatRec and to uncomment the cell below.\
\>", "Text"],
Cell[BoxData[
RowBox[{"Instead", ",", " ",
RowBox[{"we", " ", "use", " ",
FormBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"that", "(",
RowBox[{"4", "-", "d"}], ")"}], "/", "2"}],
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "1234"]}], "]"}]}], "=", " ",
RowBox[{
RowBox[{
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "12"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "34"]}], "]"}]}], "-"}],
TraditionalForm], " ",
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "13"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "24"]}], "]"}]}], "+"}],
TraditionalForm],
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "14"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "23"]}], "]"}]}], "+"}],
TraditionalForm],
FormBox[
RowBox[{
RowBox[{
SuperscriptBox["g", "23"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "14"]}], "]"}]}], "-"}],
TraditionalForm],
FormBox[
RowBox[{
SuperscriptBox["g", "24"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "13"]}], "]"}]}],
TraditionalForm]}], "+",
FormBox[
RowBox[{
SuperscriptBox["g", "34"], " ",
RowBox[{"Tr", "[",
RowBox[{
OverscriptBox["\[Gamma]", "^"],
SuperscriptBox["\[Gamma]", "12"]}], "]"}]}],
TraditionalForm]}]}],
TraditionalForm], " ", "which", " ", "is", " ", "valid", " ", "even", " ",
"with", " ", "a", " ", "\[Gamma]hat", " ", "function"}], ",", " ",
RowBox[{
"and", " ", "obvious", " ", "generalization", " ", "with", " ", "more", " ",
RowBox[{"indices", ".", "\[IndentingNewLine]", "It"}], " ", "should", " ",
"work", " ", "and", " ", "it", " ", "gives", " ", "bigger", " ",
"expression", " ", "which", " ", "are", " ", "probably", " ", "related",
" ", "to", " ", "the", " ", "results", " ", "of", " ", "the", " ", "other",
" ", "method", " ", "thanks", " ", "to", " ",
RowBox[{"identities", ".", " "}]}]}]], "Text"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{
RowBox[{"Trn\[Gamma]hatRec", "[", "inds__", "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"spinordim", "*",
RowBox[{"sinrev", "[", "dim", "]"}]}], ")"}], " ",
RowBox[{
RowBox[{"epsilon", "[", "g", "]"}], "[", "inds", "]"}]}], "/;",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], "==", "dim"}], ")"}]}]}]}], ";",
"\n", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Trn\[Gamma]hatRec", "[", "indices__", "]"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"len", "=",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}]}], ",",
RowBox[{"list", "=",
RowBox[{"{", "indices", "}"}]}], ",", "res"}], "}"}], ",",
RowBox[{
RowBox[{"res", "=",
RowBox[{
RowBox[{"2", "/",
RowBox[{"(",
RowBox[{"len", "-", "dim"}], ")"}]}], "*",
RowBox[{"Plus", "@@",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"g", "[",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}],
RowBox[{
RowBox[{"(",
RowBox[{"-", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ")"}]}],
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "@@",
RowBox[{"(",
RowBox[{"Complement", "[",
RowBox[{"list", ",",
RowBox[{"{",
RowBox[{
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"#", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}],
")"}]}], "]"}]}], ")"}], "&"}], "/@",
RowBox[{"Subsets", "[",
RowBox[{
RowBox[{"MapIndexed", "[",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{"#1", ",",
RowBox[{"First", "@", "#2"}]}], "}"}], "&"}], ",",
"list"}], "]"}], ",",
RowBox[{"{", "2", "}"}]}], "]"}]}], ")"}]}]}]}], ";",
"\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}], "/;",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "#", "]"}], "&&",
RowBox[{"#", "\[GreaterEqual]",
RowBox[{"(",
RowBox[{"dim", "+", "2"}], ")"}]}]}], ")"}]}], "&"}], ")"}],
"[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}], ")"}]}]}], ";"}],
"*)"}]], "Input"],
Cell["Caching function", "Text",
FontSize->18,
FontVariations->{"Underline"->True}],
Cell["\<\
We define functions Compute\[Gamma]Traces and \
Compute\[Gamma]Traces\[Gamma]hat for which we store the results in \
DownValues.
This is rather complex since we must make sure that the main definition is \
always stored last, and also we stored lighter definitiosn first to improve \
teh replacements.\
\>", "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[", "]"}], "]"}], ":=",
RowBox[{"TrnRec", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[", "indices__", "]"}], "]"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"pind", ",", "indexlist", ",", "generatedindexlist", ",",
"blankindexlist", ",", "blankexp", ",", "mytrace", ",", "res", ",",
"tracization"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"indexlist", "=",
RowBox[{"{", "indices", "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"pind", "=",
RowBox[{"Length", "[", "indexlist", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"generatedindexlist", "=",
RowBox[{"GetIndicesOfVBundle", "[",
RowBox[{"TangentM", ",", "pind"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"blankindexlist", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Pattern", "[",
RowBox[{"#", ",",
RowBox[{"Blank", "[", "]"}]}], "]"}], "&"}], ",",
"generatedindexlist"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"blankexp", "=",
RowBox[{
RowBox[{"Trn", "[", "indices", "]"}], "/.",
RowBox[{"Thread", "[",
RowBox[{"indexlist", "\[Rule]", "blankindexlist"}], "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{
RowBox[{"mytrace", "[",
RowBox[{"{", "}"}], "]"}], ":=", "spinordim"}], ";"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"mytrace", "[",
RowBox[{"{", "list__", "}"}], "]"}], ":=",
RowBox[{"(",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"OddQ", "[",
RowBox[{"Length", "[",
RowBox[{"{", "list", "}"}], "]"}], "]"}], "&&",
RowBox[{"EvenQ", "[", "dim", "]"}]}], ",",
RowBox[{
RowBox[{
"Print", "[", "\"\<Error it should be an even number\>\"", "]"}],
";", "0"}], ",",
RowBox[{"TrnRec", "[", "list", "]"}]}], "]"}], ")"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"tracization", "=",
RowBox[{"Identity", "[",
RowBox[{"Expand", "@",
RowBox[{"mytrace", "[", "indexlist", "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"res", "=", "tracization"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{
"\"\<Caching Result for \>\"", ",", "pind", ",", " ",
"\"\< \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\).\>\""}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"DownValues", "[", "Compute\[Gamma]Traces", "]"}], "=",
RowBox[{"Append", "[",
RowBox[{
RowBox[{"Sort", "[",
RowBox[{
RowBox[{"Append", "[",
RowBox[{
RowBox[{"Most", "@",
RowBox[{"DownValues", "[", "Compute\[Gamma]Traces", "]"}]}],
",",
RowBox[{
RowBox[{
RowBox[{"HoldPattern", "[",
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"HoldGF", "[", "blankexp", "]"}], "]"}], "]"}],
"\[RuleDelayed]",
RowBox[{"Evaluate", "[",
RowBox[{"res", "/.",
RowBox[{"Thread", "[",
RowBox[{"indexlist", "\[Rule]", "generatedindexlist"}],
"]"}]}], "]"}]}], "/.",
RowBox[{
RowBox[{"HoldGF", "[", "blankexp", "]"}], "->",
"blankexp"}]}]}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"ByteCount", "[", "#1", "]"}], "<",
RowBox[{"ByteCount", "[", "#2", "]"}]}], "&"}]}], "]"}], ",",
RowBox[{"Last", "@",
RowBox[{"DownValues", "[", "Compute\[Gamma]Traces", "]"}]}]}],
"]"}]}], ";", "\[IndentingNewLine]", "res"}]}], "]"}], "/;",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"(*",
RowBox[{
RowBox[{"EvenQ", "[", "#", "]"}], "&&"}], "*)"}],
RowBox[{"#", "\[GreaterEqual]", "1"}], ")"}], "&"}], ")"}], "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}]}]}], "Input"],
Cell[TextData[{
"We consider that a product of ",
Cell[BoxData[
FormBox[
SuperscriptBox["\[Gamma]", "i"], TraditionalForm]]],
" times ",
Cell[BoxData[
OverscriptBox["\[Gamma]", "^"]]],
" can only be called in even dimensions. "
}], "Text"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[", "inds__", "]"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"spinordim", "*",
RowBox[{"sinrev", "[", "dim", "]"}]}], ")"}], " ",
RowBox[{
RowBox[{"epsilon", "[", "g", "]"}], "[", "inds", "]"}]}], "/;",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{"(",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"{", "inds", "}"}], "]"}], "===", "dim"}], ")"}]}]}]}],
";"}], "\[IndentingNewLine]"}], "\n",
RowBox[{
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[", "indices__", "]"}], "]"}], ":=",
RowBox[{
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"pind", ",", "indexlist", ",", "generatedindexlist", ",",
"blankindexlist", ",", "blankexp", ",", "mytrace", ",", "res", ",",
"tracization"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"indexlist", "=",
RowBox[{"{", "indices", "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"pind", "=",
RowBox[{"Length", "[", "indexlist", "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"generatedindexlist", "=",
RowBox[{"GetIndicesOfVBundle", "[",
RowBox[{"TangentM", ",", "pind"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"blankindexlist", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"Pattern", "[",
RowBox[{"#", ",",
RowBox[{"Blank", "[", "]"}]}], "]"}], "&"}], ",",
"generatedindexlist"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"blankexp", "=",
RowBox[{
RowBox[{"Trn\[Gamma]hat", "[", "indices", "]"}], "/.",
RowBox[{"Thread", "[",
RowBox[{"indexlist", "\[Rule]", "blankindexlist"}], "]"}]}]}], ";",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"mytrace", "[",
RowBox[{"{", "list__", "}"}], "]"}], ":=",
RowBox[{"(",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"OddQ", "[", "#", "]"}], "||",
RowBox[{"#", "<", "dim"}]}], ")"}], "&"}], ")"}], "[",
RowBox[{"Length", "[",
RowBox[{"{", "list", "}"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{
"Print", "[",
"\"\<Error it should be an even number and more than dim\>\"",
"]"}], ";"}], ",",
RowBox[{"Trn\[Gamma]hatRec", "[", "list", "]"}]}], "]"}], ")"}]}],
";", "\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"tracization", "=",
RowBox[{"Identity", "[",
RowBox[{"Expand", "@",
RowBox[{"mytrace", "[", "indexlist", "]"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"res", "=", "tracization"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{
"\"\<Caching Result for \>\"", ",", "pind", ",", " ",
"\"\< \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\) x \
\!\(\*OverscriptBox[\(\[Gamma]\), \(^\)]\).\>\""}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"DownValues", "[", "Compute\[Gamma]Traces\[Gamma]hat", "]"}],
"=",
RowBox[{"Append", "[",
RowBox[{
RowBox[{"Sort", "[",
RowBox[{
RowBox[{"Append", "[",
RowBox[{
RowBox[{"Most", "@",
RowBox[{
"DownValues", "[", "Compute\[Gamma]Traces\[Gamma]hat", "]"}]}],
",",
RowBox[{
RowBox[{
RowBox[{"HoldPattern", "[",
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"HoldGF", "[", "blankexp", "]"}], "]"}], "]"}],
"\[RuleDelayed]",
RowBox[{"Evaluate", "[",
RowBox[{"res", "/.",
RowBox[{"Thread", "[",
RowBox[{"indexlist", "\[Rule]", "generatedindexlist"}],
"]"}]}], "]"}]}], "/.",
RowBox[{
RowBox[{"HoldGF", "[", "blankexp", "]"}], "->",
"blankexp"}]}]}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"ByteCount", "[", "#1", "]"}], "<",
RowBox[{"ByteCount", "[", "#2", "]"}]}], "&"}]}], "]"}], ",",
RowBox[{"Last", "@",
RowBox[{
"DownValues", "[", "Compute\[Gamma]Traces\[Gamma]hat", "]"}]}]}],
"]"}]}], ";", "\[IndentingNewLine]", "res"}]}], "]"}], "/;",
RowBox[{
RowBox[{"EvenQ", "[", "dim", "]"}], "&&",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"EvenQ", "[", "#", "]"}], "&&",
RowBox[{"#", "\[GreaterEqual]",
RowBox[{"(",
RowBox[{"dim", "+", "2"}], ")"}]}]}], ")"}], "&"}], ")"}], "[",
RowBox[{"Length", "[",
RowBox[{"{", "indices", "}"}], "]"}], "]"}]}]}]}]}], "Input"],
Cell["Examples", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c"}], "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "f"}], "]"}],
"]"}]}], "Input"],
Cell[CellGroupData[{
Cell[BoxData["\<\"Error it should be an even number\"\>"], "Print"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "3",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 3, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"]
}, Open ]],
Cell[BoxData["0"], "Output"],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "2",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 2, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "4",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 4, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}]}]], "Output"],
Cell[CellGroupData[{
Cell[BoxData["\<\"Error it should be an even number\"\>"], "Print"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "5",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 5, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"]
}, Open ]],
Cell[BoxData["0"], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j"}], "]"}],
"]"}], "//", "ToCanonical"}]], "Input"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "6",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 6, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`j],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`j],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`j],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`j],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`j],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"c", "d"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`c, $CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell["Then recursive rules are cached and so the results are fast", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l"}], "]"}], "]"}], ";"}], "//", "Timing"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l"}], "]"}], "]"}], ";"}], "//", "Timing"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l", ",", "p", ",", "q"}], "]"}], "]"}], ";"}], "//",
"Timing"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l", ",", "p", ",", "q"}], "]"}], "]"}], ";"}], "//",
"Timing"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l", ",", "p", ",", "q", ",", "r", ",", "s"}], "]"}], "]"}], ";"}], "//",
"Timing"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l", ",", "p", ",", "q", ",", "r", ",", "s"}], "]"}], "]"}], ";"}], "//",
"Timing"}]}], "Input"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "8",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 8, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.008771`", ",", "Null"}], "}"}]], "Output"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.003488`", ",", "Null"}], "}"}]], "Output"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "10",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 10, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.0937`", ",", "Null"}], "}"}]], "Output"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.036924`", ",", "Null"}], "}"}]], "Output"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "12",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 12, " \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1.160461`", ",", "Null"}], "}"}]], "Output"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.428894`", ",", "Null"}], "}"}]], "Output"]
}, Open ]],
Cell[TextData[{
"For traces of products with a ",
Cell[BoxData[
FormBox[
OverscriptBox["\[Gamma]", "^"], TraditionalForm]]],
" at the end :"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j"}], "]"}],
"]"}]}], "Input"],
Cell[BoxData[
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"a", "b", "c", "d"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d],
Editable->False]}]], "Output"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "6",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\) x \\!\\(\\*OverscriptBox[\\(\[Gamma]\\), \\(^\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 6,
" \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\) x \!\(\*OverscriptBox[\(\
\[Gamma]\), \(^\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"d", "i", "j", "c"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`d, $CellContext`i, $CellContext`j, \
$CellContext`c],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "b"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`b],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"d", "i", "j", "b"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`d, $CellContext`i, $CellContext`j, \
$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"a", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`a, $CellContext`c],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"d", "i", "j", "a"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`d, $CellContext`i, $CellContext`j, \
$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"b", "c"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`b, $CellContext`c],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"a", "b", "c", "j"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "i"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`i],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"a", "b", "c", "i"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"d", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`d, $CellContext`j],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"a", "b", "c", "d"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[",
RowBox[{
"a", ",", "b", ",", "c", ",", "d", ",", "i", ",", "j", ",", "k", ",",
"l", ",", "p", ",", "q", ",", "r", ",", "s"}], "]"}], "]"}], ";"}], "//",
"Timing"}]], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "8",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\) x \\!\\(\\*OverscriptBox[\\(\[Gamma]\\), \\(^\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 8,
" \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\) x \!\(\*OverscriptBox[\(\
\[Gamma]\), \(^\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "10",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\) x \\!\\(\\*OverscriptBox[\\(\[Gamma]\\), \\(^\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 10,
" \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\) x \!\(\*OverscriptBox[\(\
\[Gamma]\), \(^\)]\)."],
Editable->False]], "Print"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"Caching Result for \"\>", "\[InvisibleSpace]", "12",
"\[InvisibleSpace]", "\<\" \\!\\(\\*SuperscriptBox[\\(\[Gamma]\\), \
\\(i\\)]\\) x \\!\\(\\*OverscriptBox[\\(\[Gamma]\\), \\(^\\)]\\).\"\>"}],
SequenceForm[
"Caching Result for ", 12,
" \!\(\*SuperscriptBox[\(\[Gamma]\), \(i\)]\) x \!\(\*OverscriptBox[\(\
\[Gamma]\), \(^\)]\)."],
Editable->False]], "Print"]
}, Open ]],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1.843123`", ",", "Null"}], "}"}]], "Output"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Wrapping function", "Subsection"],
Cell[CellGroupData[{
Cell["ComputeTraces", "Subsubsection"],
Cell["\<\
We define a function which uses all these rules to remove the traces\
\>", "Text"],
Cell["\<\
1) It puts the trace symbol SpinorTrace
2) It replaces the trace symbols by the corresponding multindex tensor (calls \
TraceGammaToTensor)
3) It computes the traces using the cached recursive algorithm\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"ComputeTraces", "[", "expr_", "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"TraceGammaToTensor", "[",
RowBox[{"Expand", "@", "expr"}], "]"}], "/.",
RowBox[{
RowBox[{"Trn", "[", "arg___", "]"}], ":>",
RowBox[{"Compute\[Gamma]Traces", "[",
RowBox[{"Trn", "[", "arg", "]"}], "]"}]}]}], "/.",
RowBox[{
RowBox[{"Trn\[Gamma]hat", "[", "arg___", "]"}], ":>",
RowBox[{"Compute\[Gamma]Traces\[Gamma]hat", "[",
RowBox[{"Trn\[Gamma]hat", "[", "arg", "]"}], "]"}]}]}]}]], "Input"],
Cell["Basic usage", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"SpinorTrace", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}]}], "]"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"ComputeTraces", "[", "%", "]"}]}], "Input"],
Cell[BoxData[
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"l"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`l],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`l]],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`l]]],
Editable->False]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`k],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "k"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`k],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"j", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`j, $CellContext`l],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"k", "l"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`k, $CellContext`l],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"SpinorTrace", "[",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{"\[Gamma]", "[", "j", "]"}], ",",
RowBox[{"\[Gamma]", "[", "k", "]"}], ",",
RowBox[{"\[Gamma]", "[", "l", "]"}], ",",
RowBox[{"\[Gamma]chiral", "[", "]"}]}], "]"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"ComputeTraces", "[", "%", "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[
RowBox[{"Tr", "[",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"k"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`k],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"l"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`l],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`l],
$CellContext`\[Gamma]hat[]],
Editable->False], "]"}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`SpinorTrace[
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`k],
$CellContext`\[Gamma][$CellContext`l],
$CellContext`\[Gamma]hat[]]],
Editable->False]}]], "Output"],
Cell[BoxData[
RowBox[{"4", " ", "\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", "k", "l"},
{" ", " ", " ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, $CellContext`k, \
$CellContext`l],
Editable->False]}]], "Output"]
}, Open ]]
}, Closed]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Applications to Particle Physics", "Section"],
Cell[CellGroupData[{
Cell["Weak - interactions", "Subsection"],
Cell[CellGroupData[{
Cell["Problem investigated", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{"|", "M",
SuperscriptBox["|",
RowBox[{"2", " "}]],
RowBox[{
RowBox[{"of", " ", "1"}], "+", "3"}]}], " ", "\[Rule]", " ",
RowBox[{"2", "+",
RowBox[{"4", " ", "scattering", " ", "due", " ", "to", " ", "weak"}], "-",
RowBox[{
"interactions", " ", "in", " ", "the", " ", "Fermi", " ",
"theory"}]}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{" ",
RowBox[{
RowBox[{"1", "-",
RowBox[{
"2", " ", "current", " ", "is", " ", "purely", " ", "left", " ", "chiral",
" ",
RowBox[{"(",
RowBox[{
RowBox[{"e", ".", "g", ".", " ", "electron"}], "/", "neutrino"}],
")"}], " ", "but", " ", "3"}], "-",
RowBox[{"4", " ", "current", " ", "has", " ", "a", " ",
SubscriptBox["g", "A"], " ", "axial", " ", "vector", " ", "constant",
" ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"e", ".", "g", ".", " ", "neutron"}], "/", "proton"}], ")"}],
".", " ", "\[IndentingNewLine]", "Hence"}], " ", "it", " ",
"corresponds", " ", "to", " ", "\[Nu]"}], "+", "n"}], "\[Rule]",
RowBox[{
SuperscriptBox["e", "-"], "+",
RowBox[{"p", "."}]}]}]}]], "Text",
FontFamily->"Arial"]
}, Open ]],
Cell[CellGroupData[{
Cell["Momenta and masses", "Subsubsection"],
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"P1", "[", "i", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]",
RowBox[{"DefConstantSymbol", "[", "m1", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "[", "m1", "]"}], "^=",
"\"\<\!\(\*SubscriptBox[\(m\), \(1\)]\)\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"P1", "/:",
RowBox[{
RowBox[{"P1", "[", "i_", "]"}],
RowBox[{"P1", "[",
RowBox[{"-", "i_"}], "]"}]}], ":=",
RowBox[{"m1", "^", "2"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"P2", "[", "i", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]",
RowBox[{"DefConstantSymbol", "[", "m2", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "[", "m2", "]"}], "^=",
"\"\<\!\(\*SubscriptBox[\(m\), \(2\)]\)\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"P2", "/:",
RowBox[{
RowBox[{"P2", "[", "i_", "]"}],
RowBox[{"P2", "[",
RowBox[{"-", "i_"}], "]"}]}], ":=",
RowBox[{"m2", "^", "2"}]}], ";"}],
RowBox[{"(*", " ",
RowBox[{"What", " ", "is", " ", "the", " ", "signature", " ",
RowBox[{"here", " ", "?", " ", "I"}], " ", "have", " ", "no", " ",
RowBox[{"idea", ".", " ", "What"}], " ", "choice", " ", "is", " ",
"implictly", " ",
RowBox[{"made", " ", "?"}]}], "*)"}]}]}], "Input"],
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"P3", "[", "i", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]",
RowBox[{"DefConstantSymbol", "[", "m3", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "[", "m3", "]"}], "^=",
"\"\<\!\(\*SubscriptBox[\(m\), \(3\)]\)\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"P3", "/:",
RowBox[{
RowBox[{"P3", "[", "i_", "]"}],
RowBox[{"P3", "[",
RowBox[{"-", "i_"}], "]"}]}], ":=",
RowBox[{"m3", "^", "2"}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"P4", "[", "i", "]"}], ",", "M"}], "]"}], "\[IndentingNewLine]",
RowBox[{"DefConstantSymbol", "[", "m4", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"PrintAs", "[", "m4", "]"}], "^=",
"\"\<\!\(\*SubscriptBox[\(m\), \(4\)]\)\>\""}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"P4", "/:",
RowBox[{
RowBox[{"P4", "[", "i_", "]"}],
RowBox[{"P4", "[",
RowBox[{"-", "i_"}], "]"}]}], ":=",
RowBox[{"m4", "^", "2"}]}], ";"}],
RowBox[{"(*", " ",
RowBox[{"What", " ", "is", " ", "the", " ", "signature", " ",
RowBox[{"here", " ", "?", " ", "I"}], " ", "have", " ", "no", " ",
RowBox[{"idea", ".", " ", "What"}], " ", "choice", " ", "is", " ",
"implictly", " ",
RowBox[{"made", " ", "?"}]}], "*)"}]}]}], "Input"],
Cell["Dirac Slash Notation", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"Slash", "[",
RowBox[{"V_", "?", "xTensorQ"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{"id", "=",
RowBox[{"DummyIn", "[", "TangentM", "]"}]}], "}"}], ",",
RowBox[{
RowBox[{"V", "[",
RowBox[{"-", "id"}], "]"}],
RowBox[{"\[Gamma]", "[", "id", "]"}]}]}], "]"}]}]], "Input"],
Cell["Extraction of form factors can be done with two methods :", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"1", ")"}], " ", "This", " ", "is", " ", "either", " ", "obtained",
" ", "using", " ", "the", " ", "irreducible", " ", "decomposition", " ",
"and", " ", "reading", " ", "the", " ",
RowBox[{"coefficients", "."}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"2", ")"}], " ", "Or", " ", "it", " ", "can", " ", "be", " ",
"extracted", " ", "multiplying", " ", "by", " ", "the", " ", "desired",
" ",
SuperscriptBox["\[Gamma]",
RowBox[{
RowBox[{
SubscriptBox["i", "1"], "..."}],
SubscriptBox["i", "p"]}]], " ", "and", " ", "taking", " ",
RowBox[{"traces", ".", " ", "It"}], " ", "uses", " ", "that", " ",
RowBox[{"e", ".", "g", ".", " ",
RowBox[{"Tr", "[",
RowBox[{
SuperscriptBox["\[Gamma]",
RowBox[{
RowBox[{
SubscriptBox["i", "1"], "..."}],
SubscriptBox["i", "q"]}]],
SubscriptBox["\[Gamma]",
RowBox[{
RowBox[{
SubscriptBox["j", "1"], "..."}],
SubscriptBox["j", "p"]}]]}], "]"}]}]}], " ", "=", " ",
RowBox[{
RowBox[{"0", " ", "if", " ", "p"}], " ", "\[NotEqual]", " ",
RowBox[{"q", " ", "and", " ", "some", " ", "general", " ", "delta", " ",
RowBox[{"otherwise", ".", "\[IndentingNewLine]", "For"}], " ",
RowBox[{"instance", " ", ":"}]}]}]}]], "Text",
FontFamily->"Arial"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{
RowBox[{"-", "k"}], ",",
RowBox[{"-", "l"}]}], "]"}]}], "]"}], "/.",
"ExpandMulti\[Gamma]Rule"}], "]"}], "]"}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[",
RowBox[{"i", ",", "j"}], "]"}], ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"-", "k"}], "]"}]}], "]"}], "/.", "ExpandMulti\[Gamma]Rule"}],
"]"}], "]"}], "//", "ToCanonical"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Delta]",
StyleBox[GridBox[{
{"i", " "},
{" ", "l"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`delta[$CellContext`i, -$CellContext`l],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Delta]",
StyleBox[GridBox[{
{"j", " "},
{" ", "k"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`delta[$CellContext`j, -$CellContext`k],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Delta]",
StyleBox[GridBox[{
{"i", " "},
{" ", "k"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`delta[$CellContext`i, -$CellContext`k],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Delta]",
StyleBox[GridBox[{
{"j", " "},
{" ", "l"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
xAct`xTensor`delta[$CellContext`j, -$CellContext`l],
Editable->False]}]}]], "Output"],
Cell[BoxData["0"], "Output"]
}, Open ]],
Cell["\<\
Let us chose a silly operator whose decomposition in form factors is seaked\
\>", "Text"],
Cell[BoxData[
RowBox[{
RowBox[{"operator", "=",
RowBox[{
RowBox[{"AP", "[",
RowBox[{
RowBox[{"Slash", "[", "P1", "]"}], ",",
RowBox[{"Slash", "[", "P2", "]"}]}], "]"}], "+",
RowBox[{"m1", " ",
RowBox[{"Slash", "[", "P2", "]"}]}], "-",
RowBox[{"m2", " ",
RowBox[{"Slash", "[", "P1", "]"}]}], "+",
RowBox[{"m1", " ", "m2", " ",
RowBox[{"Id", "[", "]"}]}]}]}], ";"}]], "Input"],
Cell["The first method", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Collect", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"GammaDecomposition", "[", "operator", "]"}], "//",
"ContractMetric"}], "//", "ToCanonical"}], ",",
RowBox[{"{",
RowBox[{"\[Gamma]", "[", "___", "]"}], "}"}]}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox["m", "1"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m1,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False], " ",
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox["\[DoubleStruckCapitalI]",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`Id[],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[-$CellContext`a],
Editable->False]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False]}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[
SubscriptBox["m", "1"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m1,
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`a],
Editable->False]}]}], ")"}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a],
Editable->False]}], "+",
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{" ", " "},
{"a", "b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][-$CellContext`a, -$CellContext`b],
Editable->False]}]}]], "Output"]
}, Open ]],
Cell["The second method (up to some normalizations...)", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"operator", ",",
RowBox[{"Id", "[", "]"}]}], "]"}], "/.", "ExpandMulti\[Gamma]Rule"}],
"]"}], "]"}], "\[IndentingNewLine]",
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"operator", ",",
RowBox[{"\[Gamma]", "[", "a", "]"}]}], "]"}], "/.",
"ExpandMulti\[Gamma]Rule"}], "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"operator", ",",
RowBox[{"\[Gamma]", "[",
RowBox[{"a", ",", "b"}], "]"}]}], "]"}], "/.",
"ExpandMulti\[Gamma]Rule"}], "]"}], "]"}], "//", "ContractMetric"}], "//",
"ToCanonical"}], "\[IndentingNewLine]",
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"operator", ",",
RowBox[{"\[Gamma]", "[", "a", "]"}], ",",
RowBox[{"\[Gamma]chiral", "[", "]"}]}], "]"}], "/.",
"ExpandMulti\[Gamma]Rule"}], "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{
RowBox[{"AP", "[",
RowBox[{"operator", ",",
RowBox[{"\[Gamma]chiral", "[", "]"}]}], "]"}], "/.",
"ExpandMulti\[Gamma]Rule"}], "]"}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "1"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m1,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{" ", " "},
{"a", "b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[-$CellContext`a, -$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`b],
Editable->False]}]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False]}], "+",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "1"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m1,
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`a],
Editable->False]}]}]], "Output"],
Cell[BoxData[
RowBox[{
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`a],
Editable->False]}], "-",
RowBox[{"4", " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`b],
Editable->False]}]}]], "Output"],
Cell[BoxData["0"], "Output"],
Cell[BoxData["0"], "Output"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
Cell[BoxData[
FormBox[
RowBox[{"|", "M",
SuperscriptBox["|", "2"]}], TraditionalForm]]],
" of the reaction"
}], "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{"The", " ", "method", " ", "to", " ", "compute", " ", "the"}], " ",
"|", "M",
SuperscriptBox["|",
RowBox[{"2", " "}]],
RowBox[{"of", " ", "the", " ", "reaction", " ", "follows", " ",
RowBox[{"e", ".", "g", ".", " "}]}]}]], "Text",
FontFamily->"Arial"],
Cell[BoxData[
RowBox[{
RowBox[{"DefConstantSymbol", "/@",
RowBox[{"{",
RowBox[{"gA", ",", "gAm1", ",", "gAp1"}], "}"}]}], ";"}]], "Input"],
Cell[BoxData[{
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"Vertex12", "[",
RowBox[{"i", ",", "j"}], "]"}], ",", "M"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"TraceVertex12", "[",
RowBox[{"i", ",", "j"}], "]"}], ",", "M"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"Vertex34", "[",
RowBox[{"i", ",", "j"}], "]"}], ",", "M"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"TraceVertex34", "[",
RowBox[{"i", ",", "j"}], "]"}], ",", "M"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"DefTensor", "[",
RowBox[{
RowBox[{"J", "[", "i", "]"}], ",", "M"}], "]"}]}], "Input"],
Cell["\<\
This is the contribution from the 1 - 2 current (e.g. electron/neutrinos). \
Purely left - chiral. \
\>", "Text"],
Cell[BoxData[
RowBox[{"See", " ",
RowBox[{"e", ".", "g", ".", " ", "Eq", ".", " ", "128"}], " ", "of", " ",
ButtonBox["1701.08844",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://arxiv.org/abs/1701.08844"], None},
ButtonNote->"https://arxiv.org/abs/1701.08844"], " ", "for", " ",
SuperscriptBox["J", "i"], " ", "and", " ",
RowBox[{"Eq", ".", " ", "147"}], " ", "for", " ",
RowBox[{"the", " ", "'"}],
RowBox[{"TraceVertex12", "'"}], " ", "and", " ",
RowBox[{"TraceVertex34", "'"}]}]], "Text",
FontFamily->"Arial"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"J", "[", "i_", "]"}], ",",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{
RowBox[{"Id", "[", "]"}], "-",
RowBox[{"\[Gamma]chiral", "[", "]"}]}]}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"Vertex12", "[",
RowBox[{"i_", ",", "j_"}], "]"}], ",",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"J", "[", "i", "]"}], ",",
RowBox[{
RowBox[{"Slash", "[", "P1", "]"}], "+",
RowBox[{"m1", " ",
RowBox[{"Id", "[", "]"}]}]}], ",",
RowBox[{"J", "[", "j", "]"}], ",",
RowBox[{
RowBox[{"Slash", "[", "P2", "]"}], "+",
RowBox[{"m2", " ",
RowBox[{"Id", "[", "]"}]}]}]}], "]"}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"TraceVertex12", "[",
RowBox[{"i_", ",", "j_"}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{"Vertex12", "[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "//",
"ContractMetric"}], "//", "ToCanonical"}]}], "]"}], "//",
"Timing"}]}], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False], " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`j]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[-$CellContext`a],
Editable->False]}], "-",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "2"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m2,
Editable->False], " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[-$CellContext`a],
Editable->False]}], "+",
RowBox[{"2", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`b]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[-$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{" "},
{"b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[-$CellContext`b],
Editable->False]}], "+",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[
RowBox[{
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`i],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`a],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`j],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[GridBox[{
{"\[Gamma]",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma][$CellContext`b],
Editable->False], "\[Diamond]",
InterpretationBox[
StyleBox[
OverscriptBox["\[Gamma]", "^"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`\[Gamma]hat[],
Editable->False]}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`AP[
$CellContext`\[Gamma][$CellContext`i],
$CellContext`\[Gamma][$CellContext`a],
$CellContext`\[Gamma][$CellContext`j],
$CellContext`\[Gamma][$CellContext`b],
$CellContext`\[Gamma]hat[]],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[-$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{" "},
{"b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[-$CellContext`b],
Editable->False]}]}]], "Output"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.028235`", ",",
RowBox[{
RowBox[{
RowBox[{"-", "8"}], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[-$CellContext`a],
Editable->False]}], "-",
RowBox[{"8", " ", "\[ImaginaryI]", " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", " ", " "},
{" ", " ", "a", "b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, -$CellContext`a, \
-$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`b],
Editable->False]}], "+",
RowBox[{"8", " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`i],
Editable->False]}], "+",
RowBox[{"8", " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`j],
Editable->False]}]}]}], "}"}]], "Output"]
}, Open ]],
Cell["\<\
This is the contribution from the 3 - 4 current wth a non-left-chiral axial \
coupling (e.g. neutrons/protons).\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"JgA", "[", "i_", "]"}], ",",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"\[Gamma]", "[", "i", "]"}], ",",
RowBox[{
RowBox[{"1", "/", "2"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"gAp1", "-", "gAm1"}], ")"}],
RowBox[{"Id", "[", "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gAp1", "+", "gAm1"}], ")"}],
RowBox[{"\[Gamma]chiral", "[", "]"}]}]}], ")"}]}]}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"Vertex34", "[",
RowBox[{"i_", ",", "j_"}], "]"}], ",",
RowBox[{"AP", "[",
RowBox[{
RowBox[{"JgA", "[", "i", "]"}], ",",
RowBox[{
RowBox[{"Slash", "[", "P3", "]"}], "+",
RowBox[{"m3", " ",
RowBox[{"Id", "[", "]"}]}]}], ",",
RowBox[{"JgA", "[", "j", "]"}], ",",
RowBox[{
RowBox[{"Slash", "[", "P4", "]"}], "+",
RowBox[{"m4", " ",
RowBox[{"Id", "[", "]"}]}]}]}], "]"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"IndexSet", "[",
RowBox[{
RowBox[{"TraceVertex34", "[",
RowBox[{"i_", ",", "j_"}], "]"}], ",",
RowBox[{
RowBox[{
RowBox[{"ComputeTraces", "[",
RowBox[{"SpinorTrace", "[",
RowBox[{"Vertex34", "[",
RowBox[{"i", ",", "j"}], "]"}], "]"}], "]"}], "//",
"ContractMetric"}], "//", "ToCanonical"}]}], "]"}], "//",
"Timing"}]}], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.066414`", ",",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], " ",
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], " ",
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "3"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m3,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "4"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m4,
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False]}], "-",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[-$CellContext`a],
Editable->False]}], "-",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"g",
StyleBox[GridBox[{
{"i", "j"},
{" ", " "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`g[$CellContext`i, $CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{" "},
{"a"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[-$CellContext`a],
Editable->False]}], "+",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", " ", " "},
{" ", " ", "a", "b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, -$CellContext`a, \
-$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`b],
Editable->False]}], "-",
RowBox[{"2", " ", "\[ImaginaryI]", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"\[Epsilon]g",
StyleBox[GridBox[{
{"i", "j", " ", " "},
{" ", " ", "a", "b"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`epsilong[$CellContext`i, $CellContext`j, -$CellContext`a, \
-$CellContext`b],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"a"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`a],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"b"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`b],
Editable->False]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`i],
Editable->False]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`i],
Editable->False]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`j],
Editable->False]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
"Rows" -> {{Center}}, "RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
"Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[$CellContext`j],
Editable->False]}]}]}], "}"}]], "Output"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"We", " ", "recover", " ", "the", " ", "usual", " ",
RowBox[{"(",
RowBox[{
SubscriptBox["p", "1"], ".",
SubscriptBox["p", "3"]}], ")"}],
RowBox[{"(",
RowBox[{
SubscriptBox["p", "2"], ".",
SubscriptBox["p", "4"]}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
SubscriptBox["g", "A"], "+", "1"}], ")"}], "2"]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["p", "1"], ".",
SubscriptBox["p", "4"]}], ")"}],
RowBox[{"(",
RowBox[{
SubscriptBox["p", "2"], ".",
SubscriptBox["p", "3"]}], ")"}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
SubscriptBox["g", "A"], "-", "1"}], ")"}], "2"]}], " ", "+", " ",
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["p", "1"], ".",
SubscriptBox["p", "2"]}], ")"}],
SubscriptBox["m", "3"],
SubscriptBox["m", "4"],
RowBox[{"(",
RowBox[{
SubscriptBox["g", "A"], "+", "1"}], ")"}],
RowBox[{"(",
RowBox[{
SubscriptBox["g", "A"], "-", "1"}], ")"}], " ", "as", " ",
RowBox[{"Eq", ".", " ", "182"}], " ", "of", " ",
ButtonBox["1701.08844",
BaseStyle->"Hyperlink",
ButtonData->{
URL["https://arxiv.org/abs/1701.08844"], None},
ButtonNote->"https://arxiv.org/abs/1701.08844"]}]}], " ", ":",
" "}]], "Text",
FontFamily->"Arial"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Msquare", "=",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"TraceVertex12", "[",
RowBox[{"i", ",", "j"}], "]"}],
RowBox[{"TraceVertex34", "[",
RowBox[{
RowBox[{"-", "i"}], ",",
RowBox[{"-", "j"}]}], "]"}]}], ")"}], "//", "ContractMetric"}], "//",
"ToCanonical"}]}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"64", " ",
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], " ",
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "3"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m3,
Editable->False], " ",
InterpretationBox[
StyleBox[
SubscriptBox["m", "4"],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`m4,
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{" "},
{"i"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[-$CellContext`i],
Editable->False]}], "+",
RowBox[{"64", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAm1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAm1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{" "},
{"j"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[-$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{" "},
{"i"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[-$CellContext`i],
Editable->False]}], "+",
RowBox[{"64", " ",
SuperscriptBox[
InterpretationBox[
StyleBox["gAp1",
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`gAp1,
Editable->False], "2"], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P1",
StyleBox[GridBox[{
{"i"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P1[$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P2",
StyleBox[GridBox[{
{"j"},
{" "}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P2[$CellContext`j],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P3",
StyleBox[GridBox[{
{" "},
{"i"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P3[-$CellContext`i],
Editable->False], " ",
InterpretationBox[
StyleBox[GridBox[{
{"P4",
StyleBox[GridBox[{
{" "},
{"j"}
},
GridBoxSpacings->{"Columns" -> {
Offset[0.], {
Offset[0.034999999999999996`]},
Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
Offset[0.]}}, "RowsIndexed" -> {}}],
FontSize->Rational[39, 4]]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.034999999999999996`]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}],
ShowAutoStyles->False,
AutoSpacing->False],
$CellContext`P4[-$CellContext`j],
Editable->False]}]}]], "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1304, 723},
WindowMargins->{{198, Automatic}, {Automatic, 151}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
2016)",
StyleDefinitions->"Default.nb"
]