Spin_Decomposition.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    408388,       9744]
NotebookOptionsPosition[    397957,       9584]
NotebookOutlinePosition[    398444,       9603]
CellTagsIndexPosition[    398401,       9600]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Set-up", "Section",
 CellChangeTimes->{{3.7517164515630884`*^9, 3.751716459829508*^9}, 
   3.762087176545906*^9, {3.7621250984155245`*^9, 3.762125098616146*^9}, {
   3.874211902661838*^9, 3.8742119031666045`*^9}, {3.874211987158539*^9, 
   3.8742119953255334`*^9}, {3.8742128542355547`*^9, 3.87421285807298*^9}, {
   3.8742129024996796`*^9, 3.874212905842692*^9}, {3.874213622948122*^9, 
   3.8742136245339704`*^9}, {3.8973849849058285`*^9, 
   3.8973849889029803`*^9}},ExpressionUUID->"a672a5ef-cbf6-4010-a1da-\
ada0d7432271"],

Cell["\<\
First load up the special package \[OpenCurlyDoubleQuote]xAct\
\[CloseCurlyDoubleQuote], and more specially, the subpackage  xCoba. xCoba \
allows to deal with tensorial computations in a specific chart, and to change \
from a chart to the other if needed. We also need to unprotect the symbol E, \
which will correspond to our electric field.\
\>", "Text",
 CellChangeTimes->{{3.897385007047112*^9, 3.8973850771656446`*^9}, {
  3.8987480044510345`*^9, 
  3.898748054023692*^9}},ExpressionUUID->"807b6b09-e9fd-4b54-99b5-\
8255e90414c5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "xAct`xCoba`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Unprotect", "[", "E", "]"}], ";", 
  RowBox[{"Clear", "[", "E", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.883029457956257*^9, 3.883029462605932*^9}, {
   3.8830296530415835`*^9, 3.8830296545953712`*^9}, 3.883029877106162*^9, {
   3.8831168130926495`*^9, 3.8831168150015335`*^9}, {3.88311744196014*^9, 
   3.8831174422051373`*^9}, {3.8975625154236875`*^9, 3.897562522618682*^9}, {
   3.8975626006354513`*^9, 3.8975626009262447`*^9}, {3.8987479999863806`*^9, 
   3.898748000802682*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"fa9e4264-d7d5-413a-a45c-5c628c662b05"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.9049019284629498`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"33effb76-efbe-458b-a555-b2d3f2f8d6d0"],

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",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.9049019284629498`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"f75a9db7-77b7-4aa2-bc6b-c61daa950416"],

Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928479406*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"1b469f80-d307-4796-acae-f11a01e72642"],

Cell[BoxData["\<\"Connecting to external MinGW executable...\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.9049019285482683`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"0cb889c9-2b0b-4984-8b44-d78eb52a9f34"],

Cell[BoxData["\<\"Connection established.\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928699546*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"c70c0009-0312-40fe-a662-fee487125826"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928699546*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"4347f73a-37c2-44e1-a010-3b902967231b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTensor`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.2.0\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2021", ",", "10", ",", "17"}], "}"}]}],
  SequenceForm[
  "Package xAct`xTensor`  version ", "1.2.0", ", ", {2021, 10, 17}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928699546*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"d3fa6d0f-0afc-4eb0-b882-dbd5a49675b6"],

Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928699546*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e9129efe-d196-489b-a3f5-f748659d98d0"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928883625*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a42bcedc-8551-41f9-a960-e7dc1331e11d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xCoba`  version \"\>", 
   "\[InvisibleSpace]", "\<\"0.8.6\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2021", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm["Package xAct`xCoba`  version ", "0.8.6", ", ", {2021, 2, 28}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928883625*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6bdece70-fb06-431a-a96e-a667ef95fe18"],

Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \
Martin-Garcia, under the General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928883625*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a7be9471-786c-49b8-a16a-80fe20e722f6"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928915682*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6ea03358-101d-438f-898b-b47615ff1587"],

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",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928915682*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"53811780-f333-493c-b809-6649d9685163"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.9044089496886196`*^9, 3.9044093348470035`*^9, 3.904409634484913*^9, 
   3.904409848023105*^9, {3.904410060003888*^9, 3.904410089054777*^9}, 
   3.904410537202522*^9, {3.9044107175466585`*^9, 3.9044107418259516`*^9}, 
   3.9044110348090982`*^9, 3.904412216545227*^9, 3.9044122882194743`*^9, 
   3.9044123840943003`*^9, 3.904412542110337*^9, 3.904412729799424*^9, 
   3.9044130283506365`*^9, 3.9044503318449492`*^9, 3.9044672513815336`*^9, 
   3.9048810212801695`*^9, 3.904881066182628*^9, 3.9048814171092186`*^9, 
   3.9048814984597254`*^9, 3.904881665149514*^9, 3.9048819786749077`*^9, 
   3.904883337442628*^9, 3.9048840070269227`*^9, 3.9048844122231083`*^9, 
   3.9048949970037537`*^9, 3.9048951372706923`*^9, 3.9049006885216436`*^9, 
   3.9049014473015175`*^9, 3.904901928915682*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"586b57b5-1680-4ee6-93b1-372d5912be1a"]
}, Closed]]
}, Closed]],

Cell["The following lines allow to set up the print form:", "Text",
 CellChangeTimes->{{3.897385088108929*^9, 3.897385135807791*^9}, {
  3.901003559043*^9, 
  3.9010035685735703`*^9}},ExpressionUUID->"84ea7cbb-630c-4b74-a96c-\
8e08387758b5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ShowVector", "[", "v_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "p", "}"}], ",", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"Apply", "[", 
        RowBox[{"PolynomialGCD", ",", "v"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ArrayQ", "[", "p", "]"}], ",", 
        RowBox[{"p", "=", 
         RowBox[{"p", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", "p"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"ContainsExactly", "[", 
            RowBox[{
             RowBox[{"{", "p", "}"}], ",", 
             RowBox[{"{", "1", "}"}]}], "]"}], ",", "Null", ",", "p"}], "]"}],
          ",", " ", 
         RowBox[{"MatrixForm", "[", 
          RowBox[{
           RowBox[{"v", "/", "p"}], "//", "Simplify"}], "]"}]}], "}"}], 
       "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Factoras", "[", 
    RowBox[{"v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"Row", "[", 
      RowBox[{"{", 
       RowBox[{"w", ",", " ", 
        RowBox[{"MatrixForm", "[", 
         RowBox[{
          RowBox[{"v", "/", "w"}], "//", "FullSimplify"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Factoras", "[", 
    RowBox[{"v_", ",", "w_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"Row", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{"MatrixForm", "[", 
         RowBox[{
          RowBox[{"v", "/", "w"}], "//", "FullSimplify"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"$PrePrint1", "=", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ArrayQ", "[", "#", "]"}], ",", 
      RowBox[{"MatrixForm", "[", "#", "]"}], ",", "#"}], "]"}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$PrePrint2", "=", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"ArrayQ", "[", "#", "]"}], ",", 
      RowBox[{"Quiet", "[", 
       RowBox[{"Check", "[", 
        RowBox[{
         RowBox[{"ShowVector", "[", "#", "]"}], ",", 
         RowBox[{"MatrixForm", "[", "#", "]"}]}], "]"}], "]"}], ",", "#"}], 
     "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$PrePrint", "=", "$PrePrint1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Unprotect", "[", "Conjugate", "]"}], ";", 
  RowBox[{"Conjugate", "/:", 
   RowBox[{"MakeBoxes", "[", 
    RowBox[{
     RowBox[{"Conjugate", "[", "x_", "]"}], ",", "StandardForm"}], "]"}], ":=", 
   RowBox[{"TemplateBox", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Parenthesize", "[", 
       RowBox[{"x", ",", "StandardForm", ",", "Power"}], "]"}], "}"}], ",", 
     "\"\<Conjugate\>\"", ",", 
     RowBox[{"DisplayFunction", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"SuperscriptBox", "[", 
         RowBox[{"#1", ",", "\"\<*\>\""}], "]"}], "&"}], ")"}]}]}], 
    "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Protect", "[", "Conjugate", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MakeBoxes", "[", 
   RowBox[{
    RowBox[{"Abs", "[", "x_", "]"}], ",", "StandardForm"}], "]"}], ":=", 
  RowBox[{"MakeBoxes", "@", 
   RowBox[{"BracketingBar", "[", "x", "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"BracketingBar", "=", "Abs"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8742139645647044`*^9, 3.8742139757070117`*^9}, {
   3.8742140091753287`*^9, 3.874214011196272*^9}, {3.874214041786355*^9, 
   3.874214046526312*^9}, {3.874214156876542*^9, 3.8742141804654694`*^9}, 
   3.874214379440755*^9, 3.8742144463383894`*^9, {3.874214478937807*^9, 
   3.874214480204131*^9}, {3.8742146092501097`*^9, 3.874214627773884*^9}, {
   3.8973883153580065`*^9, 3.897388325378919*^9}, 3.897470560301576*^9, {
   3.897470651504319*^9, 3.897470653826336*^9}, {3.8975623022475405`*^9, 
   3.8975623096232224`*^9}, {3.898746196349807*^9, 3.898746197540859*^9}, {
   3.898761859560317*^9, 3.898761893255274*^9}, 3.904396045260061*^9, 
   3.904396173883891*^9, 3.904412709212891*^9, {3.9044130126526294`*^9, 
   3.9044130134336987`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"44cc27b8-6642-4309-af98-29bc426d3c10"],

Cell[TextData[StyleBox["We can then define the manifold M, of dimension 4. \
The tensorial indices used in this notebook are \[OpenCurlyDoubleQuote]a\
\[CloseCurlyDoubleQuote] up to \[OpenCurlyDoubleQuote]l\
\[CloseCurlyDoubleQuote]:",
 FontSize->14]], "Text",
 CellChangeTimes->{{3.883029678280627*^9, 3.883029748463664*^9}, {
   3.883029818210052*^9, 3.8830298745469017`*^9}, 3.8830299061262383`*^9, {
   3.883029979733567*^9, 3.8830300168089056`*^9}, {3.89756003885378*^9, 
   3.897560066395932*^9}, {3.9010035740341053`*^9, 3.901003575217849*^9}, {
   3.9013333807837853`*^9, 
   3.9013333953587656`*^9}},ExpressionUUID->"bc338755-aa97-469c-a1fd-\
ee5e6441c7c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefManifold", "[", 
  RowBox[{"M", ",", "4", ",", 
   RowBox[{"{", 
    RowBox[{
    "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "i",
      ",", "j", ",", "k", ",", "l"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.883025461707001*^9, 3.8830254635526066`*^9}, {
  3.8830293868131847`*^9, 3.8830293871809797`*^9}, {3.9010035980028987`*^9, 
  3.9010036005850153`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"2fa7812e-eff5-4daa-a400-9651a51417f6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefManifold, ": Defining ", "manifold ", $CellContext`M,
    ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9044107453583803`*^9, 3.9044110396482835`*^9, 
  3.904412221270835*^9, 3.904412292833351*^9, 3.9044123887668495`*^9, 
  3.9044125456828947`*^9, 3.9044127343467865`*^9, 3.9044130360168896`*^9, 
  3.9044503333765764`*^9, 3.9044672536583033`*^9, 3.904881024384091*^9, 
  3.9048810699671416`*^9, 3.904881421037352*^9, 3.904881501816783*^9, 
  3.9048816691270733`*^9, 3.9048819829893913`*^9, 3.904883340776342*^9, 
  3.904884010585418*^9, 3.9048844158999186`*^9, 3.904895000536646*^9, 
  3.9048951404943943`*^9, 3.9049006911296377`*^9, 3.904901453405669*^9, 
  3.904901929884693*^9},
 CellLabel->
  "During evaluation of \
In[13]:=",ExpressionUUID->"43996b93-7621-48de-a597-14ebc0049e2f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefVBundle, ": Defining ", 
   "vbundle ", $CellContext`TangentM, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9044107453583803`*^9, 3.9044110396482835`*^9, 
  3.904412221270835*^9, 3.904412292833351*^9, 3.9044123887668495`*^9, 
  3.9044125456828947`*^9, 3.9044127343467865`*^9, 3.9044130360168896`*^9, 
  3.9044503333765764`*^9, 3.9044672536583033`*^9, 3.904881024384091*^9, 
  3.9048810699671416`*^9, 3.904881421037352*^9, 3.904881501816783*^9, 
  3.9048816691270733`*^9, 3.9048819829893913`*^9, 3.904883340776342*^9, 
  3.904884010585418*^9, 3.9048844158999186`*^9, 3.904895000536646*^9, 
  3.9048951404943943`*^9, 3.9049006911296377`*^9, 3.904901453405669*^9, 
  3.904901929900427*^9},
 CellLabel->
  "During evaluation of \
In[13]:=",ExpressionUUID->"f0d4f77c-cd02-471a-9526-0e8cf0ea59f2"]
}, Closed]]
}, Closed]],

Cell[TextData[StyleBox["A metric needs to be defined on this manifold to \
lower and raise indices. Firstly, let\[CloseCurlyQuote]s define a chart which \
will allow us to visualize the components of vectors and tensors. It is \
called \[OpenCurlyDoubleQuote]mink\[CloseCurlyDoubleQuote] in relation to the \
Minkowski metric, which we define subsequently:",
 FontSize->14]], "Text",
 CellChangeTimes->{{3.883029678280627*^9, 3.883029748463664*^9}, {
   3.883029818210052*^9, 3.8830298745469017`*^9}, 3.8830299061262383`*^9, {
   3.883029979733567*^9, 3.8830300168089056`*^9}, {3.883030075798465*^9, 
   3.8830301966961994`*^9}, {3.9013333059022036`*^9, 
   3.9013333599121237`*^9}},ExpressionUUID->"01419398-0994-40cf-8cac-\
455504ee98ab"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DefChart", "[", 
   RowBox[{"mink", ",", "M", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "[", "]"}], ",", 
      RowBox[{"x", "[", "]"}], ",", 
      RowBox[{"y", "[", "]"}], ",", 
      RowBox[{"z", "[", "]"}]}], "}"}], ",", 
    RowBox[{"ChartColor", "\[Rule]", "Brown"}], ",", 
    RowBox[{"FormatBasis", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Partials\>\"", ",", "\"\<Differentials\>\""}], "}"}]}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Eta]", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"DiagonalMatrix", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "mink"}], ",", 
       RowBox[{"-", "mink"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetCMetric", "[", 
   RowBox[{"\[Eta]", ",", "mink", ",", 
    RowBox[{"SignatureOfMetric", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"CovDOfMetric", "[", "\[Eta]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SortCovDsStart", "[", "PDmink", "]"}]}], "Input",
 CellChangeTimes->{{3.883025536251687*^9, 3.8830255451598406`*^9}, {
   3.8830258073612823`*^9, 3.883025823201882*^9}, {3.883025855018435*^9, 
   3.8830258635341473`*^9}, {3.8830259302306223`*^9, 3.883026011528222*^9}, {
   3.883026089434733*^9, 3.883026155833254*^9}, {3.8830262776493397`*^9, 
   3.8830262817047343`*^9}, {3.8830263222911935`*^9, 
   3.8830263754367204`*^9}, {3.8830265767195435`*^9, 
   3.8830266795124617`*^9}, {3.8830267180253057`*^9, 
   3.8830268131919146`*^9}, {3.8830268512037196`*^9, 3.883026905963296*^9}, {
   3.8830270027151766`*^9, 3.8830270058691454`*^9}, {3.8830270430492945`*^9, 
   3.8830270766796603`*^9}, {3.883027127433744*^9, 3.883027187466127*^9}, {
   3.8830272628839903`*^9, 3.8830273040836864`*^9}, {3.883027378894429*^9, 
   3.883027492901827*^9}, {3.8830302228246098`*^9, 3.883030308871961*^9}, {
   3.8832195199744897`*^9, 3.8832195996732864`*^9}, {3.8832196345002627`*^9, 
   3.883219670586919*^9}, {3.883288638872547*^9, 3.883288643141884*^9}, {
   3.8975618547134047`*^9, 3.8975618563627367`*^9}, {3.8987483650586395`*^9, 
   3.898748382911892*^9}, {3.8987484234574633`*^9, 3.8987484298439245`*^9}, {
   3.899366436213894*^9, 3.899366439160251*^9}, {3.901003602650363*^9, 
   3.901003603583214*^9}, {3.9010037206636047`*^9, 3.901003726744073*^9}, {
   3.9044093129180913`*^9, 3.904409319811821*^9}, 3.9044096211412725`*^9, {
   3.904410699318185*^9, 3.9044107137787647`*^9}, {3.9044108287066736`*^9, 
   3.904410833380575*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"2e7f61d0-577b-4698-8f08-63c4ce2f6a4d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "mink", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`mink, 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929949638*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"6b347777-b8e7-4145-83de-ec5af0b86c65"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"t", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`t[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929949638*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"733a20c5-cb46-47b6-ab99-3d0d618684a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"x", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`x[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929949638*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"9779a508-7ed9-43cc-a6f0-3024552d1a38"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"y", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`y[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929966366*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"74e8a18e-732a-4fd6-ba64-c3aecd2e88a2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"z", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`z[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929966366*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"187cfaeb-0a2a-479d-a61d-4014e4343c55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "mink", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", 
   "mapping ", $CellContext`mink, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929966366*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"4ee07c6e-8189-468f-bfba-3f3ce24bf264"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", 
   "imink", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", 
   "inverse mapping ", $CellContext`imink, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901929966366*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"8a3b62e6-792e-42c4-af6b-675eaad6e45e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"dimink", "[", 
    RowBox[{
     RowBox[{"-", "\[FormalA]"}], ",", "iminka"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`dimink[-\[FormalA], $CellContext`iminka], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901930947878*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"aae60b95-3160-47b4-b930-fdfecd608d6b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"dmink", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", "mink\[FormalA]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`dmink[-$CellContext`a, $CellContext`mink\[FormalA]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.904901930947878*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"726cb328-3dfd-4db1-94d5-dfb3cbcaee2b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "mink", 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`mink, 
   ". ", "Coordinated basis."],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309689116`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"43d63fb2-c0cf-441e-943b-9dd312e81257"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", 
   RowBox[{"PDmink", "[", 
    RowBox[{"-", "a"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", 
   $CellContext`PDmink[-$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309862494`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"d3d85438-07d4-4229-bdd7-23c9ceab8114"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionPDmink", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionPDmink[$CellContext`a, -$CellContext`b, \
-$CellContext`c], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309862494`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"8d1b570c-5c5a-44a0-9b5d-52d27dd176ae"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelPDmink", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelPDmink[$CellContext`a, -$CellContext`b, \
-$CellContext`c], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309862494`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"827140db-5018-418e-9685-77261adb2c9c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RiemannPDmink", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", "d"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>",
    "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", 
   $CellContext`RiemannPDmink[-$CellContext`a, -$CellContext`b, \
-$CellContext`c, $CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309862494`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"7ebedd7a-302c-4cc9-a99b-0db47c18a74c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciPDmink", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", 
   $CellContext`RicciPDmink[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019309862494`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"f35a23fb-5f54-4bd9-8f93-fb0b3fcc77aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaUpmink", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", 
   $CellContext`etaUpmink[$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019310028043`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"7748f308-1410-4307-aa3e-f4cbc7a5a88b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaDownmink", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", 
   $CellContext`etaDownmink[-$CellContext`a, -$CellContext`b, \
-$CellContext`c, -$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.904410745436501*^9, 3.9044110397264023`*^9, 
  3.904412221364584*^9, 3.904412292911475*^9, 3.9044123888449717`*^9, 
  3.904412545714223*^9, 3.9044127344561663`*^9, 3.904413036095022*^9, 
  3.904450333427317*^9, 3.9044672537631493`*^9, 3.904881024541222*^9, 
  3.904881070198118*^9, 3.9048814211534257`*^9, 3.904881501916381*^9, 
  3.904881669230734*^9, 3.9048819831703157`*^9, 3.9048833409022627`*^9, 
  3.9048840106724977`*^9, 3.9048844159713397`*^9, 3.904895000616166*^9, 
  3.904895140589731*^9, 3.9049006911828675`*^9, 3.904901453470052*^9, 
  3.9049019310028043`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"38020b82-5674-4d2a-aeee-6ed6699d56ed"]
}, Closed]]
}, Closed]],

Cell["\<\
As a sanity check, we can visualize the component of the metric: \
\>", "Text",
 CellChangeTimes->{{3.897385219579842*^9, 3.897385237957926*^9}, {
  3.8973853140755014`*^9, 3.89738531849002*^9}, {3.901333416697478*^9, 
  3.901333421495185*^9}},ExpressionUUID->"caaab129-8583-4a28-a9bf-\
068b2b76d728"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Eta]", "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.897385320721942*^9, 3.8973853319823966`*^9}, {
  3.8973853649805937`*^9, 3.897385379340757*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"43cef84a-6ed1-4673-9bbb-8e61d861b680"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", "1"}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", "1"}]}]],
           Annotation[#, {1, 1} -> -1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {3, 3} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}, 
          "RowsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"a", "b"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "Rows" -> {{
             Offset[0.]}}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{-1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 
   1}}, {$CellContext`mink, $CellContext`mink}, 
   0][$CellContext`a, $CellContext`b],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.89738533506353*^9, {3.8973853691809373`*^9, 3.8973853807546363`*^9}, 
   3.8973883381881065`*^9, 3.8974706042422743`*^9, 3.8975602753334293`*^9, {
   3.8975618483836913`*^9, 3.897561883295029*^9}, 3.8975620641133204`*^9, 
   3.897562279991025*^9, 3.89756233298976*^9, 3.8975625494707212`*^9, 
   3.8975626450512104`*^9, 3.8987449018489265`*^9, 3.8987451254665422`*^9, 
   3.898745261096685*^9, 3.8987453215467997`*^9, 3.8987462435623245`*^9, 
   3.898746276725112*^9, 3.898746353179209*^9, 3.8987472839821515`*^9, 
   3.898747422396451*^9, 3.898747649416733*^9, 3.8987476874759216`*^9, 
   3.8987482005476074`*^9, 3.8987484002324343`*^9, 3.8987484499135327`*^9, 
   3.8987485683680468`*^9, 3.898750257025094*^9, 3.8987513056849337`*^9, 
   3.898751434358014*^9, 3.898751648283628*^9, 3.898751809977192*^9, 
   3.8987567909765406`*^9, 3.8987569393209887`*^9, 3.898757270089589*^9, 
   3.8987573082349534`*^9, 3.8987605467481265`*^9, 3.8987608501733212`*^9, 
   3.8987609032068663`*^9, 3.898761422873813*^9, 3.898761882211622*^9, 
   3.898761912792078*^9, 3.89935780484898*^9, 3.899366474432102*^9, 
   3.899443135980706*^9, 3.899443233337901*^9, 3.8994432800940113`*^9, 
   3.8994433954281535`*^9, 3.899455092714121*^9, 3.8994580249298964`*^9, 
   3.899458112673551*^9, 3.8994581705059633`*^9, 3.8994584231297235`*^9, 
   3.8994586515985365`*^9, 3.8994590079197235`*^9, 3.899459188603557*^9, 
   3.8994592852001147`*^9, 3.899459440319635*^9, 3.8994595356468463`*^9, 
   3.8994598419125233`*^9, 3.899459978053157*^9, 3.8994618466439447`*^9, {
   3.899461907601451*^9, 3.8994619348789434`*^9}, 3.899462154341343*^9, 
   3.8994621997153788`*^9, 3.899529207755787*^9, 3.899529980195128*^9, {
   3.8995300429913507`*^9, 3.8995300823303328`*^9}, 3.899530152626913*^9, 
   3.8995372519175854`*^9, 3.89953735618681*^9, {3.899541768252037*^9, 
   3.899541808217598*^9}, 3.8995430995201397`*^9, 3.8995434346764936`*^9, 
   3.8995435171142683`*^9, 3.8995435617734957`*^9, 3.899543835889551*^9, 
   3.8995439176947713`*^9, 3.899544019578494*^9, 3.901003985845731*^9, 
   3.901005078519575*^9, 3.9010054700348387`*^9, 3.901005841327462*^9, 
   3.901005940188793*^9, 3.901006057940559*^9, 3.9010061190512514`*^9, 
   3.901006327523036*^9, 3.9010063948827286`*^9, 3.9010068231658583`*^9, 
   3.90100689227565*^9, 3.9010070043792477`*^9, 3.90101010626435*^9, 
   3.901010228230248*^9, 3.901010321712349*^9, 3.901011268179468*^9, 
   3.9010113288040977`*^9, 3.9010113984077673`*^9, 3.9010115373011074`*^9, {
   3.901015455864513*^9, 3.901015482727688*^9}, 3.9010155853272076`*^9, {
   3.901015651640405*^9, 3.901015667931632*^9}, 3.9010157096643095`*^9, 
   3.90101578544016*^9, 3.9010159113086424`*^9, 3.901015952115614*^9, 
   3.901084275111509*^9, 3.9010843180660257`*^9, {3.9010843547864904`*^9, 
   3.901084371037197*^9}, 3.9010844434639783`*^9, 3.9010845464538116`*^9, 
   3.9010849200693717`*^9, 3.9010852761323137`*^9, 3.901085336476942*^9, 
   3.9010854529360933`*^9, 3.901086228790407*^9, 3.901086329906683*^9, 
   3.901086427212644*^9, {3.9010864798256207`*^9, 3.9010865084177938`*^9}, 
   3.901086548205119*^9, 3.9010866746695504`*^9, 3.901086804451556*^9, 
   3.901096367671103*^9, 3.9010967030419645`*^9, 3.901097428348526*^9, 
   3.90109799238159*^9, 3.901098384424429*^9, 3.9013574194137707`*^9, 
   3.90437868290841*^9, 3.904378779912536*^9, 3.904387321269022*^9, 
   3.9043873639591126`*^9, 3.9043874356373806`*^9, 3.904388018366536*^9, 
   3.9043882350351505`*^9, 3.9043942133049097`*^9, 3.904394276111671*^9, 
   3.9043954798912363`*^9, {3.904395583038001*^9, 3.904395609993382*^9}, 
   3.904395708891639*^9, 3.904396051623313*^9, 3.9043962109796896`*^9, 
   3.904407309319111*^9, {3.904407466060403*^9, 3.9044075115716047`*^9}, 
   3.904407564751927*^9, 3.9044089550684643`*^9, 3.90440933984774*^9, 
   3.904409639375553*^9, 3.904409856578195*^9, {3.9044100649431067`*^9, 
   3.9044100940703287`*^9}, 3.9044105420645494`*^9, {3.904410717851053*^9, 
   3.9044107457334013`*^9}, 3.9044110399296265`*^9, 3.904412221602703*^9, 
   3.904412293161484*^9, 3.904412389110721*^9, 3.90441254610485*^9, 
   3.904412734679912*^9, 3.9044130364543514`*^9, 3.904450333602809*^9, 
   3.904467254203575*^9, 3.9048810252394133`*^9, 3.9048810707972217`*^9, 
   3.9048814214894853`*^9, 3.9048815021972237`*^9, 3.904881669609437*^9, 
   3.9048819837955475`*^9, 3.9048833416999464`*^9, 3.904884011052139*^9, 
   3.904884416242799*^9, 3.904895000855794*^9, 3.904895140843412*^9, 
   3.9049006914097824`*^9, 3.904901453737502*^9, 3.904901931098276*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"870b8d21-b9f3-40ff-b596-7c0b028d8094"]
}, Closed]],

Cell[TextData[{
 "And verify that the covariant derivative defined through the metric \
satisfies ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[ScriptCapitalD]", "\[Gamma]"], 
    SubscriptBox["\[Eta]", "\[Alpha]\[Beta]"]}], TraditionalForm]],
  ExpressionUUID->"d13274eb-d4f5-49c4-bc6c-9b66d1df82c1"],
 " =0"
}], "Text",
 CellChangeTimes->{{3.897385219579842*^9, 3.897385237957926*^9}, {
  3.8973853140755014`*^9, 3.89738531849002*^9}, {3.8973853978465385`*^9, 
  3.897385441063163*^9}, {3.8973881556216927`*^9, 
  3.8973881898280306`*^9}},ExpressionUUID->"deca2ab1-083d-46aa-81d6-\
8232a2f89fe4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[ScriptCapitalD]", "[", 
    RowBox[{"-", "a"}], "]"}], "[", 
   RowBox[{"\[Eta]", "[", 
    RowBox[{"b", ",", "c"}], "]"}], "]"}], "//", "ToCanonical"}]], "Input",
 CellChangeTimes->{{3.897385442987195*^9, 3.897385484065811*^9}, {
  3.897562562713793*^9, 3.897562565445224*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"0f8cba06-d2db-4ad6-bf56-090fff8e4ca2"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.897385452982851*^9, 3.897385485872439*^9}, 
   3.897388339869931*^9, 3.8974706060744715`*^9, 3.897560275347227*^9, 
   3.8975618515150843`*^9, 3.897561883328101*^9, 3.897562064178747*^9, 
   3.897562280021344*^9, 3.897562333024866*^9, {3.897562549521022*^9, 
   3.897562574423726*^9}, 3.89756264508409*^9, 3.8987449077778473`*^9, 
   3.898745125500494*^9, 3.8987452611138387`*^9, 3.8987453215676303`*^9, 
   3.8987462435906467`*^9, 3.898746276762602*^9, 3.8987463532096004`*^9, 
   3.8987472840221834`*^9, 3.8987474224302883`*^9, 3.898747649443516*^9, 
   3.898747687492505*^9, 3.898748200577282*^9, 3.8987484003065624`*^9, 
   3.898748449946796*^9, 3.8987485683991313`*^9, 3.8987502570592413`*^9, 
   3.8987513057228003`*^9, 3.8987514343941593`*^9, 3.898751648317567*^9, 
   3.8987518100096703`*^9, 3.898756790997291*^9, 3.8987569393579473`*^9, 
   3.8987572701230307`*^9, 3.8987573082579117`*^9, 3.898760546786722*^9, 
   3.898760850199878*^9, 3.898760903239453*^9, 3.898761422921071*^9, 
   3.898761882231284*^9, 3.898761912815645*^9, 3.899357804899066*^9, 
   3.899366474460369*^9, 3.8994431360139465`*^9, 3.899443233371298*^9, 
   3.8994432801120243`*^9, 3.8994433954610806`*^9, 3.8994550928471937`*^9, 
   3.8994580249640837`*^9, 3.899458112701024*^9, 3.89945817054714*^9, 
   3.899458423164424*^9, 3.899458651632262*^9, 3.8994590079590034`*^9, 
   3.8994591886387234`*^9, 3.8994592852515697`*^9, 3.8994594403492627`*^9, 
   3.8994595356844177`*^9, 3.899459841946267*^9, 3.899459978103134*^9, 
   3.8994618467074175`*^9, {3.89946190764361*^9, 3.8994619349121447`*^9}, 
   3.899462154357997*^9, 3.899462199732962*^9, 3.8995292077724247`*^9, 
   3.8995299802279644`*^9, {3.899530043027293*^9, 3.8995300823466625`*^9}, 
   3.8995301526433473`*^9, 3.899537251966875*^9, 3.8995373562186213`*^9, {
   3.899541768282247*^9, 3.8995418082675276`*^9}, 3.899543099552496*^9, 
   3.8995434347193203`*^9, 3.8995435171310387`*^9, 3.899543561813676*^9, 
   3.8995438359058013`*^9, 3.8995439177113247`*^9, 3.899544019609033*^9, 
   3.9010039858953605`*^9, 3.901005078535631*^9, 3.9010054700667686`*^9, 
   3.9010058413477983`*^9, 3.9010059402058067`*^9, 3.9010060579567738`*^9, 
   3.9010061190732975`*^9, 3.9010063275565987`*^9, 3.9010063948990684`*^9, 
   3.901006823182088*^9, 3.901006892313122*^9, 3.901007004396026*^9, 
   3.9010101063148375`*^9, 3.9010102282465334`*^9, 3.9010103217336273`*^9, 
   3.901011268213084*^9, 3.90101132883711*^9, 3.90101139844743*^9, 
   3.901011537337761*^9, {3.9010154558976436`*^9, 3.901015482752453*^9}, 
   3.9010155853676147`*^9, {3.901015651683592*^9, 3.9010156679744177`*^9}, 
   3.9010157097045546`*^9, 3.9010157854726295`*^9, 3.9010159113430853`*^9, 
   3.901015952151909*^9, 3.901084275193454*^9, 3.901084318083844*^9, {
   3.9010843548168273`*^9, 3.9010843710864334`*^9}, 3.9010844435007467`*^9, 
   3.9010845464929333`*^9, 3.901084920102702*^9, 3.901085276167261*^9, 
   3.901085336493179*^9, 3.9010854529856124`*^9, 3.9010862288098993`*^9, 
   3.901086329956491*^9, 3.9010864272325754`*^9, {3.901086479846366*^9, 
   3.9010865084483976`*^9}, 3.9010865482396326`*^9, 3.901086674719783*^9, 
   3.901086804481725*^9, 3.901096367808015*^9, 3.901096703074483*^9, 
   3.901097428376618*^9, 3.9010979924203568`*^9, 3.90109838447464*^9, 
   3.9013574194448752`*^9, 3.9043786829188986`*^9, 3.9043787807219944`*^9, 
   3.904387321327608*^9, 3.9043873639882927`*^9, 3.90438743565917*^9, 
   3.90438801838287*^9, 3.904388235067272*^9, 3.904394213332915*^9, 
   3.904394276141675*^9, 3.9043954799332438`*^9, {3.904395583066005*^9, 
   3.904395610022382*^9}, 3.9043957089206448`*^9, 3.9043960516523094`*^9, 
   3.904396211889972*^9, 3.9044073093503156`*^9, {3.9044074661072598`*^9, 
   3.9044075116184797`*^9}, 3.9044075647831683`*^9, 3.9044089551464386`*^9, 
   3.9044093398946447`*^9, 3.904409639406802*^9, 3.9044098566250305`*^9, {
   3.904410064989984*^9, 3.904410094117169*^9}, 3.904410542127174*^9, {
   3.90441071793286*^9, 3.9044107458583803`*^9}, 3.904411040023271*^9, 
   3.9044122216808968`*^9, 3.904412293208351*^9, 3.9044123891732073`*^9, 
   3.9044125462141323`*^9, 3.90441273474255*^9, 3.9044130364855986`*^9, 
   3.904450333636945*^9, 3.904467254411757*^9, 3.904881025292977*^9, 
   3.904881070881469*^9, 3.9048814215289526`*^9, 3.9048815022469654`*^9, 
   3.904881669673251*^9, 3.90488198387241*^9, 3.9048833417460938`*^9, 
   3.9048840111169987`*^9, 3.9048844162706127`*^9, 3.904895000888596*^9, 
   3.904895140870953*^9, 3.904900691438151*^9, 3.9049014537620296`*^9, 
   3.904901931135828*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"8c775b65-f7e3-4fba-87b3-258899b521b2"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Maxwell Rules, Monochromatic rules and more:", "Section",
 CellChangeTimes->{{3.897384915665708*^9, 3.897384937853177*^9}, {
  3.897385491728079*^9, 3.897385491945632*^9}, {3.904881306370723*^9, 
  3.9048813157625446`*^9}},ExpressionUUID->"197e7dfd-5eb3-4591-9bd4-\
1b50bd9bd2e2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DefConstantSymbol", "[", "\[Mu]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DefConstantSymbol", "[", "\[Epsilon]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DefConstantSymbol", "[", "\[Omega]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DefConstantSymbol", "[", "\[ScriptC]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DefTensor", "[", 
   RowBox[{
    RowBox[{"\[Phi]", "[", "]"}], ",", "M"}], "]"}], ";", 
  RowBox[{"DefTensor", "[", 
   RowBox[{
    RowBox[{"\[Psi]", "[", "]"}], ",", "M"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[Epsilon]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[Omega]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[ScriptC]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9048839824466343`*^9, 3.904883988267395*^9}, 
   3.9049005351985073`*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"35d4b553-8b4d-4d41-9404-b06c8c98dea2"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Mu]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Mu], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.9049019311562595`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"353459d7-ea76-49a1-a77d-e41aabfb493c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Epsilon]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Epsilon], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.9049019311562595`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"f7de4024-04da-43b3-8544-11c45e351d86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Omega]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Omega], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.904901931169657*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"e5f5e9a3-a73d-4287-b077-edabbb7aa5ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[ScriptC]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[ScriptC], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.904901931169657*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"4625458c-f7fc-4e20-9bf7-f2c980a677c9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Phi]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Phi][], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.904901931169657*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"2aadebe7-d319-4b82-b212-91ae8606ab5d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Psi]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Psi][], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.9048819839776773`*^9, 3.904883341810144*^9, 
  3.90488401118451*^9, 3.9048844163087826`*^9, 3.904895000921263*^9, 
  3.904895140870953*^9, 3.904900691476982*^9, 3.9049014537951307`*^9, 
  3.904901931169657*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"0f446a2c-28ec-49c0-8034-3485cd2ad271"]
}, Closed]]
}, Closed]],

Cell[TextData[{
 "Restricting ourselves to monochromatic waves, we can simplify things \
further: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[Del]", "0"], "H"}], "=", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]\[Omega]H"}], "/", "\[ScriptC]"}]}]],
  ExpressionUUID->"b65a015c-ccd7-495f-bfaa-343a6a35e767"],
 ", and similarly for all other fields. We can also apply the Maxwell rules: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Del]", "xH"}], "=", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]\[Omega]"}], " ", "\[Epsilon]E"}]}]],
  ExpressionUUID->"d6816226-6e57-4031-b2c8-4544b4836789"],
 " and  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"\[Del]", "xE"}], "=", "\[ImaginaryI]\[Omega]\[Mu]H"}]],
  ExpressionUUID->"cfb55b1d-db93-4a41-8485-0b30e91f2c61"],
 ". Finally, it is useful to have a rule allowing to go back and forth from \
the fields to their corresponding potential, for example. The following rules \
are there to implement this: "
}], "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
   3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
   3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
   3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
   3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
   3.898751866770897*^9, 3.8987518901551294`*^9}, {3.901098406676469*^9, 
   3.9010985602453985`*^9}, {3.901333200032549*^9, 3.9013332056628075`*^9}, {
   3.901333471921799*^9, 3.9013334818752127`*^9}, {3.9048806812284255`*^9, 
   3.9048807654978123`*^9}, {3.9048819495655556`*^9, 3.9048819501357393`*^9}, 
   3.9049005571828003`*^9},ExpressionUUID->"e8d98786-9289-4bef-994f-\
6c225b4a942e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MonochromaticRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "x"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`x]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["H", "x"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "y"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`y]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["H", "y"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "z"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`z]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["H", "z"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           InterpretationBox[
            StyleBox["E",
             ShowAutoStyles->False,
             AutoSpacing->False],
            E,
            Editable->False], "x"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         Subscript[E, $CellContext`x]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["E", "x"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           InterpretationBox[
            StyleBox["E",
             ShowAutoStyles->False,
             AutoSpacing->False],
            E,
            Editable->False], "y"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         Subscript[E, $CellContext`y]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["E", "y"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       StyleBox[
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["0",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], 
           SubscriptBox[
            InterpretationBox[
             StyleBox["E",
              ShowAutoStyles->False,
              AutoSpacing->False],
             E,
             Editable->False], "z"]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{0, -$CellContext`mink}][
          Subscript[E, $CellContext`z]],
         Editable->False],
        ShowAutoStyles->False,
        AutoSpacing->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        SubscriptBox["E", "z"], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[ScriptC]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptC],
         Editable->False], "2"], " ", 
       InterpretationBox[
        StyleBox["\[Epsilon]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Epsilon],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Mu],
        Editable->False]}], "->", "1"}], ",", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["\[ScriptC]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptC],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[Epsilon]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Epsilon],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Mu],
        Editable->False]}], "->", 
      RowBox[{"1", "/", 
       InterpretationBox[
        StyleBox["\[ScriptC]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[ScriptC],
        Editable->False]}]}], ",", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["\[Epsilon]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Epsilon],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Mu],
        Editable->False]}], "->", 
      RowBox[{"1", "/", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["\[ScriptC]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[ScriptC],
         Editable->False], "2"]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][$CellContext`\[Phi]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{"\[Phi]", "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][$CellContext`\[Psi]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{"\[Psi]", "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["0",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{0, -$CellContext`mink}][
        $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", " ", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["1",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["0",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{0, -$CellContext`mink}][
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["2",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["0",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{0, -$CellContext`mink}][
        $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["3",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["0",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], 
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["1",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["1",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], 
     StyleBox[",",
      ShowAutoStyles->False,
      AutoSpacing->False], 
     RowBox[{
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["0",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], 
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["2",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["2",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], 
     StyleBox[",",
      ShowAutoStyles->False,
      AutoSpacing->False], 
     RowBox[{
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["0",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], 
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[0.6, 0.4, 0.2]], 
         StyleBox["3",
          FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["3",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]]],
        Editable->False], ")"}], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["1",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]]],
        Editable->False], ")"}], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["2",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["0",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{0, -$CellContext`mink}][
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]", 
       RowBox[{
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["3",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]],
         Editable->False], "/", "\[ScriptC]"}]}]}], ",", 
     RowBox[{
      FractionBox[
       InterpretationBox[
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Omega],
        Editable->False], 
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["\[ScriptC]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptC],
          Editable->False], "2"], " ", 
        InterpretationBox[
         StyleBox["\[Mu]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Mu],
         Editable->False]}]], "->", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[Epsilon]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Epsilon],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Omega],
        Editable->False]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rules", "[", "a_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "//.", "MonochromaticRules"}], ")"}], "//", 
        "FullSimplify"}], ")"}], "//.", "MonochromaticRules"}], ")"}], "//", 
    "FullSimplify"}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MaxwellRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          InterpretationBox[
           StyleBox["E",
            ShowAutoStyles->False,
            AutoSpacing->False],
           E,
           Editable->False], "z"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{2, -$CellContext`mink}][
        Subscript[E, $CellContext`z]],
       Editable->False], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{
        StyleBox["\[ImaginaryI]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        SubscriptBox[
         StyleBox["H",
          ShowAutoStyles->False,
          AutoSpacing->False], "x"]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           InterpretationBox[
            StyleBox["E",
             ShowAutoStyles->False,
             AutoSpacing->False],
            E,
            Editable->False], "y"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{3, -$CellContext`mink}][
         Subscript[E, $CellContext`y]],
        Editable->False]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          InterpretationBox[
           StyleBox["E",
            ShowAutoStyles->False,
            AutoSpacing->False],
           E,
           Editable->False], "x"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{3, -$CellContext`mink}][
        Subscript[E, $CellContext`x]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{
        StyleBox["\[ImaginaryI]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        SubscriptBox[
         StyleBox["H",
          ShowAutoStyles->False,
          AutoSpacing->False], "y"]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           InterpretationBox[
            StyleBox["E",
             ShowAutoStyles->False,
             AutoSpacing->False],
            E,
            Editable->False], "z"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][
         Subscript[E, $CellContext`z]],
        Editable->False]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          InterpretationBox[
           StyleBox["E",
            ShowAutoStyles->False,
            AutoSpacing->False],
           E,
           Editable->False], "y"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{1, -$CellContext`mink}][
        Subscript[E, $CellContext`y]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{
        StyleBox["\[ImaginaryI]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Mu]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        SubscriptBox[
         StyleBox["H",
          ShowAutoStyles->False,
          AutoSpacing->False], "z"]}], "+", 
       StyleBox[
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox[
            StyleBox["\[ScriptCapitalD]",
             FontColor->RGBColor[0.6, 0.4, 0.2]], 
            StyleBox["2",
             FontColor->RGBColor[0.6, 0.4, 0.2]]], 
           SubscriptBox[
            InterpretationBox[
             StyleBox["E",
              ShowAutoStyles->False,
              AutoSpacing->False],
             E,
             Editable->False], "x"]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`PDmink[{2, -$CellContext`mink}][
          Subscript[E, $CellContext`x]],
         Editable->False],
        ShowAutoStyles->False,
        AutoSpacing->False]}]}], 
     StyleBox[",",
      ShowAutoStyles->False,
      AutoSpacing->False], 
     StyleBox["\[IndentingNewLine]",
      ShowAutoStyles->False,
      AutoSpacing->False], 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox["H", "z"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{2, -$CellContext`mink}][
        Subscript[$CellContext`H, $CellContext`z]],
       Editable->False], 
      StyleBox["->",
       ShowAutoStyles->False,
       AutoSpacing->False], 
      RowBox[{
       RowBox[{
        StyleBox[
         RowBox[{"-", "\[ImaginaryI]"}],
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        RowBox[{
         SubscriptBox["E", "x"], "/", 
         RowBox[{"(", 
          RowBox[{"\[Mu]", "*", 
           RowBox[{"\[ScriptC]", "^", "2"}]}], ")"}]}]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "y"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{3, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`y]],
        Editable->False]}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox["H", "x"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{3, -$CellContext`mink}][
        Subscript[$CellContext`H, $CellContext`x]],
       Editable->False], "->", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         StyleBox["\[ImaginaryI]",
          ShowAutoStyles->False,
          AutoSpacing->False]}], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox[" ",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        RowBox[{
         SubscriptBox["E", "y"], "/", 
         RowBox[{"(", 
          RowBox[{"\[Mu]", "*", 
           RowBox[{"\[ScriptC]", "^", "2"}]}], ")"}]}]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "z"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`z]],
        Editable->False]}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "y"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`y]],
        Editable->False], ")"}], "->", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         StyleBox["\[ImaginaryI]",
          ShowAutoStyles->False,
          AutoSpacing->False]}], 
        StyleBox["*",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["\[Omega]",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        StyleBox["*",
         ShowAutoStyles->False,
         AutoSpacing->False], 
        RowBox[{
         SubscriptBox["E", "z"], "/", 
         RowBox[{"(", 
          RowBox[{"\[Mu]", "*", 
           RowBox[{"\[ScriptC]", "^", "2"}]}], ")"}]}]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox["H", "x"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{2, -$CellContext`mink}][
         Subscript[$CellContext`H, $CellContext`x]],
        Editable->False]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PotRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["H", "x"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]],
        Editable->False]}], "->", "Cx"}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox["H", "y"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]],
        Editable->False]}], "->", "Cy"}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox["H", "z"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]],
        Editable->False]}], "->", "Cz"}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        InterpretationBox[
         StyleBox["E",
          ShowAutoStyles->False,
          AutoSpacing->False],
         E,
         Editable->False], "x"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]],
        Editable->False]}], "->", "Ax"}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        InterpretationBox[
         StyleBox["E",
          ShowAutoStyles->False,
          AutoSpacing->False],
         E,
         Editable->False], "y"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]],
        Editable->False]}], "->", "Ay"}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        InterpretationBox[
         StyleBox["E",
          ShowAutoStyles->False,
          AutoSpacing->False],
         E,
         Editable->False], "z"], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]],
        Editable->False]}], "->", "Az"}], ",", 
     RowBox[{
      RowBox[{
       TemplateBox[{
         SubscriptBox[
          InterpretationBox[
           StyleBox[
            RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> False], E, 
           Editable -> False], "x"]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )], "+", 
       TemplateBox[{
         RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
               SubscriptBox[
               "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.6, \
0.4, 0.2]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0.6, 0.4, 0.2]]\)"], 
               "\[Phi]"}], AutoSpacing -> False, ShowAutoStyles -> False], 
            $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]],
             Editable -> False], ")"}]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "->", 
      RowBox[{"Ax", "\[Conjugate]"}]}], ",", 
     RowBox[{
      RowBox[{
       TemplateBox[{
         SubscriptBox["H", "z"]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )], "+", 
       TemplateBox[{
         RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
               SubscriptBox[
               "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.6, \
0.4, 0.2]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0.6, 0.4, 0.2]]\)"], 
               "\[Psi]"}], AutoSpacing -> False, ShowAutoStyles -> False], 
            $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]],
             Editable -> False], ")"}]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "->", 
      RowBox[{"Cz", "\[Conjugate]"}]}], ",", 
     RowBox[{
      RowBox[{
       TemplateBox[{
         SubscriptBox["H", "x"]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )], "+", 
       TemplateBox[{
         RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
               SubscriptBox[
               "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.6, \
0.4, 0.2]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0.6, 0.4, 0.2]]\)"], 
               "\[Psi]"}], AutoSpacing -> False, ShowAutoStyles -> False], 
            $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]],
             Editable -> False], ")"}]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "->", 
      RowBox[{"Cx", "\[Conjugate]"}]}], ",", 
     RowBox[{
      RowBox[{
       TemplateBox[{
         SubscriptBox[
          InterpretationBox[
           StyleBox[
            RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> False], E, 
           Editable -> False], "z"]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )], "+", 
       TemplateBox[{
         RowBox[{"(", 
           InterpretationBox[
            StyleBox[
             RowBox[{
               SubscriptBox[
               "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.6, \
0.4, 0.2]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0.6, 0.4, 0.2]]\)"], 
               "\[Phi]"}], AutoSpacing -> False, ShowAutoStyles -> False], 
            $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]],
             Editable -> False], ")"}]},
        "Conjugate",
        DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "->", 
      RowBox[{"Az", "\[Conjugate]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ToPotentials", "[", "a_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "//.", "PotRules"}], ")"}], "//", "FullSimplify"}], 
       ")"}], "//.", "PotRules"}], ")"}], "//", "FullSimplify"}], 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.883288090159797*^9, 3.8832881335638323`*^9}, {
   3.8833685272776146`*^9, 3.883368527679414*^9}, {3.883372777885789*^9, 
   3.883372785791323*^9}, {3.883373136277974*^9, 3.8833732015788326`*^9}, {
   3.883380229172068*^9, 3.883380250065872*^9}, {3.883380599858116*^9, 
   3.883380600240567*^9}, {3.8833806913278503`*^9, 3.8833807109307947`*^9}, {
   3.88338080883272*^9, 3.883381014313567*^9}, {3.8973898607895937`*^9, 
   3.897389861340122*^9}, {3.8975611037221217`*^9, 3.8975611744926715`*^9}, {
   3.8975613789130526`*^9, 3.8975613828275766`*^9}, 3.8975620354633427`*^9, {
   3.8987471383315086`*^9, 3.8987471442320514`*^9}, 3.8987472614176874`*^9, {
   3.8987473067094145`*^9, 3.8987474037076216`*^9}, {3.898747459091693*^9, 
   3.8987474872769866`*^9}, {3.8987509640444555`*^9, 
   3.8987509736732655`*^9}, {3.898751123923492*^9, 3.8987512904269934`*^9}, {
   3.8987513223378415`*^9, 3.8987514031940265`*^9}, {3.898751458860134*^9, 
   3.8987514619374886`*^9}, 3.8987516795995955`*^9, {3.89875171211788*^9, 
   3.898751785406806*^9}, {3.898751895959871*^9, 3.898751896211596*^9}, {
   3.8987519299197884`*^9, 3.8987519347385826`*^9}, 3.8987561244773855`*^9, {
   3.898756815050598*^9, 3.898756862453599*^9}, {3.8987568990136266`*^9, 
   3.898756920382887*^9}, {3.8994549964561157`*^9, 3.8994550276081114`*^9}, {
   3.8994550608593698`*^9, 3.89945506132124*^9}, {3.8994579735157804`*^9, 
   3.8994580064738297`*^9}, {3.8994583667559214`*^9, 3.899458400258117*^9}, {
   3.8994586049564385`*^9, 3.899458632891803*^9}, {3.899459254027256*^9, 
   3.8994592683761554`*^9}, {3.8994598882743*^9, 3.899459956535145*^9}, {
   3.899532320082917*^9, 3.899532389377925*^9}, {3.899536954161908*^9, 
   3.8995370516182785`*^9}, {3.8995370884976506`*^9, 3.8995372184610972`*^9}, 
   3.899537324993749*^9, {3.899537586798108*^9, 3.899537592357791*^9}, {
   3.89954173300935*^9, 3.8995417466686497`*^9}, {3.899541844018239*^9, 
   3.899541902290639*^9}, {3.8995436029511166`*^9, 3.8995438173169785`*^9}, {
   3.899543953326017*^9, 3.8995439865572624`*^9}, 3.9010039098397408`*^9, 
   3.9010039632590995`*^9, {3.90100423798808*^9, 3.9010042777475653`*^9}, {
   3.9010043353274527`*^9, 3.901004378866691*^9}, {3.9010044588328247`*^9, 
   3.901004565651822*^9}, {3.901004633877165*^9, 3.901004654165373*^9}, {
   3.901004689281935*^9, 3.901004705217635*^9}, {3.901004789667629*^9, 
   3.901004812121931*^9}, {3.9010049627183447`*^9, 3.9010050091578674`*^9}, {
   3.901005049119174*^9, 3.9010050504351397`*^9}, {3.901005422276238*^9, 
   3.901005448145279*^9}, {3.9010058191840763`*^9, 3.901005822839324*^9}, {
   3.9010060066186295`*^9, 3.901006024592533*^9}, {3.9010061913991156`*^9, 
   3.901006241155064*^9}, {3.9010062729740567`*^9, 3.9010063104843483`*^9}, {
   3.90100635210874*^9, 3.901006376810215*^9}, {3.9010065416445427`*^9, 
   3.9010065441429553`*^9}, {3.9010067872524233`*^9, 
   3.9010068009285727`*^9}, {3.9010068504168277`*^9, 
   3.9010068595035133`*^9}, {3.9010101962971797`*^9, 3.90101020631426*^9}, {
   3.901010294829069*^9, 3.901010295026514*^9}, 3.90108490022923*^9, {
   3.901084943964286*^9, 3.90108494454725*^9}, {3.901085408855212*^9, 
   3.90108543426305*^9}, {3.90108661396939*^9, 3.901086658919641*^9}, {
   3.9010867663772116`*^9, 3.9010867856990805`*^9}, {3.9010962825728626`*^9, 
   3.901096294572487*^9}, {3.9010963322860584`*^9, 3.9010963352503867`*^9}, {
   3.9010979699465046`*^9, 3.9010979758610907`*^9}, {3.9043939265142517`*^9, 
   3.904393933403015*^9}, 3.90439397327302*^9, {3.904450379076155*^9, 
   3.904450540315832*^9}, {3.9044505810008345`*^9, 3.9044505940568495`*^9}, {
   3.90445065253531*^9, 3.904450723348876*^9}, {3.9048806026395693`*^9, 
   3.9048806545344687`*^9}, {3.9048808624031777`*^9, 
   3.9048808856823225`*^9}, {3.9048810457600546`*^9, 
   3.9048810468027897`*^9}, {3.904881331332079*^9, 3.9048813482864447`*^9}, {
   3.90488165143499*^9, 3.9048816565478263`*^9}, 3.9048831310398493`*^9, {
   3.90488318200313*^9, 3.904883256303386*^9}, {3.904883294870257*^9, 
   3.904883309526179*^9}, {3.9048835605289445`*^9, 3.904883564729129*^9}, {
   3.9048842723103776`*^9, 3.9048843926407566`*^9}, {3.9048948995019035`*^9, 
   3.9048949426713243`*^9}, {3.904900588010053*^9, 3.9049005905792694`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"c37bd034-5710-48a9-831a-aa33deda72cb"],

Cell["\<\
Another rule we need for the scalar potentials is that partial derivatives \
commute, and that : \
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.901333516604388*^9, 3.9013335174286137`*^9}, {3.901333614455331*^9, 
  3.901333620616744*^9}, {3.9013336607477055`*^9, 3.9013336617257524`*^9}, {
  3.9048811747228966`*^9, 3.904881200572074*^9}, {3.9048812430796785`*^9, 
  3.9048812448905354`*^9}, {3.9049006159632616`*^9, 3.9049006449781394`*^9}, {
  3.9049010337263184`*^9, 
  3.9049010411360683`*^9}},ExpressionUUID->"6592cc1f-346b-42fa-85c0-\
a08fbbbfe6b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DerivativeRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][
         $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]]],
        Editable->False], "->", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{2, -$CellContext`mink}][
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]]],
        Editable->False]}], ")"}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{1, -$CellContext`mink}][
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]]],
       Editable->False], "->", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{2, -$CellContext`mink}][
        $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]]],
       Editable->False]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{1, -$CellContext`mink}][
        $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False], "->", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["1",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{3, -$CellContext`mink}][
        $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False]}], ",", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{1, -$CellContext`mink}][
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]]],
        Editable->False], "->", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["1",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{3, -$CellContext`mink}][
         $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]]],
        Editable->False]}], ")"}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{2, -$CellContext`mink}][
        $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]]],
       Editable->False], "->", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{3, -$CellContext`mink}][
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]]],
       Editable->False]}], ",", 
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["2",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], 
          SubscriptBox[
           StyleBox["\[ScriptCapitalD]",
            FontColor->RGBColor[0.6, 0.4, 0.2]], 
           StyleBox["3",
            FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`PDmink[{2, -$CellContext`mink}][
         $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]]],
        Editable->False], ")"}], "->", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["3",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], 
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[0.6, 0.4, 0.2]], 
          StyleBox["2",
           FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDmink[{3, -$CellContext`mink}][
        $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]]],
       Editable->False]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.904411409554609*^9, 3.904411434099394*^9}, {
  3.904411785446189*^9, 3.904411834265492*^9}, {3.9044121867994175`*^9, 
  3.904412201025011*^9}, {3.904412263459606*^9, 3.904412266273346*^9}, {
  3.9048813239364805`*^9, 3.904881355591585*^9}, {3.904900662721093*^9, 
  3.904900671053194*^9}, {3.9049007803117504`*^9, 3.9049007811286497`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"0cd468ec-a262-4ba8-aa90-9f9f3c97c92f"],

Cell["Finally, a rule to go to the Coulomb gauge:  ", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.901333516604388*^9, 3.9013335174286137`*^9}, {3.901333614455331*^9, 
  3.901333620616744*^9}, {3.9013336607477055`*^9, 3.9013336617257524`*^9}, {
  3.9048811747228966`*^9, 3.904881200572074*^9}, {3.9048812430796785`*^9, 
  3.9048812448905354`*^9}, {3.9049006159632616`*^9, 3.9049006449781394`*^9}, {
  3.9049010465020504`*^9, 
  3.904901080382166*^9}},ExpressionUUID->"aae3c165-daaf-4cf1-bc3e-\
c74026948392"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CoulombRules", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Phi]", "->", "0"}], ",", 
     RowBox[{"\[Psi]", "->", "0"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.904411409554609*^9, 3.904411434099394*^9}, {
  3.904411785446189*^9, 3.904411834265492*^9}, {3.9044121867994175`*^9, 
  3.904412201025011*^9}, {3.904412263459606*^9, 3.904412266273346*^9}, {
  3.9048813239364805`*^9, 3.904881355591585*^9}, {3.904900662721093*^9, 
  3.904900671053194*^9}, {3.9049007803117504`*^9, 3.9049007811286497`*^9}, {
  3.904901089537116*^9, 3.904901104791354*^9}, {3.9049011883991013`*^9, 
  3.9049011950457053`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"140c8bc3-b911-403f-b757-c1d37e0d1fd0"],

Cell["\<\
Throughout the notebook, you can add /.CoulombRules  to any quantity to \
express it in the Coulomb gauge.\
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.901333516604388*^9, 3.9013335174286137`*^9}, {3.901333614455331*^9, 
  3.901333620616744*^9}, {3.9013336607477055`*^9, 3.9013336617257524`*^9}, {
  3.9048811747228966`*^9, 3.904881200572074*^9}, {3.9048812430796785`*^9, 
  3.9048812448905354`*^9}, {3.9049006159632616`*^9, 3.9049006449781394`*^9}, {
  3.9049010465020504`*^9, 3.904901080382166*^9}, {3.904901250195394*^9, 
  3.9049012748551807`*^9}},ExpressionUUID->"9ba00d50-38e0-40e6-8749-\
30de84ff7fd4"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Defining the Electric, Magnetic, potentials and field strength:\
\>", "Section",
 CellChangeTimes->{{3.897384915665708*^9, 3.897384937853177*^9}, {
  3.897385491728079*^9, 3.897385491945632*^9}, {3.9049027659263535`*^9, 
  3.9049027702550907`*^9}},ExpressionUUID->"536a01ff-52c3-474d-8ef4-\
e9b842355c8b"],

Cell["\<\
We first define the four potential \[ScriptCapitalA], given by (14) in \
[23xx.xxxx],  the conjugate four potential \[ScriptCapitalC], and their \
complex conjugate. Notice that xAct does not recognize complex conjugate so \
we have to create new variables, denoted by adding the suffix Star.\
\>", "Text",
 CellChangeTimes->{{3.897389266166614*^9, 3.8973893099910803`*^9}, {
  3.8973894351584125`*^9, 3.897389466190613*^9}, {3.89756029402383*^9, 
  3.897560308311823*^9}, {3.8987480925693264`*^9, 3.898748113389962*^9}, {
  3.8987482399692297`*^9, 3.8987482604528236`*^9}, {3.901333439701765*^9, 
  3.9013334403566976`*^9}},ExpressionUUID->"deb7cb9d-a4e4-412e-b0ad-\
7b225282c772"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalA]", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}], 
           RowBox[{"\[Phi]", "/", "\[ScriptC]"}]}], ",", 
          RowBox[{
           SubscriptBox["E", "x"], "+", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               StyleBox["\[ScriptCapitalD]",
                FontColor->RGBColor[0.6, 0.4, 0.2]], 
               StyleBox["1",
                FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Phi]],
            Editable->False]}], ",", 
          RowBox[{
           SubscriptBox["E", "y"], "+", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               StyleBox["\[ScriptCapitalD]",
                FontColor->RGBColor[0.6, 0.4, 0.2]], 
               StyleBox["2",
                FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Phi]],
            Editable->False]}], ",", 
          RowBox[{
           SubscriptBox["E", "z"], "+", 
           StyleBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[0.6, 0.4, 0.2]], 
                StyleBox["3",
                 FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Phi]],
             Editable->False],
            ShowAutoStyles->False,
            AutoSpacing->False]}]}], "}"}], "/", 
        RowBox[{"(", 
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}]}], ",", 
       RowBox[{"{", "mink", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalC]", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}], 
           RowBox[{"\[Psi]", "/", "\[ScriptC]"}]}], ",", 
          RowBox[{
           SubscriptBox["H", "x"], "+", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               StyleBox["\[ScriptCapitalD]",
                FontColor->RGBColor[0.6, 0.4, 0.2]], 
               StyleBox["1",
                FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`PDmink[{1, -$CellContext`mink}][$CellContext`\[Psi]],
            Editable->False]}], ",", " ", 
          RowBox[{
           SubscriptBox["H", "y"], "+", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               StyleBox["\[ScriptCapitalD]",
                FontColor->RGBColor[0.6, 0.4, 0.2]], 
               StyleBox["2",
                FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`PDmink[{2, -$CellContext`mink}][$CellContext`\[Psi]],
            Editable->False]}], ",", " ", 
          RowBox[{
           SubscriptBox["H", "z"], "+", 
           InterpretationBox[
            StyleBox[
             RowBox[{
              SubscriptBox[
               StyleBox["\[ScriptCapitalD]",
                FontColor->RGBColor[0.6, 0.4, 0.2]], 
               StyleBox["3",
                FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`PDmink[{3, -$CellContext`mink}][$CellContext`\[Psi]],
            Editable->False]}]}], "}"}], "/", 
        RowBox[{"(", 
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}]}], ",", 
       RowBox[{"{", "mink", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalA]Star", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}], 
             RowBox[{"\[Phi]", "/", "\[ScriptC]"}]}], ",", 
            RowBox[{
             SubscriptBox["E", "x"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               1, -$CellContext`mink}][$CellContext`\[Phi]],
              Editable->False]}], ",", 
            RowBox[{
             SubscriptBox["E", "y"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               2, -$CellContext`mink}][$CellContext`\[Phi]],
              Editable->False]}], ",", 
            RowBox[{
             SubscriptBox["E", "z"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               3, -$CellContext`mink}][$CellContext`\[Phi]],
              Editable->False]}]}], "}"}], "/", 
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}]}], ")"}], 
        "\[Conjugate]"}], ",", 
       RowBox[{"{", "mink", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalC]Star", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}], 
             RowBox[{"\[Psi]", "/", "\[ScriptC]"}]}], ",", 
            RowBox[{
             SubscriptBox["H", "x"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               1, -$CellContext`mink}][$CellContext`\[Psi]],
              Editable->False]}], ",", " ", 
            RowBox[{
             SubscriptBox["H", "y"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               2, -$CellContext`mink}][$CellContext`\[Psi]],
              Editable->False]}], ",", " ", 
            RowBox[{
             SubscriptBox["H", "z"], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{
               3, -$CellContext`mink}][$CellContext`\[Psi]],
              Editable->False]}]}], "}"}], "/", 
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}], ")"}]}], ")"}], 
        "\[Conjugate]"}], ",", 
       RowBox[{"{", "mink", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["E", "x"]}], "/", "\[ScriptC]"}], ",", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["E", "y"]}], "/", "\[ScriptC]"}], ",", 
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["E", "z"]}], "/", "\[ScriptC]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["E", "x"], "/", "\[ScriptC]"}], ",", "0", ",", 
           RowBox[{"\[Mu]", " ", 
            SubscriptBox["H", "z"]}], ",", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], " ", 
            SubscriptBox["H", "y"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["E", "y"], "/", "\[ScriptC]"}], ",", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], " ", 
            SubscriptBox["H", "z"]}], ",", "0", ",", 
           RowBox[{"\[Mu]", " ", 
            SubscriptBox["H", "x"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            SubscriptBox["E", "z"], "/", "\[ScriptC]"}], ",", 
           RowBox[{"\[Mu]", " ", 
            SubscriptBox["H", "y"]}], ",", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], " ", 
            SubscriptBox["H", "x"]}], ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "mink"}], ",", 
         RowBox[{"-", "mink"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FStar", "=", 
     RowBox[{"CTensor", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["E", "x"]}], "/", "\[ScriptC]"}], ",", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["E", "y"]}], "/", "\[ScriptC]"}], ",", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["E", "z"]}], "/", "\[ScriptC]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             SubscriptBox["E", "x"], "/", "\[ScriptC]"}], ",", "0", ",", 
            RowBox[{
             RowBox[{"-", "\[Mu]"}], " ", 
             SubscriptBox["H", "z"]}], ",", 
            RowBox[{"\[Mu]", " ", 
             SubscriptBox["H", "y"]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             SubscriptBox["E", "y"], "/", "\[ScriptC]"}], ",", 
            RowBox[{"\[Mu]", " ", 
             SubscriptBox["H", "z"]}], ",", "0", ",", 
            RowBox[{
             RowBox[{"-", "\[Mu]"}], " ", 
             SubscriptBox["H", "x"]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             SubscriptBox["E", "z"], "/", "\[ScriptC]"}], ",", 
            RowBox[{
             RowBox[{"-", "\[Mu]"}], " ", 
             SubscriptBox["H", "y"]}], ",", 
            RowBox[{"\[Mu]", " ", 
             SubscriptBox["H", "x"]}], ",", "0"}], "}"}]}], "}"}], 
        "\[Conjugate]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "mink"}], ",", 
         RowBox[{"-", "mink"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"c_", ",", "d_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"\[ScriptC]", "*", 
       RowBox[{"\[Epsilon]", "/", "2"}], "*", 
       RowBox[{
        RowBox[{"epsilon", "[", "\[Eta]", "]"}], "[", 
        RowBox[{"c", ",", "d", ",", "a", ",", "b"}], "]"}], 
       RowBox[{"F", "[", 
        RowBox[{
         RowBox[{"-", "a"}], ",", 
         RowBox[{"-", "b"}]}], "]"}]}], "//", "rules"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"GStar", "[", 
      RowBox[{"c_", ",", "d_"}], "]"}], "=", 
     RowBox[{"\[ScriptC]", "*", 
      RowBox[{"\[Epsilon]", "/", "2"}], "*", 
      RowBox[{
       RowBox[{"epsilon", "[", "\[Eta]", "]"}], "[", 
       RowBox[{"c", ",", "d", ",", "a", ",", "b"}], "]"}], 
      RowBox[{"FStar", "[", 
       RowBox[{
        RowBox[{"-", "a"}], ",", 
        RowBox[{"-", "b"}]}], "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8832198374086804`*^9, 3.8832198971616907`*^9}, {
   3.883219942229209*^9, 3.883219962166354*^9}, {3.8832201886160994`*^9, 
   3.8832202242068443`*^9}, {3.8832239941821756`*^9, 3.883224121952914*^9}, {
   3.8832241937753105`*^9, 3.883224194591091*^9}, {3.883286382316104*^9, 
   3.8832863972341695`*^9}, {3.8832886454934745`*^9, 3.883288649150285*^9}, {
   3.8833371527116365`*^9, 3.883337184130228*^9}, {3.883372635232521*^9, 
   3.883372680819871*^9}, {3.8833736175867443`*^9, 3.8833736182943225`*^9}, {
   3.883381743341818*^9, 3.883381744579509*^9}, {3.897388234503248*^9, 
   3.8973882586727395`*^9}, 3.897388350790353*^9, {3.8973888667641335`*^9, 
   3.897388913172369*^9}, {3.897388945821229*^9, 3.8973889743230176`*^9}, {
   3.8973890570930595`*^9, 3.897389117660256*^9}, {3.8973891501078067`*^9, 
   3.8973892276750555`*^9}, {3.897560138523207*^9, 3.8975601510519223`*^9}, {
   3.8975602198778453`*^9, 3.8975602225335894`*^9}, {3.898745153418536*^9, 
   3.8987451600318403`*^9}, {3.8987452985690966`*^9, 3.89874530562387*^9}, {
   3.8987481169554987`*^9, 3.89874811827146*^9}, {3.898748152134219*^9, 
   3.898748153932833*^9}, {3.898748483378941*^9, 3.8987485433126307`*^9}, 
   3.898750239753443*^9, {3.898750889819787*^9, 3.8987509312895117`*^9}, {
   3.8993593738610725`*^9, 3.89935937540921*^9}, {3.8993632137844467`*^9, 
   3.8993632974272575`*^9}, 3.8993661178978868`*^9, 3.899366272419241*^9, {
   3.8993664165307217`*^9, 3.8993664236267776`*^9}, 3.899366456844509*^9, {
   3.8994427071318445`*^9, 3.89944272262862*^9}, {3.8994428485650034`*^9, 
   3.8994428931504264`*^9}, {3.899442967718747*^9, 3.899442982292477*^9}, {
   3.8994430237501802`*^9, 3.899443104866536*^9}, {3.899443143176694*^9, 
   3.899443197193821*^9}, {3.899443242216194*^9, 3.8994432591568394`*^9}, {
   3.899458066231736*^9, 3.8994580934084406`*^9}, {3.8994581536353073`*^9, 
   3.899458155817127*^9}, {3.8994589146368585`*^9, 3.8994589543019667`*^9}, {
   3.899459130688163*^9, 3.899459166681903*^9}, {3.899459419942727*^9, 
   3.899459422461033*^9}, {3.89945950661307*^9, 3.899459519122501*^9}, {
   3.899462134269357*^9, 3.8994621363515153`*^9}, {3.8994621699490237`*^9, 
   3.8994621781448836`*^9}, {3.899529171193582*^9, 3.8995291731419096`*^9}, {
   3.899529922443138*^9, 3.8995299512609324`*^9}, {3.8995300339852595`*^9, 
   3.8995300527139244`*^9}, {3.899530130060968*^9, 3.89953013270839*^9}, {
   3.8995430746739545`*^9, 3.899543076323105*^9}, {3.899543412188675*^9, 
   3.899543414754889*^9}, {3.899543474404466*^9, 3.8995434889472294`*^9}, {
   3.8995435236107435`*^9, 3.899543525810133*^9}, {3.901006986045079*^9, 
   3.9010069878055086`*^9}, {3.9010070289653816`*^9, 3.901007033862896*^9}, {
   3.901011084462551*^9, 3.9010111110011425`*^9}, {3.9010113021549807`*^9, 
   3.9010113036549163`*^9}, {3.901011351846066*^9, 3.9010113692606072`*^9}, {
   3.901015759893871*^9, 3.901015767704304*^9}, {3.901015798980499*^9, 
   3.901015814070761*^9}, {3.901084392696912*^9, 3.901084423657649*^9}, {
   3.901084465343704*^9, 3.9010844776433454`*^9}, {3.901085245039341*^9, 
   3.901085259078819*^9}, {3.901085310276628*^9, 3.9010853135748386`*^9}, {
   3.9010853827795243`*^9, 3.9010853920735016`*^9}, {3.901086194662269*^9, 
   3.9010862058333993`*^9}, {3.9010863112517657`*^9, 
   3.9010863131836615`*^9}, {3.9010863932010193`*^9, 
   3.9010864124053373`*^9}, {3.901086456378434*^9, 3.9010864590592327`*^9}, {
   3.9010865289326267`*^9, 3.9010865311317873`*^9}, {3.901357399889003*^9, 
   3.901357403570442*^9}, {3.904378757738406*^9, 3.904378766949493*^9}, {
   3.904387218351371*^9, 3.904387277156191*^9}, {3.904387334031412*^9, 
   3.9043873360981903`*^9}, {3.904387988823947*^9, 3.904387989173875*^9}, {
   3.904388210130932*^9, 3.9043882235177603`*^9}, {3.9043939107446847`*^9, 
   3.9043939134936533`*^9}, 3.9043942256838183`*^9, {3.9044098217455378`*^9, 
   3.904409833476431*^9}, {3.9044099878464737`*^9, 3.904410021392607*^9}, {
   3.904410074829975*^9, 3.9044100777527075`*^9}, {3.904410596691431*^9, 
   3.9044105968320694`*^9}, {3.904411123277033*^9, 3.904411137844593*^9}, {
   3.90441216957209*^9, 3.9044121700897264`*^9}, 3.9044123706205535`*^9, {
   3.904412486867945*^9, 3.9044125182177973`*^9}, {3.904881278675599*^9, 
   3.904881279550973*^9}, {3.9048818584184275`*^9, 3.9048818826051345`*^9}, 
   3.9048819461621847`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"1a8793ba-87b4-4282-a71c-c5da16f9942d"],

Cell[TextData[{
 "We can reproduce (13) from the paper, and also see the form of the \
conjugate field strength tensor ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["G", "\[Mu]\[Nu]"], TraditionalForm]],ExpressionUUID->
  "818dc641-a6ea-4db6-abd6-88c3a3108ddb"],
 ":"
}], "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 
  3.8987503392234793`*^9}},ExpressionUUID->"a4f30598-ec7a-4f96-8e56-\
6f3c1af5575f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"F", "[", 
  RowBox[{
   RowBox[{"-", "a"}], ",", 
   RowBox[{"-", "b"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"G", "[", 
  RowBox[{
   RowBox[{"-", "a"}], ",", 
   RowBox[{"-", "b"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8832198374086804`*^9, 3.8832198971616907`*^9}, {
   3.883219942229209*^9, 3.883219962166354*^9}, {3.8832201886160994`*^9, 
   3.8832202242068443`*^9}, {3.8832239941821756`*^9, 3.883224121952914*^9}, {
   3.8832241937753105`*^9, 3.883224194591091*^9}, {3.883286382316104*^9, 
   3.8832863972341695`*^9}, {3.8832886454934745`*^9, 3.883288649150285*^9}, {
   3.8833371527116365`*^9, 3.883337184130228*^9}, {3.883372635232521*^9, 
   3.883372680819871*^9}, {3.8833736175867443`*^9, 3.8833736182943225`*^9}, {
   3.883381743341818*^9, 3.883381744579509*^9}, {3.897388234503248*^9, 
   3.8973882586727395`*^9}, 3.897388350790353*^9, {3.8973888667641335`*^9, 
   3.897388913172369*^9}, {3.897388945821229*^9, 3.8973889743230176`*^9}, {
   3.8973890570930595`*^9, 3.897389117660256*^9}, {3.8973891501078067`*^9, 
   3.8973892276750555`*^9}, {3.897560138523207*^9, 3.8975601510519223`*^9}, {
   3.897560227652874*^9, 3.897560233221114*^9}, {3.9010851065844593`*^9, 
   3.9010851100650606`*^9}, {3.9010851776527147`*^9, 3.901085181608531*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"d1236281-d7ce-4874-a070-386c52b2c067"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "x"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], E, Editable -> False], "x"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {1, 2} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "y"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], E, Editable -> False], "y"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {1, 3} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "z"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], E, Editable -> False], "z"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {1, 4} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`z], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "x"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "x"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {2, 1} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Mu]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Mu],
              Editable->False], " ", 
             SubscriptBox["H", "z"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], $CellContext`\[Mu], Editable -> False], " ", 
                SubscriptBox["H", "z"]}]}]],
           
           Annotation[#, {2, 3} -> $CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Mu]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Mu],
               Editable->False]}], " ", 
             SubscriptBox["H", "y"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`\[Mu], Editable -> False]}], " ", 
                SubscriptBox["H", "y"]}]}]],
           
           Annotation[#, {2, 4} -> -$CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`y], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "y"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "y"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {3, 1} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Mu]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Mu],
               Editable->False]}], " ", 
             SubscriptBox["H", "z"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`\[Mu], Editable -> False]}], " ", 
                SubscriptBox["H", "z"]}]}]],
           
           Annotation[#, {3, 2} -> -$CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Mu]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Mu],
              Editable->False], " ", 
             SubscriptBox["H", "x"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], $CellContext`\[Mu], Editable -> False], " ", 
                SubscriptBox["H", "x"]}]}]],
           
           Annotation[#, {3, 4} -> $CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`x], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "z"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "z"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {4, 1} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[E, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Mu]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Mu],
              Editable->False], " ", 
             SubscriptBox["H", "y"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], $CellContext`\[Mu], Editable -> False], " ", 
                SubscriptBox["H", "y"]}]}]],
           
           Annotation[#, {4, 2} -> $CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Mu]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Mu],
               Editable->False]}], " ", 
             SubscriptBox["H", "x"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Mu]"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`\[Mu], Editable -> False]}], " ", 
                SubscriptBox["H", "x"]}]}]],
           
           Annotation[#, {4, 3} -> -$CellContext`\[Mu] 
             Subscript[$CellContext`H, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}, 
          "RowsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"a", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "Rows" -> {{
             Offset[0.]}}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{
    0, -$CellContext`\[ScriptC]^(-1) 
     Subscript[E, $CellContext`x], -$CellContext`\[ScriptC]^(-1) 
     Subscript[E, $CellContext`y], -$CellContext`\[ScriptC]^(-1) 
     Subscript[E, $CellContext`z]}, {$CellContext`\[ScriptC]^(-1) 
     Subscript[E, $CellContext`x], 0, $CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`z], -$CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`y]}, {$CellContext`\[ScriptC]^(-1)
        Subscript[E, $CellContext`y], -$CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`z], 0, $CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`x]}, {$CellContext`\[ScriptC]^(-1)
        Subscript[E, $CellContext`z], $CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`y], -$CellContext`\[Mu] 
     Subscript[$CellContext`H, $CellContext`x], 
     0}}, {-$CellContext`mink, -$CellContext`mink}, 
   0][-$CellContext`a, -$CellContext`b],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.897389230172428*^9, 3.8974706099764013`*^9, {3.897560252115119*^9, 
   3.8975602754134073`*^9}, 3.8975618833944535`*^9, 3.897562064228691*^9, 
   3.897562280078904*^9, 3.8975623330731573`*^9, 3.897562549553874*^9, 
   3.8975626451347756`*^9, 3.898744912659998*^9, 3.898745125650526*^9, 
   3.8987452080695224`*^9, 3.898745261164111*^9, 3.8987453216132774`*^9, 
   3.898746243639577*^9, 3.8987462768053384`*^9, 3.8987463532464123`*^9, 
   3.8987472840931063`*^9, 3.898747422488138*^9, 3.8987476494811344`*^9, 
   3.8987476875426383`*^9, 3.8987482006316414`*^9, 3.898748400498521*^9, 
   3.8987484499799533`*^9, 3.8987485684484434`*^9, 3.898750257126178*^9, 
   3.898751305770872*^9, 3.898751434441064*^9, 3.8987516483502855`*^9, 
   3.8987518100583115`*^9, 3.8987567910638385`*^9, 3.8987569394036922`*^9, 
   3.898757270172697*^9, 3.898757308301897*^9, 3.898760546827971*^9, 
   3.898760850240109*^9, 3.8987609032726374`*^9, 3.898761422971534*^9, 
   3.89876188229574*^9, 3.898761912842129*^9, 3.8993578049656773`*^9, 
   3.899359379921503*^9, 3.8993664750147734`*^9, {3.8994431136301937`*^9, 
   3.8994431361309633`*^9}, 3.8994432343208365`*^9, 3.8994432801653843`*^9, 
   3.899443396360654*^9, 3.8994550929889765`*^9, 3.899458025062372*^9, 
   3.8994581128091617`*^9, 3.8994581706876955`*^9, 3.8994584233002896`*^9, 
   3.8994586517659683`*^9, 3.89945900812053*^9, 3.899459188786611*^9, 
   3.899459285400526*^9, 3.899459440465678*^9, 3.8994595358118753`*^9, 
   3.8994598420611563`*^9, 3.8994599782373853`*^9, 3.8994618468604727`*^9, {
   3.8994619077601986`*^9, 3.8994619349957237`*^9}, 3.8994621544574437`*^9, 
   3.899462199833665*^9, 3.899529207881936*^9, 3.8995299803279915`*^9, {
   3.8995300431405725`*^9, 3.899530082432315*^9}, 3.899530152733737*^9, 
   3.8995372521036882`*^9, 3.8995373563406115`*^9, {3.899541768422928*^9, 
   3.8995418084064183`*^9}, 3.899543099679085*^9, 3.8995434348271837`*^9, {
   3.899543517231436*^9, 3.8995435618934355`*^9}, 3.89954383598938*^9, 
   3.899543917810871*^9, 3.899544019704998*^9, 3.901003986005437*^9, 
   3.90100507863529*^9, 3.901005470167141*^9, 3.901005841426915*^9, 
   3.9010059402753215`*^9, 3.9010060580410223`*^9, 3.9010061191906404`*^9, 
   3.901006327639287*^9, 3.901006394982897*^9, 3.901006823265457*^9, 
   3.90100689239505*^9, 3.9010070044793606`*^9, 3.901010106413896*^9, 
   3.9010102283486443`*^9, 3.901010321829452*^9, 3.90101126832852*^9, 
   3.9010113289378*^9, 3.9010113985584965`*^9, 3.9010115374554553`*^9, {
   3.9010154559975786`*^9, 3.901015482849543*^9}, 3.9010155854763975`*^9, {
   3.9010156518075657`*^9, 3.9010156680976243`*^9}, 3.9010157098043957`*^9, 
   3.90101578559181*^9, 3.9010159114302864`*^9, 3.901015952265381*^9, 
   3.9010842753396873`*^9, 3.9010843182002945`*^9, {3.901084354961915*^9, 
   3.9010843712197065`*^9}, 3.9010844436298294`*^9, 3.9010845466361313`*^9, 
   3.901084920219125*^9, 3.9010851125959845`*^9, 3.901085183956729*^9, 
   3.9010852762984314`*^9, 3.901085336610923*^9, 3.9010854531010094`*^9, 
   3.9010862288927317`*^9, 3.9010863300818143`*^9, 3.9010864273327217`*^9, {
   3.901086479931259*^9, 3.9010865085429063`*^9}, 3.9010865483388457`*^9, 
   3.9010866748443513`*^9, 3.9010868045819874`*^9, 3.90109636801587*^9, 
   3.901096703195649*^9, 3.901097428507945*^9, 3.9010979925647116`*^9, 
   3.90109838460822*^9, 3.9013574196286163`*^9, 3.904378683019224*^9, 
   3.9043787808835526`*^9, 3.904387321424164*^9, 3.9043873640716844`*^9, 
   3.90438743578546*^9, 3.904388019262884*^9, 3.904388235151005*^9, 
   3.9043942134258404`*^9, 3.9043942762710295`*^9, 3.904395480101289*^9, {
   3.9043955833730803`*^9, 3.904395610196415*^9}, 3.904395709080673*^9, 
   3.904396051807354*^9, 3.904396212177211*^9, 3.9044073096003437`*^9, {
   3.904407466185467*^9, 3.904407511790386*^9}, 3.904407564876857*^9, 
   3.904408955473978*^9, 3.9044093400977645`*^9, 3.904409639611697*^9, 
   3.9044098570001183`*^9, {3.9044100652868514`*^9, 3.9044100944929967`*^9}, 
   3.9044105423459244`*^9, {3.904410718089049*^9, 3.9044107461249847`*^9}, 
   3.904411040260908*^9, 3.904412293411585*^9, 3.904412389532965*^9, 
   3.9044125464798527`*^9, 3.9044127350863028`*^9, 3.904413036860565*^9, 
   3.904450333787958*^9, 3.9044672548388367`*^9, 3.904881025506157*^9, 
   3.9048810711811895`*^9, 3.9048814218410063`*^9, 3.9048815024460955`*^9, 
   3.904881670007268*^9, 3.904881990349698*^9, 3.9048833425740466`*^9, 
   3.9048840120495524`*^9, 3.904884416806275*^9, 3.904895001270794*^9, 
   3.9048951412069883`*^9, 3.9049006917389317`*^9, 3.9049014540713434`*^9, 
   3.9049019313986006`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"1cde1db1-dc43-41d5-aee5-7b7a3cbba2c7"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox["H", "x"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox["H", "x"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {1, 2} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox["H", "y"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox["H", "y"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {1, 3} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SubscriptBox["H", "z"], 
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", 
              FractionBox[
               SubscriptBox["H", "z"], 
               InterpretationBox[
                StyleBox[
                 RowBox[{"\[ScriptC]"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], $CellContext`\[ScriptC], Editable -> False]]}]],
           
           Annotation[#, {1, 4} -> $CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`z], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox["H", "x"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox["H", "x"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {2, 1} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Epsilon]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Epsilon],
              Editable->False], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "z"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                  ShowAutoStyles -> False], $CellContext`\[Epsilon], Editable -> 
                 False], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "z"]}]}]],
           
           Annotation[#, {2, 3} -> $CellContext`\[Epsilon] 
             Subscript[E, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Epsilon]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Epsilon],
               Editable->False]}], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "y"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Epsilon], 
                   Editable -> False]}], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "y"]}]}]],
           
           Annotation[#, {2, 4} -> -$CellContext`\[Epsilon] 
             Subscript[E, $CellContext`y], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox["H", "y"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox["H", "y"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {3, 1} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Epsilon]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Epsilon],
               Editable->False]}], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "z"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Epsilon], 
                   Editable -> False]}], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "z"]}]}]],
           
           Annotation[#, {3, 2} -> -$CellContext`\[Epsilon] 
             Subscript[E, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Epsilon]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Epsilon],
              Editable->False], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "x"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                  ShowAutoStyles -> False], $CellContext`\[Epsilon], Editable -> 
                 False], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "x"]}]}]],
           
           Annotation[#, {3, 4} -> $CellContext`\[Epsilon] 
             Subscript[E, $CellContext`x], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SubscriptBox["H", "z"], 
              InterpretationBox[
               StyleBox["\[ScriptC]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[ScriptC],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SubscriptBox["H", "z"], 
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[ScriptC]"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[ScriptC], 
                  Editable -> False]]}]}]],
           
           Annotation[#, {4, 1} -> -$CellContext`\[ScriptC]^(-1) 
             Subscript[$CellContext`H, $CellContext`z], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["\[Epsilon]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Epsilon],
              Editable->False], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "y"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                  ShowAutoStyles -> False], $CellContext`\[Epsilon], Editable -> 
                 False], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "y"]}]}]],
           
           Annotation[#, {4, 2} -> $CellContext`\[Epsilon] 
             Subscript[E, $CellContext`y], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["\[Epsilon]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Epsilon],
               Editable->False]}], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "x"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"\[Epsilon]"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Epsilon], 
                   Editable -> False]}], " ", 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], E, Editable -> False], "x"]}]}]],
           
           Annotation[#, {4, 3} -> -$CellContext`\[Epsilon] 
             Subscript[E, $CellContext`x], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}, 
          "RowsIndexed" -> {
           1 -> RGBColor[0.6, 0.4, 0.2], 5 -> RGBColor[0.6, 0.4, 0.2]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"a", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "Rows" -> {{
             Offset[0.]}}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{
    0, $CellContext`\[ScriptC]^(-1) 
     Subscript[$CellContext`H, $CellContext`x], $CellContext`\[ScriptC]^(-1) 
     Subscript[$CellContext`H, $CellContext`y], $CellContext`\[ScriptC]^(-1) 
     Subscript[$CellContext`H, $CellContext`z]}, \
{-$CellContext`\[ScriptC]^(-1) Subscript[$CellContext`H, $CellContext`x], 
     0, $CellContext`\[Epsilon] 
     Subscript[E, $CellContext`z], -$CellContext`\[Epsilon] 
     Subscript[E, $CellContext`y]}, {-$CellContext`\[ScriptC]^(-1) 
     Subscript[$CellContext`H, $CellContext`y], -$CellContext`\[Epsilon] 
     Subscript[E, $CellContext`z], 0, $CellContext`\[Epsilon] 
     Subscript[E, $CellContext`x]}, {-$CellContext`\[ScriptC]^(-1) 
     Subscript[$CellContext`H, $CellContext`z], $CellContext`\[Epsilon] 
     Subscript[E, $CellContext`y], -$CellContext`\[Epsilon] 
     Subscript[E, $CellContext`x], 
     0}}, {-$CellContext`mink, -$CellContext`mink}, 
   0][-$CellContext`a, -$CellContext`b],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.897389230172428*^9, 3.8974706099764013`*^9, {3.897560252115119*^9, 
   3.8975602754134073`*^9}, 3.8975618833944535`*^9, 3.897562064228691*^9, 
   3.897562280078904*^9, 3.8975623330731573`*^9, 3.897562549553874*^9, 
   3.8975626451347756`*^9, 3.898744912659998*^9, 3.898745125650526*^9, 
   3.8987452080695224`*^9, 3.898745261164111*^9, 3.8987453216132774`*^9, 
   3.898746243639577*^9, 3.8987462768053384`*^9, 3.8987463532464123`*^9, 
   3.8987472840931063`*^9, 3.898747422488138*^9, 3.8987476494811344`*^9, 
   3.8987476875426383`*^9, 3.8987482006316414`*^9, 3.898748400498521*^9, 
   3.8987484499799533`*^9, 3.8987485684484434`*^9, 3.898750257126178*^9, 
   3.898751305770872*^9, 3.898751434441064*^9, 3.8987516483502855`*^9, 
   3.8987518100583115`*^9, 3.8987567910638385`*^9, 3.8987569394036922`*^9, 
   3.898757270172697*^9, 3.898757308301897*^9, 3.898760546827971*^9, 
   3.898760850240109*^9, 3.8987609032726374`*^9, 3.898761422971534*^9, 
   3.89876188229574*^9, 3.898761912842129*^9, 3.8993578049656773`*^9, 
   3.899359379921503*^9, 3.8993664750147734`*^9, {3.8994431136301937`*^9, 
   3.8994431361309633`*^9}, 3.8994432343208365`*^9, 3.8994432801653843`*^9, 
   3.899443396360654*^9, 3.8994550929889765`*^9, 3.899458025062372*^9, 
   3.8994581128091617`*^9, 3.8994581706876955`*^9, 3.8994584233002896`*^9, 
   3.8994586517659683`*^9, 3.89945900812053*^9, 3.899459188786611*^9, 
   3.899459285400526*^9, 3.899459440465678*^9, 3.8994595358118753`*^9, 
   3.8994598420611563`*^9, 3.8994599782373853`*^9, 3.8994618468604727`*^9, {
   3.8994619077601986`*^9, 3.8994619349957237`*^9}, 3.8994621544574437`*^9, 
   3.899462199833665*^9, 3.899529207881936*^9, 3.8995299803279915`*^9, {
   3.8995300431405725`*^9, 3.899530082432315*^9}, 3.899530152733737*^9, 
   3.8995372521036882`*^9, 3.8995373563406115`*^9, {3.899541768422928*^9, 
   3.8995418084064183`*^9}, 3.899543099679085*^9, 3.8995434348271837`*^9, {
   3.899543517231436*^9, 3.8995435618934355`*^9}, 3.89954383598938*^9, 
   3.899543917810871*^9, 3.899544019704998*^9, 3.901003986005437*^9, 
   3.90100507863529*^9, 3.901005470167141*^9, 3.901005841426915*^9, 
   3.9010059402753215`*^9, 3.9010060580410223`*^9, 3.9010061191906404`*^9, 
   3.901006327639287*^9, 3.901006394982897*^9, 3.901006823265457*^9, 
   3.90100689239505*^9, 3.9010070044793606`*^9, 3.901010106413896*^9, 
   3.9010102283486443`*^9, 3.901010321829452*^9, 3.90101126832852*^9, 
   3.9010113289378*^9, 3.9010113985584965`*^9, 3.9010115374554553`*^9, {
   3.9010154559975786`*^9, 3.901015482849543*^9}, 3.9010155854763975`*^9, {
   3.9010156518075657`*^9, 3.9010156680976243`*^9}, 3.9010157098043957`*^9, 
   3.90101578559181*^9, 3.9010159114302864`*^9, 3.901015952265381*^9, 
   3.9010842753396873`*^9, 3.9010843182002945`*^9, {3.901084354961915*^9, 
   3.9010843712197065`*^9}, 3.9010844436298294`*^9, 3.9010845466361313`*^9, 
   3.901084920219125*^9, 3.9010851125959845`*^9, 3.901085183956729*^9, 
   3.9010852762984314`*^9, 3.901085336610923*^9, 3.9010854531010094`*^9, 
   3.9010862288927317`*^9, 3.9010863300818143`*^9, 3.9010864273327217`*^9, {
   3.901086479931259*^9, 3.9010865085429063`*^9}, 3.9010865483388457`*^9, 
   3.9010866748443513`*^9, 3.9010868045819874`*^9, 3.90109636801587*^9, 
   3.901096703195649*^9, 3.901097428507945*^9, 3.9010979925647116`*^9, 
   3.90109838460822*^9, 3.9013574196286163`*^9, 3.904378683019224*^9, 
   3.9043787808835526`*^9, 3.904387321424164*^9, 3.9043873640716844`*^9, 
   3.90438743578546*^9, 3.904388019262884*^9, 3.904388235151005*^9, 
   3.9043942134258404`*^9, 3.9043942762710295`*^9, 3.904395480101289*^9, {
   3.9043955833730803`*^9, 3.904395610196415*^9}, 3.904395709080673*^9, 
   3.904396051807354*^9, 3.904396212177211*^9, 3.9044073096003437`*^9, {
   3.904407466185467*^9, 3.904407511790386*^9}, 3.904407564876857*^9, 
   3.904408955473978*^9, 3.9044093400977645`*^9, 3.904409639611697*^9, 
   3.9044098570001183`*^9, {3.9044100652868514`*^9, 3.9044100944929967`*^9}, 
   3.9044105423459244`*^9, {3.904410718089049*^9, 3.9044107461249847`*^9}, 
   3.904411040260908*^9, 3.904412293411585*^9, 3.904412389532965*^9, 
   3.9044125464798527`*^9, 3.9044127350863028`*^9, 3.904413036860565*^9, 
   3.904450333787958*^9, 3.9044672548388367`*^9, 3.904881025506157*^9, 
   3.9048810711811895`*^9, 3.9048814218410063`*^9, 3.9048815024460955`*^9, 
   3.904881670007268*^9, 3.904881990349698*^9, 3.9048833425740466`*^9, 
   3.9048840120495524`*^9, 3.904884416806275*^9, 3.904895001270794*^9, 
   3.9048951412069883`*^9, 3.9049006917389317`*^9, 3.9049014540713434`*^9, 
   3.9049019314153605`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"1730a15c-5b9f-408e-8f62-3c64db8e01fe"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Defining the Total Spin, Canonical Spin and Poynting Spin in a general gauge:\
\>", "Section",
 CellChangeTimes->{{3.897384915665708*^9, 3.897384937853177*^9}, {
  3.897385491728079*^9, 3.897385491945632*^9}, {3.9048813845264482`*^9, 
  3.9048814035115585`*^9}, {3.9049023325720267`*^9, 3.9049023350782757`*^9}, {
  3.9049027767044563`*^9, 
  3.9049027770218534`*^9}},ExpressionUUID->"c8ddf84b-cc5c-4241-98dd-\
15960b03a347"],

Cell["We can define the total spin, as in (17): ", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.901333516604388*^9, 3.9013335174286137`*^9}, {3.901333614455331*^9, 
  3.901333620616744*^9}, {3.9013336607477055`*^9, 
  3.9013336617257524`*^9}},ExpressionUUID->"61621467-7637-43b0-bf9b-\
fcbf2516d243"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[Epsilon]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[Omega]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}], ",", 
     RowBox[{"\[ScriptC]", "\[Element]", 
      TemplateBox[{},
       "PositiveReals"]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SDef", "[", "a_", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[ScriptCapitalC]Star", "[", 
         RowBox[{"-", "c"}], "]"}], " ", 
        RowBox[{"F", "[", 
         RowBox[{"c", ",", "a"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"\[ScriptCapitalA]Star", "[", 
         RowBox[{"-", "c"}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"c", ",", "a"}], "]"}]}]}], "]"}], "/", "4"}], "//", 
    "rules"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"SDef", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", "mink"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "0", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"S", "//", "ToPotentials"}]}], "Input",
 CellChangeTimes->{{3.8987578720546045`*^9, 3.8987579200734806`*^9}, {
   3.8987582327817135`*^9, 3.898758254365986*^9}, {3.8987587801797624`*^9, 
   3.8987587806295843`*^9}, {3.8987588257382545`*^9, 
   3.8987588633829107`*^9}, {3.898759100694332*^9, 3.898759119953915*^9}, {
   3.8987600842715883`*^9, 3.89876011217176*^9}, {3.8987603830520415`*^9, 
   3.898760388532712*^9}, {3.898761380477869*^9, 3.898761383942489*^9}, {
   3.8987614526894693`*^9, 3.8987614580849047`*^9}, {3.8994433032818627`*^9, 
   3.899443343524729*^9}, {3.899455067365533*^9, 3.899455069202401*^9}, {
   3.8994589670579224`*^9, 3.8994589684411087`*^9}, {3.901006098767419*^9, 
   3.901006102502838*^9}, {3.9010061850533037`*^9, 3.901006186302687*^9}, {
   3.9010069374003725`*^9, 3.9010069378419085`*^9}, {3.9010103521286154`*^9, 
   3.901010358309907*^9}, {3.901010648807113*^9, 3.9010106518206434`*^9}, {
   3.9010110711282454`*^9, 3.901011071236742*^9}, {3.90101556722339*^9, 
   3.901015569318462*^9}, {3.9010156367485304`*^9, 3.9010156460081973`*^9}, {
   3.901015690050364*^9, 3.901015690666871*^9}, {3.904387397365753*^9, 
   3.9043873982152295`*^9}, {3.904394197481616*^9, 3.9043941992115927`*^9}, {
   3.904880996105057*^9, 3.904880998552947*^9}, 3.904895129271656*^9, {
   3.9049009660300074`*^9, 3.9049009820808544`*^9}, {3.904901135861313*^9, 
   3.9049011425728445`*^9}, {3.9049012114449687`*^9, 
   3.9049012295654383`*^9}, {3.904901282161005*^9, 3.9049012851365213`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"ff52f9c2-9e01-4a19-b7ce-f960047a8eb3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         RowBox[{
          RowBox[{
           TemplateBox[{"Cx"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox[
            InterpretationBox[
             StyleBox["E",
              ShowAutoStyles->False,
              AutoSpacing->False],
             E,
             Editable->False], "x"]}], "+", 
          RowBox[{
           TemplateBox[{"Cy"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox[
            InterpretationBox[
             StyleBox["E",
              ShowAutoStyles->False,
              AutoSpacing->False],
             E,
             Editable->False], "y"]}], "+", 
          RowBox[{
           TemplateBox[{"Cz"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox[
            InterpretationBox[
             StyleBox["E",
              ShowAutoStyles->False,
              AutoSpacing->False],
             E,
             Editable->False], "z"]}], "-", 
          RowBox[{
           TemplateBox[{"Ax"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox["H", "x"]}], "-", 
          RowBox[{
           TemplateBox[{"Ay"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox["H", "y"]}], "-", 
          RowBox[{
           TemplateBox[{"Az"},
            "Conjugate",
            DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
           SubscriptBox["H", "z"]}]}], "]"}], 
        RowBox[{"4", " ", 
         InterpretationBox[
          StyleBox["\[ScriptC]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[ScriptC],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["\[Omega]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Omega],
          Editable->False]}]]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox["Im",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Im,
              Editable->False], "[", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["\[Epsilon]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Epsilon],
                Editable->False], " ", 
               TemplateBox[{"Az"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox[
                InterpretationBox[
                 StyleBox["E",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 E,
                 Editable->False], "y"]}], "-", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Epsilon]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Epsilon],
                Editable->False], " ", 
               TemplateBox[{"Ay"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox[
                InterpretationBox[
                 StyleBox["E",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 E,
                 Editable->False], "z"]}], "+", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Mu]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Mu],
                Editable->False], " ", 
               TemplateBox[{"Cz"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox["H", "y"]}], "-", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Mu]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Mu],
                Editable->False], " ", 
               TemplateBox[{"Cy"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox["H", "z"]}]}], "]"}], 
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False]]}], "+", 
          FractionBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Re",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Re,
             Editable->False], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               TemplateBox[{"\[Psi]"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "x"]}], "+", 
             RowBox[{
              TemplateBox[{"\[Phi]"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox["H", "x"]}]}], "]"}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]]}], ")"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Im",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Im,
             Editable->False], "[", 
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["\[Epsilon]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Epsilon],
               Editable->False], " ", 
              TemplateBox[{"Az"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "x"]}], "-", 
             RowBox[{
              InterpretationBox[
               StyleBox["\[Epsilon]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Epsilon],
               Editable->False], " ", 
              TemplateBox[{"Ax"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "z"]}], "+", 
             RowBox[{
              InterpretationBox[
               StyleBox["\[Mu]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Mu],
               Editable->False], " ", 
              TemplateBox[{"Cz"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox["H", "x"]}], "-", 
             RowBox[{
              InterpretationBox[
               StyleBox["\[Mu]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Mu],
               Editable->False], " ", 
              TemplateBox[{"Cx"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox["H", "z"]}]}], "]"}], 
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False]], "+", 
          FractionBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Re",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Re,
             Editable->False], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               TemplateBox[{"\[Psi]"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "y"]}], "+", 
             RowBox[{
              TemplateBox[{"\[Phi]"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox["H", "y"]}]}], "]"}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]]}], ")"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             InterpretationBox[
              StyleBox["Im",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Im,
              Editable->False], "[", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["\[Epsilon]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Epsilon],
                Editable->False], " ", 
               TemplateBox[{"Ay"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox[
                InterpretationBox[
                 StyleBox["E",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 E,
                 Editable->False], "x"]}], "-", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Epsilon]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Epsilon],
                Editable->False], " ", 
               TemplateBox[{"Ax"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox[
                InterpretationBox[
                 StyleBox["E",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 E,
                 Editable->False], "y"]}], "+", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Mu]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Mu],
                Editable->False], " ", 
               TemplateBox[{"Cy"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox["H", "x"]}], "-", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Mu]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Mu],
                Editable->False], " ", 
               TemplateBox[{"Cx"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               SubscriptBox["H", "y"]}]}], "]"}], 
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False]]}], "+", 
          FractionBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Re",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Re,
             Editable->False], "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", 
               TemplateBox[{"\[Psi]"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
              SubscriptBox[
               InterpretationBox[
                StyleBox["E",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                E,
                Editable->False], "z"]}], "+", 
             RowBox[{
              TemplateBox[{"\[Phi]"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
              SubscriptBox["H", "z"]}]}], "]"}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8987559471412888`*^9, {3.8987567915803857`*^9, 3.89875681924735*^9}, 
   3.89875693995774*^9, 3.898757270574358*^9, 3.8987573087062387`*^9, {
   3.8987578741021857`*^9, 3.898757920939051*^9}, {3.8987582337306623`*^9, 
   3.898758255135337*^9}, {3.898758836664525*^9, 3.8987588645315905`*^9}, {
   3.898759116605114*^9, 3.8987591213021345`*^9}, {3.8987600976966887`*^9, 
   3.8987601128206916`*^9}, {3.8987603847006683`*^9, 3.8987603892668037`*^9}, 
   3.8987605472406797`*^9, 3.8987608506395273`*^9, 3.8987609039057617`*^9, 
   3.8987613858266287`*^9, 3.898761423472347*^9, 3.8987614676960297`*^9, 
   3.8987618826619062`*^9, 3.8987619132266693`*^9, 3.8993578057319975`*^9, 
   3.8993664753668585`*^9, 3.8994431369466114`*^9, 3.8994432351533003`*^9, 
   3.8994432819595346`*^9, {3.899443325717831*^9, 3.899443344140916*^9}, 
   3.8994433974100804`*^9, 3.899455094470052*^9, 3.8994580266143284`*^9, 
   3.8994581141474943`*^9, 3.8994581728875203`*^9, 3.899458425798299*^9, 
   3.899458654079392*^9, 3.8994589698070154`*^9, 3.8994590094369497`*^9, 
   3.899459190120084*^9, 3.8994592865341425`*^9, 3.8994594417323275`*^9, 
   3.8994595368956947`*^9, 3.8994598430988855`*^9, 3.8994599794391193`*^9, 
   3.8994618476278734`*^9, {3.899461907926605*^9, 3.899461935574706*^9}, 
   3.899462155114375*^9, 3.899462200428652*^9, 3.8995292087725415`*^9, 
   3.8995299810182953`*^9, {3.899530043273205*^9, 3.8995300830017166`*^9}, 
   3.899530153296367*^9, 3.899537253415038*^9, 3.899537357677431*^9, {
   3.8995417697767773`*^9, 3.899541809656618*^9}, 3.8995431004595194`*^9, 
   3.8995434355349064`*^9, 3.8995435178404713`*^9, 3.899543562472789*^9, 
   3.8995438366261177`*^9, 3.8995439185273743`*^9, 3.8995440202885036`*^9, 
   3.9010039869625125`*^9, 3.901005079303542*^9, 3.901005470799244*^9, 
   3.9010058421769376`*^9, 3.9010059409753666`*^9, 3.901006058705907*^9, 
   3.90100611992208*^9, 3.9010063283736835`*^9, 3.9010063957163196`*^9, 
   3.9010068240313053`*^9, 3.9010068931585307`*^9, 3.901007005211918*^9, 
   3.90101010730479*^9, 3.9010102289836416`*^9, 3.901010322601471*^9, 
   3.9010112690939465`*^9, 3.901011329672882*^9, 3.9010113993272996`*^9, 
   3.901011537582142*^9, {3.9010154560973177`*^9, 3.9010154835984163`*^9}, 
   3.9010155863093085`*^9, {3.9010156519654665`*^9, 3.901015668747241*^9}, 
   3.9010157104488716`*^9, 3.9010157863051267`*^9, 3.901015912226722*^9, 
   3.9010159529484043`*^9, 3.9010842764811044`*^9, 3.901084319299122*^9, {
   3.9010843551789494`*^9, 3.9010843724636955`*^9}, 3.90108444511957*^9, 
   3.9010845479536886`*^9, 3.90108492113416*^9, 3.901085277499858*^9, 
   3.9010853379146943`*^9, 3.9010854546676264`*^9, 3.9010862299194527`*^9, 
   3.901086330922613*^9, 3.9010864282056775`*^9, {3.90108648094916*^9, 
   3.90108650946809*^9}, 3.9010865493721085`*^9, 3.901086675752584*^9, 
   3.9010868053648405`*^9, 3.9010963691088605`*^9, 3.90109670421414*^9, 
   3.9010974296517105`*^9, 3.9010979934817142`*^9, 3.9010983856433997`*^9, 
   3.901357420544484*^9, 3.9043786837730703`*^9, 3.904378782812194*^9, 
   3.9043873224438705`*^9, 3.904387364903265*^9, 3.904387436489746*^9, 
   3.90438802397694*^9, 3.904388240662696*^9, 3.9043942169945345`*^9, 
   3.904394280066238*^9, 3.904395483520837*^9, {3.904395585675202*^9, 
   3.9043956135275483`*^9}, 3.9043957124017744`*^9, 3.9043960551919546`*^9, 
   3.904396215451876*^9, 3.904407310136111*^9, {3.9044074665301948`*^9, 
   3.904407512196604*^9}, 3.9044075652206573`*^9, 3.9044089615161095`*^9, 
   3.9044093464118767`*^9, 3.9044096458182106`*^9, 3.904409863032113*^9, {
   3.9044100713289633`*^9, 3.904410100730077*^9}, 3.9044105483480015`*^9, {
   3.904410724841854*^9, 3.904410752205443*^9}, 3.9044110455666265`*^9, 
   3.904412299822242*^9, 3.904412397726976*^9, 3.9044125526878953`*^9, 
   3.9044127410518875`*^9, 3.904413043192416*^9, 3.9044503371683893`*^9, 
   3.904467260410948*^9, 3.9048810318017397`*^9, 3.904881097783537*^9, 
   3.9048814313618965`*^9, 3.9048815118473864`*^9, 3.9048816815428667`*^9, 
   3.904882012389304*^9, 3.9048833534358687`*^9, 3.9048840257096524`*^9, 
   3.904884425723903*^9, 3.904895008485421*^9, 3.9048951476361876`*^9, 
   3.90490069574242*^9, 3.9049009843399515`*^9, {3.9049011457098064`*^9, 
   3.9049011690723677`*^9}, {3.9049012014618025`*^9, 3.904901230936003*^9}, 
   3.9049012859826813`*^9, 3.9049014607966056`*^9, 3.904901936508458*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"8bcff437-3a90-4369-a629-3984e1f83e08"]
}, Closed]],

Cell["Then  we can define the canonical spin, as in (20): ", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.898755886325058*^9}, {
  3.898755923286899*^9, 3.8987559234701085`*^9}, {3.901098358275513*^9, 
  3.9010983617727346`*^9}, {3.9013336302075453`*^9, 
  3.9013336304933805`*^9}},ExpressionUUID->"c98bac99-bdac-4293-843c-\
167d8ba14d0c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SCanonicalDef", "[", "a_", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[ScriptCapitalA]Star", "[", 
         RowBox[{"-", "c"}], "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalD]", "[", "a", "]"}], "[", 
         RowBox[{"\[ScriptCapitalC]", "[", "c", "]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"\[ScriptCapitalC]Star", "[", 
         RowBox[{"-", "c"}], "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalD]", "[", "a", "]"}], "[", 
         RowBox[{"\[ScriptCapitalA]", "[", "c", "]"}], "]"}]}]}], "]"}], "/", 
     "4"}], "//", "rules"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SCanonical", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"SCanonicalDef", "[", 
        RowBox[{"{", 
         RowBox[{"a", ",", "mink"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "0", ",", "3"}], "}"}]}], "]"}], "//.", 
     "DerivativeRules"}], "//", "FullSimplify"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"SCanonical", "//", "ToPotentials"}]}], "Input",
 CellChangeTimes->{{3.883219983825365*^9, 3.883219984391296*^9}, {
   3.883220021988911*^9, 3.883220080795824*^9}, {3.8832201319601583`*^9, 
   3.8832203227438364`*^9}, {3.8832205602659492`*^9, 3.883220696621975*^9}, 
   3.8832207991915436`*^9, 3.8832219250749846`*^9, {3.883221982103713*^9, 
   3.8832220087597694`*^9}, {3.8832220420087194`*^9, 3.883222056064867*^9}, {
   3.883222208578581*^9, 3.883222270323615*^9}, {3.8832223325014744`*^9, 
   3.8832223849386253`*^9}, 3.8832240240003076`*^9, {3.8832241318086214`*^9, 
   3.8832241605729647`*^9}, {3.883224516158308*^9, 3.88322453165659*^9}, 
   3.8832864392171917`*^9, {3.883286471799967*^9, 3.88328647532882*^9}, {
   3.883286539045705*^9, 3.8832865867440176`*^9}, {3.8832875468713555`*^9, 
   3.8832875662899857`*^9}, {3.8832877210160737`*^9, 3.88328775384459*^9}, {
   3.883287851054656*^9, 3.883287857400797*^9}, {3.8832879112715416`*^9, 
   3.8832879758842926`*^9}, {3.883288655999363*^9, 3.8832886683918266`*^9}, {
   3.8832910874344516`*^9, 3.8832911714136906`*^9}, 3.8833383406712947`*^9, {
   3.8833383898728886`*^9, 3.8833384360743957`*^9}, {3.883338493907138*^9, 
   3.8833385302603083`*^9}, 3.883338560709081*^9, {3.883338636878744*^9, 
   3.8833386746357365`*^9}, {3.8833686813780613`*^9, 3.883368731452673*^9}, {
   3.8833687615000525`*^9, 3.883368775967303*^9}, {3.8833688127520933`*^9, 
   3.8833688246420374`*^9}, 3.8833691014477105`*^9, 3.883373826681058*^9, {
   3.883373859859686*^9, 3.88337389491625*^9}, {3.883378000708252*^9, 
   3.883378016946144*^9}, {3.883378062651586*^9, 3.883378095701463*^9}, 
   3.883481039445451*^9, {3.8973896418983965`*^9, 3.8973896737652283`*^9}, {
   3.8973898756646843`*^9, 3.897389877946991*^9}, {3.897389912108435*^9, 
   3.897389914857092*^9}, 3.897390015428745*^9, {3.897390145031045*^9, 
   3.897390235263973*^9}, {3.8973902733598366`*^9, 3.8973902813223295`*^9}, {
   3.897560919905289*^9, 3.8975609227806354`*^9}, {3.8987452284690704`*^9, 
   3.898745234924975*^9}, {3.898746047564728*^9, 3.8987460557441883`*^9}, {
   3.8987481397092285`*^9, 3.8987481397092285`*^9}, {3.898748173780384*^9, 
   3.8987481737842703`*^9}, 3.898751951845522*^9, 3.8987558961317825`*^9, 
   3.8987567618639107`*^9, {3.8987571855701885`*^9, 3.898757209207219*^9}, {
   3.8987577538738413`*^9, 3.898757764017962*^9}, {3.8987578394255843`*^9, 
   3.89875785764709*^9}, {3.898758929224682*^9, 3.898759000079732*^9}, 
   3.898759043385894*^9, 3.898760461109271*^9, {3.8987604981376176`*^9, 
   3.8987605063843145`*^9}, {3.898760582858611*^9, 3.8987605903214235`*^9}, {
   3.898760685319144*^9, 3.898760685585684*^9}, 3.8994597520432963`*^9, {
   3.899461769958644*^9, 3.8994617703692813`*^9}, {3.8994618942014446`*^9, 
   3.8994618946183376`*^9}, {3.9010059221482844`*^9, 
   3.9010059267789497`*^9}, {3.9010059693892503`*^9, 3.901005970255574*^9}, {
   3.90101137854638*^9, 3.9010113799203014`*^9}, {3.9010155633559284`*^9, 
   3.901015563605503*^9}, {3.9010159274147477`*^9, 3.9010159286636972`*^9}, {
   3.9010159959223957`*^9, 3.9010160096326847`*^9}, {3.90108429837638*^9, 
   3.9010842985289063`*^9}, 3.90438741189678*^9, {3.904394202352984*^9, 
   3.9043942037975364`*^9}, {3.9044073015328407`*^9, 3.9044073046734324`*^9}, 
   3.9044114644733963`*^9, {3.9044115032532244`*^9, 3.9044115077542973`*^9}, 
   3.9044124482768774`*^9, {3.904412590786276*^9, 3.9044125956621175`*^9}, {
   3.9048814622471223`*^9, 3.9048814647460194`*^9}, {3.90490139017365*^9, 
   3.904901419790098*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"f2672bb4-fcb3-4f2d-8dcf-37b9ec5c2041"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "Cx"}], " ", 
              TemplateBox[{"Ax"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
             RowBox[{"Cy", " ", 
              TemplateBox[{"Ay"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
             RowBox[{"Cz", " ", 
              TemplateBox[{"Az"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "+", 
             RowBox[{"Ax", " ", 
              TemplateBox[{"Cx"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "+", 
             RowBox[{"Ay", " ", 
              TemplateBox[{"Cy"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "+", 
             RowBox[{"Az", " ", 
              TemplateBox[{"Cz"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Psi]", " ", 
              TemplateBox[{"\[Phi]"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
             RowBox[{"\[Phi]", " ", 
              TemplateBox[{"\[Psi]"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], ")"}]}]}], 
         "]"}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[ScriptC]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptC],
           Editable->False], "3"], " ", 
         InterpretationBox[
          StyleBox["\[Omega]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Omega],
          Editable->False]}]]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["1",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                1, -$CellContext`mink}][$CellContext`\[Phi]],
               Editable->False], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["1",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                1, -$CellContext`mink}][$CellContext`\[Psi]],
               Editable->False], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              TemplateBox[{"Cx"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["2",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                2, -$CellContext`mink}][$CellContext`\[Phi]],
               Editable->False], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["2",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                2, -$CellContext`mink}][$CellContext`\[Psi]],
               Editable->False], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              TemplateBox[{"Cx"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["3",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                3, -$CellContext`mink}][$CellContext`\[Phi]],
               Editable->False], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[0.6, 0.4, 0.2]], 
                  StyleBox["3",
                   FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDmink[{
                3, -$CellContext`mink}][$CellContext`\[Psi]],
               Editable->False], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              TemplateBox[{"Cx"},
               "Conjugate",
               DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.904881578817358*^9, 3.9048817203354025`*^9, 
  3.9048820920617237`*^9, 3.9048833985592237`*^9, 3.904884066245945*^9, 
  3.9048844574408317`*^9, 3.9048950487768*^9, 3.9048951927231073`*^9, 
  3.9049007157289305`*^9, 3.904901490958403*^9, 3.90490196071373*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"3de1ec82-c865-41af-a668-b7728eb97b69"]
}, Closed]],

Cell["And finally the Poynting spin, as in (20): ", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987559257360725`*^9}, {
  3.901333633722024*^9, 
  3.90133363470127*^9}},ExpressionUUID->"8f2af1ce-c4d3-45b4-b1d7-\
32fdcea5a340"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SPoyntingDef", "[", "a_", "]"}], "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[ScriptCapitalC]Star", "[", 
         RowBox[{"-", "c"}], "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalD]", "[", "c", "]"}], "[", 
         RowBox[{"\[ScriptCapitalA]", "[", "a", "]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"\[ScriptCapitalA]Star", "[", 
         RowBox[{"-", "c"}], "]"}], " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalD]", "[", "c", "]"}], "[", 
         RowBox[{"\[ScriptCapitalC]", "[", "a", "]"}], "]"}]}]}], "]"}], "/", 
     "4"}], "//", "rules"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SPoynting", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"SPoyntingDef", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "mink"}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
    "FullSimplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"SPoynting", "//", 
  RowBox[{
  "ToPotentials", "//.", 
   "DerivativeRules"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.883219983825365*^9, 3.883219984391296*^9}, {
   3.883220021988911*^9, 3.883220080795824*^9}, {3.8832201319601583`*^9, 
   3.8832203227438364`*^9}, {3.8832205602659492`*^9, 3.883220696621975*^9}, 
   3.8832207991915436`*^9, 3.8832219250749846`*^9, {3.883221982103713*^9, 
   3.8832220087597694`*^9}, {3.8832220420087194`*^9, 3.883222056064867*^9}, {
   3.883222208578581*^9, 3.883222270323615*^9}, {3.8832223325014744`*^9, 
   3.8832223849386253`*^9}, 3.8832240240003076`*^9, {3.8832241318086214`*^9, 
   3.8832241605729647`*^9}, {3.883224516158308*^9, 3.88322453165659*^9}, 
   3.8832864392171917`*^9, {3.883286471799967*^9, 3.88328647532882*^9}, {
   3.883286539045705*^9, 3.8832865867440176`*^9}, {3.8832875468713555`*^9, 
   3.8832875662899857`*^9}, {3.8832877210160737`*^9, 3.88328775384459*^9}, {
   3.883287851054656*^9, 3.883287857400797*^9}, {3.8832879112715416`*^9, 
   3.8832879758842926`*^9}, {3.883288655999363*^9, 3.8832886683918266`*^9}, {
   3.8832910874344516`*^9, 3.8832911714136906`*^9}, 3.8833383406712947`*^9, {
   3.8833383898728886`*^9, 3.8833384360743957`*^9}, {3.883338493907138*^9, 
   3.8833385302603083`*^9}, 3.883338560709081*^9, {3.883338636878744*^9, 
   3.8833386746357365`*^9}, {3.8833686813780613`*^9, 3.883368731452673*^9}, {
   3.8833687615000525`*^9, 3.883368775967303*^9}, {3.8833688127520933`*^9, 
   3.8833688246420374`*^9}, 3.8833691014477105`*^9, 3.883373826681058*^9, {
   3.883373859859686*^9, 3.88337389491625*^9}, {3.883378000708252*^9, 
   3.883378016946144*^9}, {3.883378062651586*^9, 3.883378095701463*^9}, 
   3.883481039445451*^9, {3.8973896418983965`*^9, 3.8973896737652283`*^9}, {
   3.8973898756646843`*^9, 3.897389877946991*^9}, {3.897389912108435*^9, 
   3.897389914857092*^9}, 3.897390015428745*^9, {3.897390145031045*^9, 
   3.897390235263973*^9}, {3.8973902733598366`*^9, 3.8973902813223295`*^9}, {
   3.897560919905289*^9, 3.8975609227806354`*^9}, {3.8987452284690704`*^9, 
   3.898745234924975*^9}, {3.898746047564728*^9, 3.8987460557441883`*^9}, {
   3.8987481397092285`*^9, 3.8987481397092285`*^9}, {3.898748173780384*^9, 
   3.8987481737842703`*^9}, 3.898751951845522*^9, 3.8987558961317825`*^9, {
   3.8987567690598097`*^9, 3.898756773473791*^9}, {3.8987572144400277`*^9, 
   3.898757214704219*^9}, {3.8987572457703285`*^9, 3.8987572475360165`*^9}, {
   3.8987572925137177`*^9, 3.8987572932941227`*^9}, {3.8987606140417986`*^9, 
   3.898760641160301*^9}, {3.8994597549753695`*^9, 3.8994597630435762`*^9}, {
   3.899461773376403*^9, 3.899461773760175*^9}, {3.8994618909366007`*^9, 
   3.8994618911200943`*^9}, {3.901005913286684*^9, 3.9010059192340364`*^9}, {
   3.901005975769413*^9, 3.901005976318119*^9}, {3.9010159325515175`*^9, 
   3.90101593599329*^9}, {3.9010159807358027`*^9, 3.901016012913866*^9}, {
   3.9010842961214647`*^9, 3.901084296279127*^9}, 3.9043874153900204`*^9, {
   3.9043942058980503`*^9, 3.9043942075612893`*^9}, {3.904411467848428*^9, 
   3.904411471833868*^9}, 3.9044115141141376`*^9, {3.904881469697688*^9, 
   3.9048814719521885`*^9}, {3.904901395840938*^9, 3.904901407339982*^9}, {
   3.9049017652832193`*^9, 3.904901767050949*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"2f3ae7e7-89e5-462d-8b53-621c981b950d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          InterpretationBox[
           StyleBox["Im",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Im,
           Editable->False], "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[Omega]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Omega],
              Editable->False], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Psi]", " ", 
               TemplateBox[{"\[Phi]"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
              RowBox[{"\[Phi]", " ", 
               TemplateBox[{"\[Psi]"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], ")"}]}], 
           "+", 
           RowBox[{
            SuperscriptBox[
             InterpretationBox[
              StyleBox["\[ScriptC]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[ScriptC],
              Editable->False], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               TemplateBox[{"Cx"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]],
                 Editable->False], ")"}]}], "-", 
              RowBox[{
               TemplateBox[{"Ax"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]],
                 Editable->False], ")"}]}], "+", 
              RowBox[{
               TemplateBox[{"Cy"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]],
                 Editable->False], ")"}]}], "-", 
              RowBox[{
               TemplateBox[{"Ay"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]],
                 Editable->False], ")"}]}], "+", 
              RowBox[{
               TemplateBox[{"Cz"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Phi]],
                 Editable->False], ")"}]}], "-", 
              RowBox[{
               TemplateBox[{"Az"},
                "Conjugate",
                DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                    StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Psi]],
                 Editable->False], ")"}]}]}], ")"}]}]}], "]"}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[ScriptC]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[ScriptC],
            Editable->False], "3"], " ", 
          InterpretationBox[
           StyleBox["\[Omega]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Omega],
           Editable->False]}]]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"Cx", " ", 
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
            RowBox[{"Ax", " ", 
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"Cx"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "x"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`x]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  1, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"Cy", " ", 
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
            RowBox[{"Ay", " ", 
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"Cx"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "y"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`y]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  2, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"Cz", " ", 
             TemplateBox[{"\[Phi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], "-", 
            RowBox[{"Az", " ", 
             TemplateBox[{"\[Psi]"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[ScriptC]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[ScriptC],
             Editable->False], "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             TemplateBox[{"Cx"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ax"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["1",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{1, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cy"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Ay"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["2",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{2, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}], "+", 
            RowBox[{
             TemplateBox[{"Cz"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   InterpretationBox[
                    StyleBox["E",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    E,
                    Editable->False], "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[E, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Phi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Phi]]],
                Editable->False]}], ")"}]}], "-", 
            RowBox[{
             TemplateBox[{"Az"},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox["H", "z"]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 Subscript[$CellContext`H, $CellContext`z]],
                Editable->False], "+", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0.6, 0.4, 0.2]], 
                   StyleBox["3",
                    FontColor->RGBColor[0.6, 0.4, 0.2]]], "\[Psi]"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDmink[{3, -$CellContext`mink}][
                 $CellContext`PDmink[{
                  3, -$CellContext`mink}][$CellContext`\[Psi]]],
                Editable->False]}], ")"}]}]}], 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["\[Omega]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Omega],
             Editable->False], "2"]]}], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.9043956287396355`*^9, 3.904395727636175*^9, 3.904396071247959*^9, 
   3.9043962309013786`*^9, 3.9044073134756856`*^9, {3.904407469748947*^9, 
   3.9044074909321594`*^9}, 3.904407523288266*^9, 3.904407568420176*^9, 
   3.9044089897070646`*^9, 3.9044093748690047`*^9, 3.9044096739522247`*^9, 
   3.9044098913021383`*^9, 3.9044101291306906`*^9, 3.904410576717349*^9, 
   3.90441075677111*^9, 3.9044110702735395`*^9, 3.9044114893334036`*^9, 
   3.904411542344946*^9, 3.904412660646296*^9, 3.9044126985165606`*^9, 
   3.9044127966865*^9, 3.9044130986714926`*^9, 3.9044503670834494`*^9, 
   3.9044673576910253`*^9, 3.904881270012196*^9, 3.9048817607534094`*^9, 
   3.904882133425141*^9, 3.9048834397459106`*^9, 3.9048841002300453`*^9, 
   3.904884494146222*^9, 3.904895085760023*^9, 3.904895275168719*^9, 
   3.904900741899828*^9, 3.904901518890437*^9, 3.904901781856821*^9, 
   3.9049019841397715`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"108dabc8-a00a-41ad-af68-8ec4abbc0da0"]
}, Closed]],

Cell["\<\
This allows us to verify that the spin decomposition is valid in its \
tensorial form as well:\
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987559257360725`*^9}, {
  3.898755967396124*^9, 3.898755989867148*^9}, {3.8987606937808704`*^9, 
  3.8987606969293613`*^9}, {3.8987615488686056`*^9, 3.898761552482992*^9}, {
  3.9010983423685656`*^9, 
  3.901098343501211*^9}},ExpressionUUID->"2648d616-d011-4f74-9fef-\
b404054149cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Difference", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"SDef", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "mink"}], "}"}], "]"}], "-", 
             RowBox[{"SCanonicalDef", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "mink"}], "}"}], "]"}], "-", 
             RowBox[{"SPoyntingDef", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "mink"}], "}"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "0", ",", "3"}], "}"}]}], "]"}], "//.", 
          "MaxwellRules"}], ")"}], "//", "rules"}]}], ")"}], "//.", 
     "DerivativeRules"}], "//", "ToPotentials"}], "//", "ToPotentials"}], "//",
   "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.898756004425857*^9, 3.8987560950778356`*^9}, {
   3.89876075328162*^9, 3.8987607564796343`*^9}, {3.898760804569048*^9, 
   3.8987608224914975`*^9}, {3.898760858335601*^9, 3.89876087345857*^9}, {
   3.8987618416716695`*^9, 3.89876184247147*^9}, {3.8995372680630226`*^9, 
   3.899537269853523*^9}, {3.8995374349148097`*^9, 3.89953743793254*^9}, {
   3.8995439949863653`*^9, 3.89954399836884*^9}, {3.8995440298385816`*^9, 
   3.8995440320660763`*^9}, {3.8995441266306887`*^9, 3.899544148902298*^9}, {
   3.90100563464093*^9, 3.901005659094491*^9}, {3.901098347565488*^9, 
   3.9010983483818493`*^9}, {3.9043959491380105`*^9, 3.904395956578227*^9}, {
   3.904409390217677*^9, 3.904409415174206*^9}, {3.9044099073087516`*^9, 
   3.9044099160622015`*^9}, {3.9044113720869713`*^9, 
   3.9044113945673895`*^9}, {3.904881476575535*^9, 3.904881480519801*^9}, {
   3.904882195736575*^9, 3.9048822008721876`*^9}, 3.9048823050226955`*^9, {
   3.9048846097915277`*^9, 3.9048846124078636`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"84a695e6-7a4d-4c8a-a4e8-308777537f44"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"0"},
      {"0"},
      {"0"},
      {"0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.898756096121079*^9, 3.8987567924800434`*^9, 3.8987569408031826`*^9, 
   3.8987573094680696`*^9, 3.8987605479980063`*^9, 3.8987606986467557`*^9, 
   3.898760759893968*^9, {3.8987608251892157`*^9, 3.8987608756614647`*^9}, 
   3.898760906109724*^9, 3.8987613913551407`*^9, 3.898761426118697*^9, 
   3.8987618846117787`*^9, 3.898761915231494*^9, 3.899357808163715*^9, 
   3.8993664780457907`*^9, 3.899443142217566*^9, 3.899443240607132*^9, 
   3.899443287489848*^9, 3.899443404754538*^9, 3.899455106171479*^9, 
   3.8994580351634274`*^9, 3.8994581249570627`*^9, 3.8994581831214385`*^9, 
   3.899458436158228*^9, 3.8994586624754353`*^9, 3.8994590164650874`*^9, 
   3.8994591979315166`*^9, 3.8994592942421613`*^9, 3.8994594499952707`*^9, 
   3.8994595449481688`*^9, 3.899459850280631*^9, 3.8994599870644608`*^9, 
   3.899461856870587*^9, {3.8994619080765*^9, 3.899461940083625*^9}, 
   3.89946215979517*^9, 3.8994622050461054`*^9, 3.8995292135761595`*^9, 
   3.8995299858381824`*^9, {3.899530043378834*^9, 3.8995300880939417`*^9}, 
   3.8995301578429346`*^9, {3.8995372630183954`*^9, 3.8995372735758257`*^9}, 
   3.8995373730101795`*^9, 3.8995374413826237`*^9, {3.89954178419706*^9, 
   3.8995417900941086`*^9}, 3.8995418201030874`*^9, 3.899541869257804*^9, 
   3.8995419075935397`*^9, 3.8995431084398656`*^9, 3.8995434426744595`*^9, 
   3.899543524885996*^9, 3.8995435696891623`*^9, 3.899543841817478*^9, 
   3.899543924010372*^9, {3.899544024876051*^9, 3.8995440328981023`*^9}, 
   3.8995441527502832`*^9, 3.9010039917593346`*^9, 3.901005082167528*^9, 
   3.901005473663951*^9, {3.9010056366414547`*^9, 3.901005659644307*^9}, 
   3.901005844924222*^9, 3.9010059456189814`*^9, 3.901006061218175*^9, 
   3.901006126674402*^9, 3.9010063307873735`*^9, 3.9010064015786295`*^9, 
   3.901006828262229*^9, 3.901006895024091*^9, 3.9010070065276766`*^9, 
   3.901010109961403*^9, 3.901010231138195*^9, 3.9010103245936975`*^9, 
   3.90101127080537*^9, 3.9010113315689917`*^9, 3.9010114041999454`*^9, 
   3.901011537749364*^9, 3.901015456247542*^9, 3.9010154888690786`*^9, 
   3.9010155879750385`*^9, {3.9010156521399817`*^9, 3.901015670146246*^9}, 
   3.9010157120863285`*^9, 3.9010157878722925`*^9, 3.9010159142136655`*^9, 
   3.901015954433764*^9, 3.90108427828664*^9, 3.9010843222628374`*^9, {
   3.901084355378269*^9, 3.9010843753780003`*^9}, 3.901084448860961*^9, 
   3.901084551078512*^9, 3.9010849234708295`*^9, 3.9010852819257116`*^9, 
   3.901085342245927*^9, 3.901085456770174*^9, 3.9010862317109475`*^9, 
   3.901086332866329*^9, 3.9010864302137313`*^9, {3.9010864829539256`*^9, 
   3.901086512698027*^9}, 3.901086552458289*^9, 3.901086680307*^9, 
   3.9010868071675854`*^9, 3.90109637051577*^9, 3.9010967059800525`*^9, 
   3.9010974313132615`*^9, 3.9010979951049395`*^9, 3.901098387681642*^9, 
   3.9013574226163726`*^9, 3.904378685622624*^9, 3.9043787890580206`*^9, 
   3.9043873254185357`*^9, 3.9043873669914227`*^9, 3.9043874382417607`*^9, 
   3.9043880832230864`*^9, 3.9043882980239573`*^9, 3.904394260847686*^9, 
   3.9043943189018726`*^9, 3.904395516183857*^9, 3.9043956475916977`*^9, 
   3.9043957305032206`*^9, {3.904395953171193*^9, 3.904395957462821*^9}, 
   3.904396074178506*^9, 3.9043962337487335`*^9, 3.9044073164004765`*^9, {
   3.9044074725663214`*^9, 3.904407493434987*^9}, 3.904407526153453*^9, 
   3.9044075712121735`*^9, 3.904408995197072*^9, {3.904409380198663*^9, 
   3.904409391436412*^9}, 3.904409679307226*^9, {3.904409896663374*^9, 
   3.9044099177966003`*^9}, 3.9044101343041477`*^9, 3.9044105824212236`*^9, 
   3.9044107615260468`*^9, 3.904411074836795*^9, {3.9044113814689703`*^9, 
   3.9044113957235203`*^9}, 3.9044114368357725`*^9, 3.9044127047114825`*^9, 
   3.9044128023146505`*^9, 3.9044131042852015`*^9, 3.9044503701283913`*^9, 
   3.9044673741706295`*^9, 3.904881333875627*^9, 3.9048818077620745`*^9, 
   3.904882173826064*^9, 3.9048822121369696`*^9, 3.9048823139176936`*^9, 
   3.904883493866466*^9, 3.9048841446385775`*^9, 3.9048845351742115`*^9, 
   3.904884623381155*^9, 3.90489512551913*^9, 3.9048953138054247`*^9, 
   3.9049007534346304`*^9, 3.9049015232683506`*^9, 3.90490198806186*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"9d66d8d5-4078-4e47-b409-9cf80c2379d6"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Expressions in the Coulomb Gauge :", "Section",
 CellChangeTimes->{{3.897384915665708*^9, 3.897384937853177*^9}, {
  3.897385491728079*^9, 3.897385491945632*^9}, {3.9048813845264482`*^9, 
  3.9048814035115585`*^9}, {3.9049015476506824`*^9, 3.9049015523448043`*^9}, {
  3.9049028044663496`*^9, 
  3.90490280692199*^9}},ExpressionUUID->"b3bddd94-9619-4e57-b70c-\
61ecc53930da"],

Cell["\<\
We can verify that the total spin reproduces the right hand side of equation \
(17): \
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.901333516604388*^9, 3.9013335174286137`*^9}, {3.901333614455331*^9, 
  3.901333620616744*^9}, {3.9013336607477055`*^9, 3.9013336617257524`*^9}, {
  3.9049023514624004`*^9, 
  3.9049023702157693`*^9}},ExpressionUUID->"cc7aaa33-2f98-4470-afdd-\
47d0f0a9b420"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"S", "/.", "CoulombRules"}]], "Input",
 CellChangeTimes->{{3.8987578720546045`*^9, 3.8987579200734806`*^9}, {
   3.8987582327817135`*^9, 3.898758254365986*^9}, {3.8987587801797624`*^9, 
   3.8987587806295843`*^9}, {3.8987588257382545`*^9, 
   3.8987588633829107`*^9}, {3.898759100694332*^9, 3.898759119953915*^9}, {
   3.8987600842715883`*^9, 3.89876011217176*^9}, {3.8987603830520415`*^9, 
   3.898760388532712*^9}, {3.898761380477869*^9, 3.898761383942489*^9}, {
   3.8987614526894693`*^9, 3.8987614580849047`*^9}, {3.8994433032818627`*^9, 
   3.899443343524729*^9}, {3.899455067365533*^9, 3.899455069202401*^9}, {
   3.8994589670579224`*^9, 3.8994589684411087`*^9}, {3.901006098767419*^9, 
   3.901006102502838*^9}, {3.9010061850533037`*^9, 3.901006186302687*^9}, {
   3.9010069374003725`*^9, 3.9010069378419085`*^9}, {3.9010103521286154`*^9, 
   3.901010358309907*^9}, {3.901010648807113*^9, 3.9010106518206434`*^9}, {
   3.9010110711282454`*^9, 3.901011071236742*^9}, {3.90101556722339*^9, 
   3.901015569318462*^9}, {3.9010156367485304`*^9, 3.9010156460081973`*^9}, {
   3.901015690050364*^9, 3.901015690666871*^9}, {3.904387397365753*^9, 
   3.9043873982152295`*^9}, {3.904394197481616*^9, 3.9043941992115927`*^9}, {
   3.904880996105057*^9, 3.904880998552947*^9}, 3.904895129271656*^9, {
   3.9049009660300074`*^9, 3.9049009820808544`*^9}, {3.904901135861313*^9, 
   3.9049011425728445`*^9}, {3.9049012114449687`*^9, 
   3.9049012295654383`*^9}, {3.904901282161005*^9, 3.9049012851365213`*^9}, {
   3.9049015621621222`*^9, 3.904901585211223*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"da1927a7-e49a-4d9e-8829-38dc0ad85355"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             TemplateBox[{
               SubscriptBox["H", "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "x"]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "y"]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "z"]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "x"]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "y"]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "z"]}]}], 
          RowBox[{
           InterpretationBox[
            StyleBox["\[ScriptC]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[ScriptC],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False]}]], "]"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "y"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "z"]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "y"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "z"]}]}], 
          InterpretationBox[
           StyleBox["\[Omega]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Omega],
           Editable->False]], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "x"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "z"]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "x"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "z"]}]}], 
          InterpretationBox[
           StyleBox["\[Omega]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Omega],
           Editable->False]], "]"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "x"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Epsilon]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Epsilon],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox[
             InterpretationBox[
              StyleBox["E",
               ShowAutoStyles->False,
               AutoSpacing->False],
              E,
              Editable->False], "y"]}], "+", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "x"]}], "-", 
           RowBox[{
            InterpretationBox[
             StyleBox["\[Mu]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Mu],
             Editable->False], " ", 
            TemplateBox[{
              SubscriptBox["H", "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            SubscriptBox["H", "y"]}]}], 
          InterpretationBox[
           StyleBox["\[Omega]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Omega],
           Editable->False]], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8987559471412888`*^9, {3.8987567915803857`*^9, 3.89875681924735*^9}, 
   3.89875693995774*^9, 3.898757270574358*^9, 3.8987573087062387`*^9, {
   3.8987578741021857`*^9, 3.898757920939051*^9}, {3.8987582337306623`*^9, 
   3.898758255135337*^9}, {3.898758836664525*^9, 3.8987588645315905`*^9}, {
   3.898759116605114*^9, 3.8987591213021345`*^9}, {3.8987600976966887`*^9, 
   3.8987601128206916`*^9}, {3.8987603847006683`*^9, 3.8987603892668037`*^9}, 
   3.8987605472406797`*^9, 3.8987608506395273`*^9, 3.8987609039057617`*^9, 
   3.8987613858266287`*^9, 3.898761423472347*^9, 3.8987614676960297`*^9, 
   3.8987618826619062`*^9, 3.8987619132266693`*^9, 3.8993578057319975`*^9, 
   3.8993664753668585`*^9, 3.8994431369466114`*^9, 3.8994432351533003`*^9, 
   3.8994432819595346`*^9, {3.899443325717831*^9, 3.899443344140916*^9}, 
   3.8994433974100804`*^9, 3.899455094470052*^9, 3.8994580266143284`*^9, 
   3.8994581141474943`*^9, 3.8994581728875203`*^9, 3.899458425798299*^9, 
   3.899458654079392*^9, 3.8994589698070154`*^9, 3.8994590094369497`*^9, 
   3.899459190120084*^9, 3.8994592865341425`*^9, 3.8994594417323275`*^9, 
   3.8994595368956947`*^9, 3.8994598430988855`*^9, 3.8994599794391193`*^9, 
   3.8994618476278734`*^9, {3.899461907926605*^9, 3.899461935574706*^9}, 
   3.899462155114375*^9, 3.899462200428652*^9, 3.8995292087725415`*^9, 
   3.8995299810182953`*^9, {3.899530043273205*^9, 3.8995300830017166`*^9}, 
   3.899530153296367*^9, 3.899537253415038*^9, 3.899537357677431*^9, {
   3.8995417697767773`*^9, 3.899541809656618*^9}, 3.8995431004595194`*^9, 
   3.8995434355349064`*^9, 3.8995435178404713`*^9, 3.899543562472789*^9, 
   3.8995438366261177`*^9, 3.8995439185273743`*^9, 3.8995440202885036`*^9, 
   3.9010039869625125`*^9, 3.901005079303542*^9, 3.901005470799244*^9, 
   3.9010058421769376`*^9, 3.9010059409753666`*^9, 3.901006058705907*^9, 
   3.90100611992208*^9, 3.9010063283736835`*^9, 3.9010063957163196`*^9, 
   3.9010068240313053`*^9, 3.9010068931585307`*^9, 3.901007005211918*^9, 
   3.90101010730479*^9, 3.9010102289836416`*^9, 3.901010322601471*^9, 
   3.9010112690939465`*^9, 3.901011329672882*^9, 3.9010113993272996`*^9, 
   3.901011537582142*^9, {3.9010154560973177`*^9, 3.9010154835984163`*^9}, 
   3.9010155863093085`*^9, {3.9010156519654665`*^9, 3.901015668747241*^9}, 
   3.9010157104488716`*^9, 3.9010157863051267`*^9, 3.901015912226722*^9, 
   3.9010159529484043`*^9, 3.9010842764811044`*^9, 3.901084319299122*^9, {
   3.9010843551789494`*^9, 3.9010843724636955`*^9}, 3.90108444511957*^9, 
   3.9010845479536886`*^9, 3.90108492113416*^9, 3.901085277499858*^9, 
   3.9010853379146943`*^9, 3.9010854546676264`*^9, 3.9010862299194527`*^9, 
   3.901086330922613*^9, 3.9010864282056775`*^9, {3.90108648094916*^9, 
   3.90108650946809*^9}, 3.9010865493721085`*^9, 3.901086675752584*^9, 
   3.9010868053648405`*^9, 3.9010963691088605`*^9, 3.90109670421414*^9, 
   3.9010974296517105`*^9, 3.9010979934817142`*^9, 3.9010983856433997`*^9, 
   3.901357420544484*^9, 3.9043786837730703`*^9, 3.904378782812194*^9, 
   3.9043873224438705`*^9, 3.904387364903265*^9, 3.904387436489746*^9, 
   3.90438802397694*^9, 3.904388240662696*^9, 3.9043942169945345`*^9, 
   3.904394280066238*^9, 3.904395483520837*^9, {3.904395585675202*^9, 
   3.9043956135275483`*^9}, 3.9043957124017744`*^9, 3.9043960551919546`*^9, 
   3.904396215451876*^9, 3.904407310136111*^9, {3.9044074665301948`*^9, 
   3.904407512196604*^9}, 3.9044075652206573`*^9, 3.9044089615161095`*^9, 
   3.9044093464118767`*^9, 3.9044096458182106`*^9, 3.904409863032113*^9, {
   3.9044100713289633`*^9, 3.904410100730077*^9}, 3.9044105483480015`*^9, {
   3.904410724841854*^9, 3.904410752205443*^9}, 3.9044110455666265`*^9, 
   3.904412299822242*^9, 3.904412397726976*^9, 3.9044125526878953`*^9, 
   3.9044127410518875`*^9, 3.904413043192416*^9, 3.9044503371683893`*^9, 
   3.904467260410948*^9, 3.9048810318017397`*^9, 3.904881097783537*^9, 
   3.9048814313618965`*^9, 3.9048815118473864`*^9, 3.9048816815428667`*^9, 
   3.904882012389304*^9, 3.9048833534358687`*^9, 3.9048840257096524`*^9, 
   3.904884425723903*^9, 3.904895008485421*^9, 3.9048951476361876`*^9, 
   3.90490069574242*^9, 3.9049009843399515`*^9, {3.9049011457098064`*^9, 
   3.9049011690723677`*^9}, {3.9049012014618025`*^9, 3.904901230936003*^9}, 
   3.9049012859826813`*^9, 3.9049014607966056`*^9, {3.9049015766269355`*^9, 
   3.9049015860125127`*^9}, 3.9049019880968957`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"4567bf78-6e96-42f6-a080-3dc25b89a09f"]
}, Open  ]],

Cell["\<\
We can check that the total spin is the combination of the helicity in the \
time component and spatial spin, as shown in equation (18): \
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987558628361826`*^9}, {
  3.9010982293751864`*^9, 3.9010982453772078`*^9}, {3.9010982833655076`*^9, 
  3.9010983144197273`*^9}, {3.9013336640323553`*^9, 3.901333669125276*^9}, {
  3.904902408632718*^9, 
  3.9049024243656645`*^9}},ExpressionUUID->"f179a38e-0b54-41d8-92f1-\
7d2d62782545"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalE]", "=", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["E", "x"], ",", 
     SubscriptBox["E", "y"], ",", 
     SubscriptBox["E", "z"]}], "}"}]}], ";", 
  RowBox[{"\[ScriptCapitalH]", "=", 
   RowBox[{"{", " ", 
    RowBox[{
     SubscriptBox["H", "x"], ",", 
     SubscriptBox["H", "y"], ",", 
     SubscriptBox["H", "z"]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tS", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Im", "[", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\[ScriptCapitalE]", "\[Conjugate]"}], ".", 
              "\[ScriptCapitalH]"}], "-", 
             RowBox[{
              RowBox[{"\[ScriptCapitalH]", "\[Conjugate]"}], ".", 
              "\[ScriptCapitalE]"}]}], ")"}]}], "/", "\[ScriptC]"}], "}"}], 
        ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Epsilon]", "*", 
           RowBox[{
            RowBox[{"\[ScriptCapitalE]", "\[Conjugate]"}], "\[Cross]", 
            "\[ScriptCapitalE]"}]}], "+", 
          RowBox[{"\[Mu]", "*", 
           RowBox[{
            RowBox[{"\[ScriptCapitalH]", "\[Conjugate]"}], "\[Cross]", 
            "\[ScriptCapitalH]"}]}]}], ")"}]}], "]"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"4", "\[Omega]"}], " ", ")"}]}], "//", "rules"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"S", "-", "tS"}], "//", "rules"}], ")"}], "//.", 
    "DerivativeRules"}], "/.", "CoulombRules"}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.901096516868908*^9, 3.9010965423917294`*^9}, {
   3.9010976617143235`*^9, 3.9010976939462795`*^9}, 3.901098213102644*^9, 
   3.901098330643103*^9, {3.9044117718318863`*^9, 3.904411774817004*^9}, {
   3.9044118483312407`*^9, 3.9044118636905317`*^9}, {3.904412103309352*^9, 
   3.904412107352865*^9}, {3.9044122732296343`*^9, 3.904412275997935*^9}, 
   3.9044124218959665`*^9, {3.9044125824048843`*^9, 3.9044125851554623`*^9}, {
   3.904881457108102*^9, 3.90488145979346*^9}, {3.9049010016074967`*^9, 
   3.904901003358895*^9}, {3.9049015947860403`*^9, 3.904901608980641*^9}, {
   3.904901895146909*^9, 3.9049018964813213`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"38546568-761c-4495-b97a-c98baa33faea"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"0"},
      {"0"},
      {"0"},
      {"0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.9010983863322554`*^9, 3.901357421393736*^9, 3.90437868441064*^9, 
   3.904378785131009*^9, 3.9043873239705534`*^9, 3.9043873656344905`*^9, 
   3.904387436945738*^9, 3.904388026448341*^9, 3.9043882430895805`*^9, 
   3.9043942206279254`*^9, 3.904394282804832*^9, 3.9043954859487104`*^9, {
   3.9043955925645933`*^9, 3.904395615912493*^9}, 3.9043957147972364`*^9, 
   3.9043960576512947`*^9, 3.904396217874016*^9, 3.904407313038312*^9, {
   3.904407469405135*^9, 3.9044074906509194`*^9}, 3.904407522812685*^9, 
   3.904407568080673*^9, 3.9044089658998065`*^9, 3.9044093509605393`*^9, 
   3.9044096501637993`*^9, 3.9044098673114104`*^9, {3.904410075768405*^9, 
   3.904410105185264*^9}, 3.904410552584539*^9, 3.9044107565367365`*^9, 
   3.9044110493458476`*^9, 3.904411809739938*^9, {3.9044118403796797`*^9, 
   3.904411868223357*^9}, 3.9044121104483767`*^9, 3.904412305385666*^9, 
   3.9044124030837336`*^9, 3.9044124670993176`*^9, 3.9044125571580486`*^9, 
   3.90441267253769*^9, 3.90441274627078*^9, 3.9044130487099667`*^9, 
   3.904450340066088*^9, 3.9044672668761215`*^9, 3.904881040650106*^9, 
   3.904881117591454*^9, 3.9048814393408055`*^9, 3.9048815185589237`*^9, 
   3.9048816897662706`*^9, 3.904882029987088*^9, 3.9048833653703804`*^9, 
   3.904884034481391*^9, 3.9048844326872454`*^9, 3.90489501555567*^9, 
   3.9048951523877687`*^9, 3.9049006984501257`*^9, 3.9049010075096827`*^9, 
   3.904901464948857*^9, {3.904901603673334*^9, 3.904901610356305*^9}, 
   3.904901992221695*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"7995743a-cb31-42d1-8ff9-f7bb6f30831f"]
}, Open  ]],

Cell["\<\
Then  we can verify the right hand side of the Canonical spin, in equation \
(20): \
\>", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.898755886325058*^9}, {
  3.898755923286899*^9, 3.8987559234701085`*^9}, {3.901098358275513*^9, 
  3.9010983617727346`*^9}, {3.9013336302075453`*^9, 3.9013336304933805`*^9}, {
  3.904902439098172*^9, 
  3.904902471633895*^9}},ExpressionUUID->"d0eadaa4-c981-4c6a-94ea-\
bc0b05e33a28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SCanonical", "/.", "CoulombRules"}]], "Input",
 CellChangeTimes->{{3.883219983825365*^9, 3.883219984391296*^9}, {
   3.883220021988911*^9, 3.883220080795824*^9}, {3.8832201319601583`*^9, 
   3.8832203227438364`*^9}, {3.8832205602659492`*^9, 3.883220696621975*^9}, 
   3.8832207991915436`*^9, 3.8832219250749846`*^9, {3.883221982103713*^9, 
   3.8832220087597694`*^9}, {3.8832220420087194`*^9, 3.883222056064867*^9}, {
   3.883222208578581*^9, 3.883222270323615*^9}, {3.8832223325014744`*^9, 
   3.8832223849386253`*^9}, 3.8832240240003076`*^9, {3.8832241318086214`*^9, 
   3.8832241605729647`*^9}, {3.883224516158308*^9, 3.88322453165659*^9}, 
   3.8832864392171917`*^9, {3.883286471799967*^9, 3.88328647532882*^9}, {
   3.883286539045705*^9, 3.8832865867440176`*^9}, {3.8832875468713555`*^9, 
   3.8832875662899857`*^9}, {3.8832877210160737`*^9, 3.88328775384459*^9}, {
   3.883287851054656*^9, 3.883287857400797*^9}, {3.8832879112715416`*^9, 
   3.8832879758842926`*^9}, {3.883288655999363*^9, 3.8832886683918266`*^9}, {
   3.8832910874344516`*^9, 3.8832911714136906`*^9}, 3.8833383406712947`*^9, {
   3.8833383898728886`*^9, 3.8833384360743957`*^9}, {3.883338493907138*^9, 
   3.8833385302603083`*^9}, 3.883338560709081*^9, {3.883338636878744*^9, 
   3.8833386746357365`*^9}, {3.8833686813780613`*^9, 3.883368731452673*^9}, {
   3.8833687615000525`*^9, 3.883368775967303*^9}, {3.8833688127520933`*^9, 
   3.8833688246420374`*^9}, 3.8833691014477105`*^9, 3.883373826681058*^9, {
   3.883373859859686*^9, 3.88337389491625*^9}, {3.883378000708252*^9, 
   3.883378016946144*^9}, {3.883378062651586*^9, 3.883378095701463*^9}, 
   3.883481039445451*^9, {3.8973896418983965`*^9, 3.8973896737652283`*^9}, {
   3.8973898756646843`*^9, 3.897389877946991*^9}, {3.897389912108435*^9, 
   3.897389914857092*^9}, 3.897390015428745*^9, {3.897390145031045*^9, 
   3.897390235263973*^9}, {3.8973902733598366`*^9, 3.8973902813223295`*^9}, {
   3.897560919905289*^9, 3.8975609227806354`*^9}, {3.8987452284690704`*^9, 
   3.898745234924975*^9}, {3.898746047564728*^9, 3.8987460557441883`*^9}, {
   3.8987481397092285`*^9, 3.8987481397092285`*^9}, {3.898748173780384*^9, 
   3.8987481737842703`*^9}, 3.898751951845522*^9, 3.8987558961317825`*^9, 
   3.8987567618639107`*^9, {3.8987571855701885`*^9, 3.898757209207219*^9}, {
   3.8987577538738413`*^9, 3.898757764017962*^9}, {3.8987578394255843`*^9, 
   3.89875785764709*^9}, {3.898758929224682*^9, 3.898759000079732*^9}, 
   3.898759043385894*^9, 3.898760461109271*^9, {3.8987604981376176`*^9, 
   3.8987605063843145`*^9}, {3.898760582858611*^9, 3.8987605903214235`*^9}, {
   3.898760685319144*^9, 3.898760685585684*^9}, 3.8994597520432963`*^9, {
   3.899461769958644*^9, 3.8994617703692813`*^9}, {3.8994618942014446`*^9, 
   3.8994618946183376`*^9}, {3.9010059221482844`*^9, 
   3.9010059267789497`*^9}, {3.9010059693892503`*^9, 3.901005970255574*^9}, {
   3.90101137854638*^9, 3.9010113799203014`*^9}, {3.9010155633559284`*^9, 
   3.901015563605503*^9}, {3.9010159274147477`*^9, 3.9010159286636972`*^9}, {
   3.9010159959223957`*^9, 3.9010160096326847`*^9}, {3.90108429837638*^9, 
   3.9010842985289063`*^9}, 3.90438741189678*^9, {3.904394202352984*^9, 
   3.9043942037975364`*^9}, {3.9044073015328407`*^9, 3.9044073046734324`*^9}, 
   3.9044114644733963`*^9, {3.9044115032532244`*^9, 3.9044115077542973`*^9}, 
   3.9044124482768774`*^9, {3.904412590786276*^9, 3.9044125956621175`*^9}, {
   3.9048814622471223`*^9, 3.9048814647460194`*^9}, {3.90490139017365*^9, 
   3.904901419790098*^9}, {3.904901717417186*^9, 3.9049017223256464`*^9}, {
   3.904901792979928*^9, 3.904901793881386*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"d1f03578-6628-4ee4-902a-1a1b32d0a064"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox["Im",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Im,
          Editable->False], "[", 
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[ScriptC]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[ScriptC],
            Editable->False], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             TemplateBox[{
               SubscriptBox["H", "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "x"]}], "+", 
            RowBox[{
             TemplateBox[{
               SubscriptBox["H", "y"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "y"]}], "+", 
            RowBox[{
             TemplateBox[{
               SubscriptBox["H", "z"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox[
              InterpretationBox[
               StyleBox["E",
                ShowAutoStyles->False,
                AutoSpacing->False],
               E,
               Editable->False], "z"]}], "-", 
            RowBox[{
             TemplateBox[{
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox["H", "x"]}], "-", 
            RowBox[{
             TemplateBox[{
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "y"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox["H", "y"]}], "-", 
            RowBox[{
             TemplateBox[{
               SubscriptBox[
                InterpretationBox[
                 StyleBox[
                  RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], E, Editable -> False], "z"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
             SubscriptBox["H", "z"]}]}], ")"}]}], "]"}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["\[ScriptC]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[ScriptC],
           Editable->False], "3"], " ", 
         InterpretationBox[
          StyleBox["\[Omega]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Omega],
          Editable->False]}]]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             TemplateBox[{
               SubscriptBox["H", "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             TemplateBox[{
               SubscriptBox["H", "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             TemplateBox[{
               SubscriptBox["H", "x"]},
              "Conjugate",
              DisplayFunction->(SuperscriptBox[#, "*"]& )]}], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.904881578817358*^9, 3.9048817203354025`*^9, 3.9048820920617237`*^9, 
   3.9048833985592237`*^9, 3.904884066245945*^9, 3.9048844574408317`*^9, 
   3.9048950487768*^9, 3.9048951927231073`*^9, 3.9049007157289305`*^9, 
   3.904901490958403*^9, {3.904901723545554*^9, 3.9049017519860916`*^9}, {
   3.9049017891226215`*^9, 3.904901794682459*^9}, 3.904901992256323*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"cf72f101-66b3-49e1-b9a7-192b155bd508"]
}, Open  ]],

Cell["And finally the Poynting spin, as in (20): ", "Text",
 CellChangeTimes->{{3.897560159809556*^9, 3.8975602051850553`*^9}, {
  3.8987503275800405`*^9, 3.8987503392234793`*^9}, {3.898750429046973*^9, 
  3.898750435759457*^9}, {3.898750466056765*^9, 3.8987505332828627`*^9}, {
  3.8987506151384473`*^9, 3.8987506867485056`*^9}, {3.8987508782175364`*^9, 
  3.8987508839233294`*^9}, {3.898750954280076*^9, 3.898750954900979*^9}, {
  3.898751866770897*^9, 3.8987518901551294`*^9}, {3.8987519631059237`*^9, 
  3.8987519731501455`*^9}, {3.898755839198457*^9, 3.8987559257360725`*^9}, {
  3.901333633722024*^9, 
  3.90133363470127*^9}},ExpressionUUID->"52fe1ceb-c317-4994-93ce-\
dd44dc5509a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SPoynting", "//.", "CoulombRules"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.883219983825365*^9, 3.883219984391296*^9}, {
   3.883220021988911*^9, 3.883220080795824*^9}, {3.8832201319601583`*^9, 
   3.8832203227438364`*^9}, {3.8832205602659492`*^9, 3.883220696621975*^9}, 
   3.8832207991915436`*^9, 3.8832219250749846`*^9, {3.883221982103713*^9, 
   3.8832220087597694`*^9}, {3.8832220420087194`*^9, 3.883222056064867*^9}, {
   3.883222208578581*^9, 3.883222270323615*^9}, {3.8832223325014744`*^9, 
   3.8832223849386253`*^9}, 3.8832240240003076`*^9, {3.8832241318086214`*^9, 
   3.8832241605729647`*^9}, {3.883224516158308*^9, 3.88322453165659*^9}, 
   3.8832864392171917`*^9, {3.883286471799967*^9, 3.88328647532882*^9}, {
   3.883286539045705*^9, 3.8832865867440176`*^9}, {3.8832875468713555`*^9, 
   3.8832875662899857`*^9}, {3.8832877210160737`*^9, 3.88328775384459*^9}, {
   3.883287851054656*^9, 3.883287857400797*^9}, {3.8832879112715416`*^9, 
   3.8832879758842926`*^9}, {3.883288655999363*^9, 3.8832886683918266`*^9}, {
   3.8832910874344516`*^9, 3.8832911714136906`*^9}, 3.8833383406712947`*^9, {
   3.8833383898728886`*^9, 3.8833384360743957`*^9}, {3.883338493907138*^9, 
   3.8833385302603083`*^9}, 3.883338560709081*^9, {3.883338636878744*^9, 
   3.8833386746357365`*^9}, {3.8833686813780613`*^9, 3.883368731452673*^9}, {
   3.8833687615000525`*^9, 3.883368775967303*^9}, {3.8833688127520933`*^9, 
   3.8833688246420374`*^9}, 3.8833691014477105`*^9, 3.883373826681058*^9, {
   3.883373859859686*^9, 3.88337389491625*^9}, {3.883378000708252*^9, 
   3.883378016946144*^9}, {3.883378062651586*^9, 3.883378095701463*^9}, 
   3.883481039445451*^9, {3.8973896418983965`*^9, 3.8973896737652283`*^9}, {
   3.8973898756646843`*^9, 3.897389877946991*^9}, {3.897389912108435*^9, 
   3.897389914857092*^9}, 3.897390015428745*^9, {3.897390145031045*^9, 
   3.897390235263973*^9}, {3.8973902733598366`*^9, 3.8973902813223295`*^9}, {
   3.897560919905289*^9, 3.8975609227806354`*^9}, {3.8987452284690704`*^9, 
   3.898745234924975*^9}, {3.898746047564728*^9, 3.8987460557441883`*^9}, {
   3.8987481397092285`*^9, 3.8987481397092285`*^9}, {3.898748173780384*^9, 
   3.8987481737842703`*^9}, 3.898751951845522*^9, 3.8987558961317825`*^9, {
   3.8987567690598097`*^9, 3.898756773473791*^9}, {3.8987572144400277`*^9, 
   3.898757214704219*^9}, {3.8987572457703285`*^9, 3.8987572475360165`*^9}, {
   3.8987572925137177`*^9, 3.8987572932941227`*^9}, {3.8987606140417986`*^9, 
   3.898760641160301*^9}, {3.8994597549753695`*^9, 3.8994597630435762`*^9}, {
   3.899461773376403*^9, 3.899461773760175*^9}, {3.8994618909366007`*^9, 
   3.8994618911200943`*^9}, {3.901005913286684*^9, 3.9010059192340364`*^9}, {
   3.901005975769413*^9, 3.901005976318119*^9}, {3.9010159325515175`*^9, 
   3.90101593599329*^9}, {3.9010159807358027`*^9, 3.901016012913866*^9}, {
   3.9010842961214647`*^9, 3.901084296279127*^9}, 3.9043874153900204`*^9, {
   3.9043942058980503`*^9, 3.9043942075612893`*^9}, {3.904411467848428*^9, 
   3.904411471833868*^9}, 3.9044115141141376`*^9, {3.904881469697688*^9, 
   3.9048814719521885`*^9}, {3.904901395840938*^9, 3.904901407339982*^9}, {
   3.904901807746888*^9, 3.9049018133250017`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"1c427579-10d6-4160-ab10-493e8fd32d4d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"0"},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`x]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "x"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`x]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`y]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "y"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`y]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Re",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Re,
          Editable->False], "[", 
         FractionBox[
          RowBox[{
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "x"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["1",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{1, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "y"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["2",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{2, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}], "+", 
           RowBox[{
            TemplateBox[{
              SubscriptBox["H", "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox[
                 InterpretationBox[
                  StyleBox["E",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  E,
                  Editable->False], "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[E, $CellContext`z]],
              Editable->False], ")"}]}], "-", 
           RowBox[{
            TemplateBox[{
              SubscriptBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{"E"}], AutoSpacing -> False, ShowAutoStyles -> 
                 False], E, Editable -> False], "z"]},
             "Conjugate",
             DisplayFunction->(SuperscriptBox[#, "*"]& )], " ", 
            RowBox[{"(", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0.6, 0.4, 0.2]], 
                 StyleBox["3",
                  FontColor->RGBColor[0.6, 0.4, 0.2]]], 
                SubscriptBox["H", "z"]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDmink[{3, -$CellContext`mink}][
               Subscript[$CellContext`H, $CellContext`z]],
              Editable->False], ")"}]}]}], 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["\[Omega]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Omega],
            Editable->False], "2"]], "]"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.9043956287396355`*^9, 3.904395727636175*^9, 3.904396071247959*^9, 
   3.9043962309013786`*^9, 3.9044073134756856`*^9, {3.904407469748947*^9, 
   3.9044074909321594`*^9}, 3.904407523288266*^9, 3.904407568420176*^9, 
   3.9044089897070646`*^9, 3.9044093748690047`*^9, 3.9044096739522247`*^9, 
   3.9044098913021383`*^9, 3.9044101291306906`*^9, 3.904410576717349*^9, 
   3.90441075677111*^9, 3.9044110702735395`*^9, 3.9044114893334036`*^9, 
   3.904411542344946*^9, 3.904412660646296*^9, 3.9044126985165606`*^9, 
   3.9044127966865*^9, 3.9044130986714926`*^9, 3.9044503670834494`*^9, 
   3.9044673576910253`*^9, 3.904881270012196*^9, 3.9048817607534094`*^9, 
   3.904882133425141*^9, 3.9048834397459106`*^9, 3.9048841002300453`*^9, 
   3.904884494146222*^9, 3.904895085760023*^9, 3.904895275168719*^9, 
   3.904900741899828*^9, 3.904901518890437*^9, 3.904901814361718*^9, 
   3.904901992288249*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"7f146349-c98a-442e-a465-64a941929c45"]
}, Open  ]]
}, Closed]]
},
WindowSize->{949, 467},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->{},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.1 Inherited,
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (August 22, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"96e565e1-e33e-4f6e-b81e-ca37c3a8981c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 533, 8, 74, "Section",ExpressionUUID->"a672a5ef-cbf6-4010-a1da-ada0d7432271"],
Cell[1116, 32, 546, 10, 89, "Text",ExpressionUUID->"807b6b09-e9fd-4b54-99b5-8255e90414c5"],
Cell[CellGroupData[{
Cell[1687, 46, 677, 12, 52, "Input",ExpressionUUID->"fa9e4264-d7d5-413a-a45c-5c628c662b05"],
Cell[CellGroupData[{
Cell[2389, 62, 1013, 16, 24, "Print",ExpressionUUID->"33effb76-efbe-458b-a555-b2d3f2f8d6d0"],
Cell[3405, 80, 1282, 23, 24, "Print",ExpressionUUID->"f75a9db7-77b7-4aa2-bc6b-c61daa950416"],
Cell[4690, 105, 1032, 16, 24, "Print",ExpressionUUID->"1b469f80-d307-4796-acae-f11a01e72642"],
Cell[5725, 123, 993, 15, 24, "Print",ExpressionUUID->"0cb889c9-2b0b-4984-8b44-d78eb52a9f34"],
Cell[6721, 140, 972, 15, 24, "Print",ExpressionUUID->"c70c0009-0312-40fe-a662-fee487125826"],
Cell[7696, 157, 1011, 16, 24, "Print",ExpressionUUID->"4347f73a-37c2-44e1-a010-3b902967231b"],
Cell[8710, 175, 1289, 24, 24, "Print",ExpressionUUID->"d3fa6d0f-0afc-4eb0-b882-dbd5a49675b6"],
Cell[10002, 201, 1032, 16, 24, "Print",ExpressionUUID->"e9129efe-d196-489b-a3f5-f748659d98d0"],
Cell[11037, 219, 1011, 16, 24, "Print",ExpressionUUID->"a42bcedc-8551-41f9-a960-e7dc1331e11d"],
Cell[12051, 237, 1280, 23, 24, "Print",ExpressionUUID->"6bdece70-fb06-431a-a96e-a667ef95fe18"],
Cell[13334, 262, 1050, 16, 24, "Print",ExpressionUUID->"a7be9471-786c-49b8-a16a-80fe20e722f6"],
Cell[14387, 280, 1011, 16, 24, "Print",ExpressionUUID->"6ea03358-101d-438f-898b-b47615ff1587"],
Cell[15401, 298, 1166, 18, 44, "Print",ExpressionUUID->"53811780-f333-493c-b809-6649d9685163"],
Cell[16570, 318, 1011, 16, 24, "Print",ExpressionUUID->"586b57b5-1680-4ee6-93b1-372d5912be1a"]
}, Closed]]
}, Closed]],
Cell[17608, 338, 241, 4, 38, "Text",ExpressionUUID->"84ea7cbb-630c-4b74-a96c-8e08387758b5"],
Cell[17852, 344, 4497, 122, 327, "Input",ExpressionUUID->"44cc27b8-6642-4309-af98-29bc426d3c10"],
Cell[22352, 468, 666, 11, 37, "Text",ExpressionUUID->"bc338755-aa97-469c-a1fd-ee5e6441c7c7"],
Cell[CellGroupData[{
Cell[23043, 483, 500, 10, 31, "Input",ExpressionUUID->"2fa7812e-eff5-4daa-a400-9651a51417f6"],
Cell[CellGroupData[{
Cell[23568, 497, 1133, 21, 24, "Print",ExpressionUUID->"43996b93-7621-48de-a597-14ebc0049e2f"],
Cell[24704, 520, 1143, 21, 24, "Print",ExpressionUUID->"f0d4f77c-cd02-471a-9526-0e8cf0ea59f2"]
}, Closed]]
}, Closed]],
Cell[25874, 545, 740, 11, 61, "Text",ExpressionUUID->"01419398-0994-40cf-8cac-455504ee98ab"],
Cell[CellGroupData[{
Cell[26639, 560, 2956, 63, 136, "Input",ExpressionUUID->"2e7f61d0-577b-4698-8f08-63c4ce2f6a4d"],
Cell[CellGroupData[{
Cell[29620, 627, 1117, 21, 24, "Print",ExpressionUUID->"6b347777-b8e7-4145-83de-ec5af0b86c65"],
Cell[30740, 650, 1165, 22, 24, "Print",ExpressionUUID->"733a20c5-cb46-47b6-ab99-3d0d618684a9"],
Cell[31908, 674, 1165, 22, 24, "Print",ExpressionUUID->"9779a508-7ed9-43cc-a6f0-3024552d1a38"],
Cell[33076, 698, 1165, 22, 24, "Print",ExpressionUUID->"74e8a18e-732a-4fd6-ba64-c3aecd2e88a2"],
Cell[34244, 722, 1165, 22, 24, "Print",ExpressionUUID->"187cfaeb-0a2a-479d-a61d-4014e4343c55"],
Cell[35412, 746, 1127, 21, 24, "Print",ExpressionUUID->"4ee07c6e-8189-468f-bfba-3f3ce24bf264"],
Cell[36542, 769, 1149, 22, 24, "Print",ExpressionUUID->"8a3b62e6-792e-42c4-af6b-675eaad6e45e"],
Cell[37694, 793, 1300, 26, 26, "Print",ExpressionUUID->"aae60b95-3160-47b4-b930-fdfecd608d6b"],
Cell[38997, 821, 1309, 26, 26, "Print",ExpressionUUID->"726cb328-3dfd-4db1-94d5-dfb3cbcaee2b"],
Cell[40309, 849, 1159, 22, 24, "Print",ExpressionUUID->"43d63fb2-c0cf-441e-943b-9dd312e81257"],
Cell[41471, 873, 1217, 23, 24, "Print",ExpressionUUID->"d3d85438-07d4-4229-bdd7-23c9ceab8114"],
Cell[42691, 898, 1341, 27, 24, "Print",ExpressionUUID->"8d1b570c-5c5a-44a0-9b5d-52d27dd176ae"],
Cell[44035, 927, 1361, 28, 24, "Print",ExpressionUUID->"827140db-5018-418e-9685-77261adb2c9c"],
Cell[45399, 957, 1389, 28, 24, "Print",ExpressionUUID->"7ebedd7a-302c-4cc9-a99b-0db47c18a74c"],
Cell[46791, 987, 1305, 26, 24, "Print",ExpressionUUID->"f35a23fb-5f54-4bd9-8f93-fb0b3fcc77aa"],
Cell[48099, 1015, 1315, 25, 24, "Print",ExpressionUUID->"7748f308-1410-4307-aa3e-f4cbc7a5a88b"],
Cell[49417, 1042, 1407, 29, 24, "Print",ExpressionUUID->"38020b82-5674-4d2a-aeee-6ed6699d56ed"]
}, Closed]]
}, Closed]],
Cell[50851, 1075, 311, 6, 38, "Text",ExpressionUUID->"caaab129-8583-4a28-a9bf-068b2b76d728"],
Cell[CellGroupData[{
Cell[51187, 1085, 280, 5, 31, "Input",ExpressionUUID->"43cef84a-6ed1-4673-9bbb-8e61d861b680"],
Cell[51470, 1092, 9417, 203, 79, "Output",ExpressionUUID->"870b8d21-b9f3-40ff-b596-7c0b028d8094"]
}, Closed]],
Cell[60902, 1298, 613, 15, 39, "Text",ExpressionUUID->"deca2ab1-083d-46aa-81d6-8232a2f89fe4"],
Cell[CellGroupData[{
Cell[61540, 1317, 406, 9, 31, "Input",ExpressionUUID->"0f8cba06-d2db-4ad6-bf56-090fff8e4ca2"],
Cell[61949, 1328, 4666, 64, 35, "Output",ExpressionUUID->"8c775b65-f7e3-4fba-87b3-258899b521b2"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[66664, 1398, 286, 4, 58, "Section",ExpressionUUID->"197e7dfd-5eb3-4591-9bd4-1b50bd9bd2e2"],
Cell[CellGroupData[{
Cell[66975, 1406, 1300, 39, 136, "Input",ExpressionUUID->"35d4b553-8b4d-4d41-9404-b06c8c98dea2"],
Cell[CellGroupData[{
Cell[68300, 1449, 805, 17, 24, "Print",ExpressionUUID->"353459d7-ea76-49a1-a77d-e41aabfb493c"],
Cell[69108, 1468, 815, 17, 24, "Print",ExpressionUUID->"f7de4024-04da-43b3-8544-11c45e351d86"],
Cell[69926, 1487, 809, 17, 24, "Print",ExpressionUUID->"e5f5e9a3-a73d-4287-b077-edabbb7aa5ce"],
Cell[70738, 1506, 813, 17, 24, "Print",ExpressionUUID->"4625458c-f7fc-4e20-9bf7-f2c980a677c9"],
Cell[71554, 1525, 790, 16, 24, "Print",ExpressionUUID->"2aadebe7-d319-4b82-b212-91ae8606ab5d"],
Cell[72347, 1543, 790, 16, 24, "Print",ExpressionUUID->"0f446a2c-28ec-49c0-8034-3485cd2ad271"]
}, Closed]]
}, Closed]],
Cell[73164, 1563, 1737, 36, 114, "Text",ExpressionUUID->"e8d98786-9289-4bef-994f-6c225b4a942e"],
Cell[74904, 1601, 43747, 1249, 279, "Input",ExpressionUUID->"c37bd034-5710-48a9-831a-aa33deda72cb"],
Cell[118654, 2852, 1060, 17, 38, "Text",ExpressionUUID->"6592cc1f-346b-42fa-85c0-a08fbbbfe6b1"],
Cell[119717, 2871, 8768, 235, 52, "Input",ExpressionUUID->"0cd468ec-a262-4ba8-aa90-9f9f3c97c92f"],
Cell[128488, 3108, 998, 14, 38, "Text",ExpressionUUID->"aae3c165-daaf-4cf1-bc3e-c74026948392"],
Cell[129489, 3124, 734, 14, 31, "Input",ExpressionUUID->"140c8bc3-b911-403f-b757-c1d37e0d1fd0"],
Cell[130226, 3140, 1115, 17, 38, "Text",ExpressionUUID->"9ba00d50-38e0-40e6-8749-30de84ff7fd4"]
}, Closed]],
Cell[CellGroupData[{
Cell[131378, 3162, 315, 6, 58, "Section",ExpressionUUID->"536a01ff-52c3-474d-8ef4-e9b842355c8b"],
Cell[131696, 3170, 692, 11, 89, "Text",ExpressionUUID->"deb7cb9d-a4e4-412e-b0ad-7b225282c772"],
Cell[132391, 3183, 17931, 429, 271, "Input",ExpressionUUID->"1a8793ba-87b4-4282-a71c-c5da16f9942d"],
Cell[150325, 3614, 459, 12, 39, "Text",ExpressionUUID->"a4f30598-ec7a-4f96-8e56-6f3c1af5575f"],
Cell[CellGroupData[{
Cell[150809, 3630, 1368, 23, 52, "Input",ExpressionUUID->"d1236281-d7ce-4874-a070-386c52b2c067"],
Cell[152180, 3655, 20479, 482, 139, "Output",ExpressionUUID->"1cde1db1-dc43-41d5-aee5-7b7a3cbba2c7"],
Cell[172662, 4139, 20753, 489, 139, "Output",ExpressionUUID->"1730a15c-5b9f-408e-8f62-3c64db8e01fe"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[193464, 4634, 435, 8, 100, "Section",ExpressionUUID->"c8ddf84b-cc5c-4241-98dd-15960b03a347"],
Cell[193902, 4644, 790, 11, 38, "Text",ExpressionUUID->"61621467-7637-43b0-bf9b-fcbf2516d243"],
Cell[CellGroupData[{
Cell[194717, 4659, 2940, 66, 95, "Input",ExpressionUUID->"ff52f9c2-9e01-4a19-b7ce-f960047a8eb3"],
Cell[197660, 4727, 18657, 476, 155, "Output",ExpressionUUID->"8bcff437-3a90-4369-a629-3984e1f83e08"]
}, Closed]],
Cell[216332, 5206, 800, 11, 38, "Text",ExpressionUUID->"c98bac99-bdac-4293-843c-167d8ba14d0c"],
Cell[CellGroupData[{
Cell[217157, 5221, 4747, 82, 74, "Input",ExpressionUUID->"f2672bb4-fcb3-4f2d-8dcf-37b9ec5c2041"],
Cell[221907, 5305, 42048, 1052, 157, "Output",ExpressionUUID->"3de1ec82-c865-41af-a668-b7728eb97b69"]
}, Closed]],
Cell[263970, 6360, 689, 10, 38, "Text",ExpressionUUID->"8f2af1ce-c4d3-45b4-b1d7-32fdcea5a340"],
Cell[CellGroupData[{
Cell[264684, 6374, 4430, 78, 95, "Input",ExpressionUUID->"2f3ae7e7-89e5-462d-8b53-621c981b950d"],
Cell[269117, 6454, 42820, 1059, 153, "Output",ExpressionUUID->"108dabc8-a00a-41ad-af68-8ec4abbc0da0"]
}, Closed]],
Cell[311952, 7516, 901, 15, 38, "Text",ExpressionUUID->"2648d616-d011-4f74-9fef-b404054149cf"],
Cell[CellGroupData[{
Cell[312878, 7535, 1998, 41, 73, "Input",ExpressionUUID->"84a695e6-7a4d-4c8a-a4e8-308777537f44"],
Cell[314879, 7578, 4778, 77, 89, "Output",ExpressionUUID->"9d66d8d5-4078-4e47-b409-9cf80c2379d6"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[319706, 7661, 381, 6, 58, "Section",ExpressionUUID->"b3bddd94-9619-4e57-b70c-61ecc53930da"],
Cell[320090, 7669, 894, 15, 38, "Text",ExpressionUUID->"cc7aaa33-2f98-4470-afdd-47d0f0a9b420"],
Cell[CellGroupData[{
Cell[321009, 7688, 1656, 23, 31, "Input",ExpressionUUID->"da1927a7-e49a-4d9e-8829-38dc0ad85355"],
Cell[322668, 7713, 16981, 430, 143, "Output",ExpressionUUID->"4567bf78-6e96-42f6-a080-3dc25b89a09f"]
}, Open  ]],
Cell[339664, 8146, 948, 15, 63, "Text",ExpressionUUID->"f179a38e-0b54-41d8-92f1-7d2d62782545"],
Cell[CellGroupData[{
Cell[340637, 8165, 2420, 63, 74, "Input",ExpressionUUID->"38546568-761c-4495-b97a-c98baa33faea"],
Cell[343060, 8230, 2140, 42, 89, "Output",ExpressionUUID->"7995743a-cb31-42d1-8ff9-f7bb6f30831f"]
}, Open  ]],
Cell[345215, 8275, 888, 15, 38, "Text",ExpressionUUID->"d0eadaa4-c981-4c6a-94ea-bc0b05e33a28"],
Cell[CellGroupData[{
Cell[346128, 8294, 3724, 50, 31, "Input",ExpressionUUID->"d1f03578-6628-4ee4-902a-1a1b32d0a064"],
Cell[349855, 8346, 23494, 631, 157, "Output",ExpressionUUID->"cf72f101-66b3-49e1-b9a7-192b155bd508"]
}, Open  ]],
Cell[373364, 8980, 689, 10, 38, "Text",ExpressionUUID->"52fe1ceb-c317-4994-93ce-dd44dc5509a7"],
Cell[CellGroupData[{
Cell[374078, 8994, 3335, 46, 52, "Input",ExpressionUUID->"1c427579-10d6-4160-ab10-493e8fd32d4d"],
Cell[377416, 9042, 20513, 538, 135, "Output",ExpressionUUID->"7f146349-c98a-442e-a465-64a941929c45"]
}, Open  ]]
}, Closed]]
}
]
*)