Spherical-vs-Cartesian-Coordinates.nb

Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Spherical coordinates and their relations with Cartesian ones.\n",
  FontSize->36],
 StyleBox["With xCoba (using CTensor framework)",
  FontSize->18]
}], "Subtitle",
 ExpressionUUID -> "46b2dd58-be40-4d21-b0c8-884d4e3dcf45"],

Cell["\<\
Cyril Pitrou (pitrou@iap.fr)
May 2019\
\>", "Subsubtitle",
 ExpressionUUID -> "545e06a4-ae80-4463-b7b5-e14485782686"],

Cell["\<\
Summary: A basic example to show how to use CTensor for change of coordinates \
between spherical coordinates and Cartesian ones.
Can be used as a basic workflow whenever setting up to systems of coordinates \
in CTensor. Inspired by sub-notebooks that JMM sent me in april 2018.\
\>", "Subsubtitle",
 ExpressionUUID -> "d6eac5c4-a61d-44fb-8e77-5acc6bf5a958"],

Cell[CellGroupData[{

Cell["Set - up", "Section",
 ExpressionUUID -> "10dcf441-9354-4404-b1bd-02641b8d114f"],

Cell[CellGroupData[{

Cell["Overhead", "Subsubsection",
 ExpressionUUID -> "ccd33ae5-41fa-4fe4-92bf-1fb84d22b252"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "xAct`xCoba`"}]], "Input",
 ExpressionUUID -> "8765d220-1399-49fc-a566-623e538a8631"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xPerm`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}],
  SequenceForm["Package xAct`xPerm`  version ", "1.2.3", ", ", {2015, 8, 23}],
  
  Editable->False]], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"Connection established.\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTensor`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.1.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm[
  "Package xAct`xTensor`  version ", "1.1.3", ", ", {2018, 2, 28}],
  Editable->False]], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xCoba`  version \"\>", 
   "\[InvisibleSpace]", "\<\"0.8.4\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm["Package xAct`xCoba`  version ", "0.8.4", ", ", {2018, 2, 28}],
  
  Editable->False]], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"CopyRight (C) 2005-2018, David Yllanes and Jose M. \
Martin-Garcia, under the General Public License.\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \
details type Disclaimer[]. This is free software, and you are welcome to \
redistribute it under certain conditions. See the General Public License for \
details.\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 ExpressionUUID -> "229c68a7-d2ef-47cd-9ab4-2854921794b2"]
}, Open  ]]
}, Open  ]],

Cell["Turn this on to see DefXXX working:", "Text",
 ExpressionUUID -> "72aaba26-2610-4daf-9f2a-6bca35be644d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$DefInfoQ", "=", "False"}], ";"}]], "Input",
 ExpressionUUID -> "b301e1b7-703a-4bef-88ab-9f16c279c338"],

Cell["Turn this on to see ComponentValue working:", "Text",
 ExpressionUUID -> "6c28c78c-b094-4cbb-ab50-21256f02c113"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$CVVerbose", "=", "False"}], ";"}]], "Input",
 ExpressionUUID -> "3f60afd2-8798-4aea-9472-61064ba625bb"],

Cell["Turn this on to see the xCoba cache system working:", "Text",
 ExpressionUUID -> "1bba7de0-d68a-403b-9156-98217ec69d91"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$xCobaCacheVerbose", "=", "False"}], ";"}]], "Input",
 ExpressionUUID -> "a106a573-c60f-47d1-99b0-bb6c2220d91e"],

Cell["\<\
The default simplification function is Simplify, but it may be a bit too slow \
with lots of radicals. We need some intermediate simplification because \
otherwise intermediate steps grow too fast. But we don\[CloseCurlyQuote]t \
need to lose too much time simplifying intermediate steps. Using Together is \
usually a good compromise:\
\>", "Text",
 ExpressionUUID -> "533d48f5-23eb-4ad6-a341-f8e0275618cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$CVSimplify", "=", "Together"}], ";"}]], "Input",
 ExpressionUUID -> "8d96ef6f-7986-4a33-b59c-42ef45126fe0"],

Cell["Define a 3D manifold :", "Text",
 ExpressionUUID -> "0a79ba1c-d802-44c7-8ac9-c81043a7e211"],

Cell[BoxData[
 RowBox[{"DefManifold", "[", 
  RowBox[{"R3", ",", "3", ",", 
   RowBox[{"{", 
    RowBox[{
    "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "i", ",", "j",
      ",", "k"}], "}"}]}], "]"}]], "Input",
 CellID->980217220,
 ExpressionUUID -> "6c0eb81e-55d7-4c6a-8c33-ccaee072e171"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spherical and Cartesian coordinates", "Subsubsection",
 ExpressionUUID -> "f3e77c8c-f8a2-48a9-a222-809f6212daa1"],

Cell["Spherical and Cartesian charts", "Text",
 ExpressionUUID -> "db1e9ab4-6fce-446e-8d86-0895b487fc29"],

Cell[BoxData[{
 RowBox[{"DefChart", "[", 
  RowBox[{"sph", ",", "R3", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", "[", "]"}], ",", 
     RowBox[{"\[Theta]", "[", "]"}], ",", 
     RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", 
   RowBox[{"FormatBasis", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["\"\<Partials\>\"", "MSG"], ",", "\"\<Differentials\>\""}], 
     "}"}]}], ",", 
   RowBox[{"ChartColor", "\[Rule]", "Red"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefChart", "[", 
  RowBox[{"cart", ",", "R3", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "]"}], ",", 
     RowBox[{"y", "[", "]"}], ",", 
     RowBox[{"z", "[", "]"}]}], "}"}], ",", 
   RowBox[{"FormatBasis", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["\"\<Partials\>\"", "MSG"], ",", "\"\<Differentials\>\""}], 
     "}"}]}], ",", 
   RowBox[{"ChartColor", "\[Rule]", "Green"}]}], "]"}]}], "Input",
 ExpressionUUID -> "54ecd30f-3513-4667-85a4-caa7426bbd68"],

Cell["The basic relations between these two charts", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cart2sph", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "[", "]"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"y", "[", "]"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"z", "[", "]"}], "^", "2"}]}], "]"}], ",", 
     RowBox[{"ArcCos", "[", 
      RowBox[{
       RowBox[{"z", "[", "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "[", "]"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"y", "[", "]"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"z", "[", "]"}], "^", "2"}]}], "]"}]}], "]"}], ",", 
     RowBox[{"ArcTan", "[", 
      RowBox[{
       RowBox[{"x", "[", "]"}], ",", 
       RowBox[{"y", "[", "]"}]}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sph2cart", "=", 
   RowBox[{
    RowBox[{"r", "[", "]"}], 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "[", "]"}], "]"}], 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "[", "]"}], "]"}], 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "]"}], "]"}]}], ",", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Theta]", "[", "]"}], "]"}]}], "}"}]}]}], ";"}]}], "Input",
 ExpressionUUID -> "e3a30ad3-d5ab-4cb0-b31c-c49f51117f21"],

Cell["We build these as rules for a change of coordinates", "Text",
 ExpressionUUID -> "78db6fae-61ef-42c8-91db-c08c3a5353e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cart2sphRules", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "[", "]"}], ",", 
      RowBox[{"y", "[", "]"}], ",", 
      RowBox[{"z", "[", "]"}]}], "}"}], "\[Rule]", "sph2cart"}], 
   "]"}]}]], "Input",
 ExpressionUUID -> "7a184d8f-556f-47b9-baba-03a0254619d8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["x",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`x[],
     Editable->False], "\[Rule]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox["Cos",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Cos,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Phi][],
       Editable->False], "]"}], " ", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Sin",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Sin,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["y",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`y[],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Sin",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Sin,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Sin",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Sin,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Phi][],
       Editable->False], "]"}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["z",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`z[],
     Editable->False], "\[Rule]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox["Cos",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Cos,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}], " ", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False]}]}]}], "}"}]], "Output",
 ExpressionUUID -> "8c62ab88-f76d-41cc-a262-71403a237c04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sph2cartRules", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"r", "[", "]"}], ",", 
      RowBox[{"\[Theta]", "[", "]"}], ",", 
      RowBox[{"\[Phi]", "[", "]"}]}], "}"}], "\[Rule]", "cart2sph"}], 
   "]"}]}]], "Input",
 ExpressionUUID -> "4cef0c5c-2687-4457-99e0-634535d00d01"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       InterpretationBox[
        StyleBox["x",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`x[],
        Editable->False], "2"], "+", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["y",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`y[],
        Editable->False], "2"], "+", 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["z",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`z[],
        Editable->False], "2"]}]]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox["ArcCos",
       ShowAutoStyles->False,
       AutoSpacing->False],
      ArcCos,
      Editable->False], "[", 
     FractionBox[
      InterpretationBox[
       StyleBox["z",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`z[],
       Editable->False], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["x",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`x[],
          Editable->False], "2"], "+", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["y",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`y[],
          Editable->False], "2"], "+", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["z",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`z[],
          Editable->False], "2"]}]]], "]"}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox["ArcTan",
       ShowAutoStyles->False,
       AutoSpacing->False],
      ArcTan,
      Editable->False], "[", 
     RowBox[{
      InterpretationBox[
       StyleBox["x",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`x[],
       Editable->False], ",", 
      InterpretationBox[
       StyleBox["y",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`y[],
       Editable->False]}], "]"}]}]}], "}"}]], "Output",
 ExpressionUUID -> "62ab44c9-eea8-429a-a4a0-985ee570ba3d"]
}, Open  ]],

Cell["\<\
When simplifying spherical coordinates, Mathematica needs to know the range \
of angles\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"And", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "[", "]"}], "|", 
        RowBox[{"y", "[", "]"}], "|", 
        RowBox[{"z", "[", "]"}], "|", 
        RowBox[{"r", "[", "]"}], "|", 
        RowBox[{"\[Theta]", "[", "]"}], "|", 
        RowBox[{"\[Phi]", "[", "]"}]}], ")"}], "\[Element]", "Reals"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"r", "[", "]"}], ">", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{"0", "<", 
      RowBox[{"\[Theta]", "[", "]"}], "<", "Pi"}], ",", "\[IndentingNewLine]", 
     RowBox[{"0", "<=", 
      RowBox[{"\[Phi]", "[", "]"}], "<", 
      RowBox[{"2", "Pi"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 ExpressionUUID -> "5e1bc227-9b45-4f63-94c4-c0731ea104a1"],

Cell["\<\
We check that these rules are indeed correct and that going forth and back \
leads to identity\
\>", "Text",
 ExpressionUUID -> "04874d88-c97e-41ec-8427-a95575c41f6f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"cart2sphRules", "/.", "sph2cartRules"}], "//", 
  "Simplify"}]], "Input",
 ExpressionUUID -> "1b821d51-e7ef-4013-9dd0-5c69b82e0e3c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["x",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`x[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["x",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`x[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["y",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`y[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["y",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`y[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["z",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`z[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["z",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`z[],
     Editable->False]}]}], "}"}]], "Output",
 ExpressionUUID -> "adee1dbe-6415-4279-bd05-155040afd261"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sph2cartRules", "/.", "cart2sphRules"}], "//", 
  "FullSimplify"}]], "Input",
 ExpressionUUID -> "d17fbc86-71dc-4cb2-b68f-e4519b434640"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox["ArcTan",
       ShowAutoStyles->False,
       AutoSpacing->False],
      ArcTan,
      Editable->False], "[", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["Cos",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Cos,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Phi][],
        Editable->False], "]"}], ",", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Phi][],
        Editable->False], "]"}]}], "]"}]}]}], "}"}]], "Output",
 ExpressionUUID -> "b25208f0-f133-4930-b004-c6353d0e39cb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Jacobians of transformation between charts", "Subsubsection",
 ExpressionUUID -> "788dc6f2-01db-472c-a107-db66a9db4f28"],

Cell["\<\
In this section we compte the Jacobians of the transformations and we use it \
to specify the basis change.
  The conventions for the positioning of the indices are important, and this \
section can be used as a model whenever using two types of coordinates.\
\>", "Text"],

Cell["Compute Jacobian matrices:", "Text",
 ExpressionUUID -> "76c51b63-936f-4a3c-b65f-6630dc952e1e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"jc2s", "=", 
   RowBox[{"Simplify", "@", 
    RowBox[{"Outer", "[", 
     RowBox[{"D", ",", "cart2sph", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", "]"}], ",", 
        RowBox[{"y", "[", "]"}], ",", 
        RowBox[{"z", "[", "]"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"js2c", "=", 
   RowBox[{"Simplify", "@", 
    RowBox[{"Outer", "[", 
     RowBox[{"D", ",", "sph2cart", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r", "[", "]"}], ",", 
        RowBox[{"\[Theta]", "[", "]"}], ",", 
        RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], "]"}]}]}], ";"}]}], "Input",
 ExpressionUUID -> "ef99da55-7898-43fd-892d-e50dbc40503a"],

Cell[TextData[{
 "The Jacobian is a CTensor (",
 StyleBox["beware of the order of indices",
  FontColor->RGBColor[1, 0, 0]],
 " e.g. {sph,-cart} and not {-cart,sph})"
}], "Text",
 ExpressionUUID -> "8e521014-0fb6-4d4a-be8c-60c9a7b4421c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cart2sphJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{"jc2s", ",", 
     RowBox[{"{", 
      RowBox[{"sph", ",", 
       RowBox[{"-", "cart"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sph2cartJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{"js2c", ",", 
     RowBox[{"{", 
      RowBox[{"cart", ",", 
       RowBox[{"-", "sph"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 ExpressionUUID -> "e735cbde-a514-45f3-a752-47e1af3b7aab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"cart2sphJacobian", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}]}], "]"}], ",", 
   RowBox[{"sph2cartJacobian", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}]}], "]"}]}], "}"}]], "Input",
 ExpressionUUID -> "a76b1f9d-c1de-459d-979e-d57cec6f7fed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        StyleBox[GridBox[{
           {
            TagBox[
             TooltipBox[
              FractionBox[
               InterpretationBox[
                StyleBox["x",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`x[],
                Editable->False], 
               SqrtBox[
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`x[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`y[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["z",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`z[],
                   Editable->False], "2"]}]]],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`x[], Editable -> False], 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
             
             Annotation[#, {1, 
               1} -> $CellContext`x[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              FractionBox[
               InterpretationBox[
                StyleBox["y",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`y[],
                Editable->False], 
               SqrtBox[
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`x[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`y[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["z",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`z[],
                   Editable->False], "2"]}]]],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`y[], Editable -> False], 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
             
             Annotation[#, {1, 
               2} -> $CellContext`y[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              FractionBox[
               InterpretationBox[
                StyleBox["z",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`z[],
                Editable->False], 
               SqrtBox[
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`x[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`y[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["z",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`z[],
                   Editable->False], "2"]}]]],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False], 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
             
             Annotation[#, {1, 
               3} -> $CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox["\<\"\[GrayCircle]\"\>",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
                FractionBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], " ", 
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False]}], 
                 RowBox[{
                   SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}]}]]}]],
             
             
             Annotation[#, {2, 
               1} -> $CellContext`x[] ($CellContext`x[]^2 + \
$CellContext`y[]^2)^
                Rational[-1, 
                  2] $CellContext`z[]/($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2), "Tooltip"]& ], 
            TagBox[
             TooltipBox["\<\"\[GrayCircle]\"\>",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
                FractionBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], " ", 
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False]}], 
                 RowBox[{
                   SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}]}]]}]],
             
             
             Annotation[#, {2, 
               2} -> $CellContext`y[] ($CellContext`x[]^2 + \
$CellContext`y[]^2)^
                Rational[-1, 
                  2] $CellContext`z[]/($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2), "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{"-", 
               FractionBox[
                SqrtBox[
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`x[],
                    Editable->False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`y[],
                    Editable->False], "2"]}]], 
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`x[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`y[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["z",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`z[],
                   Editable->False], "2"]}]]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
                RowBox[{"-", 
                  FractionBox[
                   SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], 
                   RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]}]}]],
             
             Annotation[#, {2, 
               3} -> -($CellContext`x[]^2 + $CellContext`y[]^2)^
                Rational[
                 1, 2]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox[
              RowBox[{"-", 
               FractionBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], 
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["x",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`x[],
                   Editable->False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["y",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`y[],
                   Editable->False], "2"]}]]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
                RowBox[{"-", 
                  FractionBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], 
                   RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]}]}]],
             
             Annotation[#, {3, 
               1} -> -$CellContext`y[]/($CellContext`x[]^2 + \
$CellContext`y[]^2), "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              FractionBox[
               InterpretationBox[
                StyleBox["x",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`x[],
                Editable->False], 
               RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["x",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`x[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["y",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`y[],
                  Editable->False], "2"]}]],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`x[], Editable -> False], 
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]}]],
             
             Annotation[#, {3, 
               2} -> $CellContext`x[]/($CellContext`x[]^2 + \
$CellContext`y[]^2), "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
          },
          AutoDelete->False,
          
          GridBoxDividers->{
           "ColumnsIndexed" -> {
             1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}, 
            "RowsIndexed" -> {
             1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]}}],
         FontSize->Small], 
        StyleBox[GridBox[{
           {"a", " "},
           {" ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    xAct`xCoba`CTensor[{{$CellContext`x[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^
        Rational[-1, 
          2], $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^
        Rational[-1, 
          2], $CellContext`z[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^
        Rational[-1, 
          2]}, {$CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
        Rational[-1, 
          2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), $CellContext`y[] ($CellContext`x[]^2 + \
$CellContext`y[]^2)^
        Rational[-1, 
          2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), -($CellContext`x[]^2 + $CellContext`y[]^2)^
        Rational[
         1, 2]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)}, {-$CellContext`y[]/($CellContext`x[]^2 + \
$CellContext`y[]^2), $CellContext`x[]/($CellContext`x[]^2 + \
$CellContext`y[]^2), 0}}, {$CellContext`sph, -$CellContext`cart}, 
     0][$CellContext`a, -$CellContext`b],
    Editable->False], ",", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        StyleBox[GridBox[{
           {
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
             Annotation[#, {1, 1} -> Cos[
                 $CellContext`\[Phi][]] Sin[
                 $CellContext`\[Theta][]], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]}]}]],
             Annotation[#, {1, 2} -> Cos[
                 $CellContext`\[Theta][]] Cos[
                 $CellContext`\[Phi][]] $CellContext`r[], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{"-", 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
             Annotation[#, {1, 3} -> -$CellContext`r[] Sin[
                 $CellContext`\[Theta][]] Sin[
                 $CellContext`\[Phi][]], "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
             Annotation[#, {2, 1} -> Sin[
                 $CellContext`\[Theta][]] Sin[
                 $CellContext`\[Phi][]], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
             Annotation[#, {2, 2} -> Cos[
                 $CellContext`\[Theta][]] $CellContext`r[] Sin[
                 $CellContext`\[Phi][]], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
             Annotation[#, {2, 3} -> Cos[
                 $CellContext`\[Phi][]] $CellContext`r[] Sin[
                 $CellContext`\[Theta][]], "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}]}]],
             Annotation[#, {3, 1} -> Cos[
                $CellContext`\[Theta][]], "Tooltip"]& ], 
            TagBox[
             TooltipBox[
              RowBox[{
               RowBox[{"-", 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
                RowBox[{
                  RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
             Annotation[#, {3, 2} -> -$CellContext`r[] Sin[
                 $CellContext`\[Theta][]], "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
          },
          AutoDelete->False,
          
          GridBoxDividers->{
           "ColumnsIndexed" -> {
             1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]}, 
            "RowsIndexed" -> {
             1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
         FontSize->Small], 
        StyleBox[GridBox[{
           {"a", " "},
           {" ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    xAct`xCoba`CTensor[{{Cos[
         $CellContext`\[Phi][]] Sin[
         $CellContext`\[Theta][]], Cos[
         $CellContext`\[Theta][]] Cos[
         $CellContext`\[Phi][]] $CellContext`r[], -$CellContext`r[] Sin[
         $CellContext`\[Theta][]] Sin[
         $CellContext`\[Phi][]]}, {Sin[
         $CellContext`\[Theta][]] Sin[
         $CellContext`\[Phi][]], Cos[
         $CellContext`\[Theta][]] $CellContext`r[] Sin[
         $CellContext`\[Phi][]], Cos[
         $CellContext`\[Phi][]] $CellContext`r[] Sin[
         $CellContext`\[Theta][]]}, {
       Cos[
        $CellContext`\[Theta][]], -$CellContext`r[] Sin[
         $CellContext`\[Theta][]], 
       0}}, {$CellContext`cart, -$CellContext`sph}, 
     0][$CellContext`a, -$CellContext`b],
    Editable->False]}], "}"}]], "Output",
 ExpressionUUID -> "56c17490-7070-407b-8d49-d86bbdd1947f"]
}, Open  ]],

Cell["\<\
Again we check that the Jacobians are inverse of each other. \
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"cart2sphJacobian", "[", 
      RowBox[{"b", ",", 
       RowBox[{"-", "a"}]}], "]"}], 
     RowBox[{"sph2cartJacobian", "[", 
      RowBox[{"c", ",", 
       RowBox[{"-", "b"}]}], "]"}]}], "/.", "cart2sphRules"}], ")"}], "//", 
  "Simplify"}]], "Input",
 ExpressionUUID -> "abaca933-a380-4af1-ba94-2ea65ad7213e"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"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[{"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"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]},
           "RowsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", "c"},
         {"a", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{1, 0, 0}, {0, 1, 0}, {0, 0, 
   1}}, {-$CellContext`cart, $CellContext`cart}, 
   0][-$CellContext`a, $CellContext`c],
  Editable->False]], "Output",
 ExpressionUUID -> "22820d77-a641-42a6-b244-8c71ab4f4883"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"sph2cartJacobian", "[", 
      RowBox[{"b", ",", 
       RowBox[{"-", "a"}]}], "]"}], 
     RowBox[{"cart2sphJacobian", "[", 
      RowBox[{"c", ",", 
       RowBox[{"-", "b"}]}], "]"}]}], "/.", "sph2cartRules"}], ")"}], "//", 
  "Simplify"}]], "Input",
 ExpressionUUID -> "37724c1a-f2ad-4a6f-9398-e327fb81c6ee"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"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[{"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"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", "c"},
         {"a", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{1, 0, 0}, {0, 1, 0}, {0, 0, 
   1}}, {-$CellContext`sph, $CellContext`sph}, 
   0][-$CellContext`a, $CellContext`c],
  Editable->False]], "Output",
 ExpressionUUID -> "1c0f313e-d8f9-40a7-8c19-1b60c81de75d"]
}, Open  ]],

Cell["\<\
This sets a default change of basis. In the one-argument form it only \
pre-computes algebraic expressions, and not derivatives, Christoffels, etc:\
\>", "Text",
 ExpressionUUID -> "e9f4f2dd-4ced-459c-906f-3100ddbab4ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SetBasisChange"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"SetBasisChange[CTensor[matrix, {-downbasis, upbasis}]] stores, \
both using a CTensor and TensorValues, the change between the bases. Input \
can also be given as SetBasisChange[CTensor[Transpose[matrix], {upbasis, \
-downbasis}]]. SetBasisChange[{direct, inverse}] provides a pair of CTensor \
objects describing the direct and inverse basis changes.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info233767348814-1282620"]
}, Open  ]],

Cell["\<\
We are precisely using SetBasisChange with the second usage where we have \
{upbasis, -downbasis}\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData["cart2sphJacobian"], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        InterpretationBox[
         StyleBox["x",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`x[],
         Editable->False], 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["x",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`x[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["y",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`y[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["z",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`z[],
            Editable->False], "2"]}]]], ",", 
       FractionBox[
        InterpretationBox[
         StyleBox["y",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`y[],
         Editable->False], 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["x",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`x[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["y",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`y[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["z",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`z[],
            Editable->False], "2"]}]]], ",", 
       FractionBox[
        InterpretationBox[
         StyleBox["z",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`z[],
         Editable->False], 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["x",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`x[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["y",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`y[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["z",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`z[],
            Editable->False], "2"]}]]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox["x",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`x[],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["z",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`z[],
          Editable->False]}], 
        RowBox[{
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["y",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`y[],
             Editable->False], "2"]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["y",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`y[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["z",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`z[],
             Editable->False], "2"]}], ")"}]}]], ",", 
       FractionBox[
        RowBox[{
         InterpretationBox[
          StyleBox["y",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`y[],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["z",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`z[],
          Editable->False]}], 
        RowBox[{
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["y",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`y[],
             Editable->False], "2"]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["y",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`y[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["z",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`z[],
             Editable->False], "2"]}], ")"}]}]], ",", 
       RowBox[{"-", 
        FractionBox[
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False], "2"], "+", 
           SuperscriptBox[
            InterpretationBox[
             StyleBox["y",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`y[],
             Editable->False], "2"]}]], 
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["x",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`x[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["y",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`y[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["z",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`z[],
            Editable->False], "2"]}]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         InterpretationBox[
          StyleBox["y",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`y[],
          Editable->False], 
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["x",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`x[],
            Editable->False], "2"], "+", 
          SuperscriptBox[
           InterpretationBox[
            StyleBox["y",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`y[],
            Editable->False], "2"]}]]}], ",", 
       FractionBox[
        InterpretationBox[
         StyleBox["x",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`x[],
         Editable->False], 
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"]}]], ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"sph", ",", 
     RowBox[{"-", "cart"}]}], "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", "cart2sphJacobian", "]"}]], "Input",
 ExpressionUUID -> "42f846ff-3522-47d5-87b6-cef4f817872f"],

Cell["\<\
Let us view the change of basis (in both charts). 
The columns are the Spherical basis components of the Cartesian basis vectors \
:\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"ToCTensor", "[", 
    RowBox[{"Basis", ",", 
     RowBox[{"{", 
      RowBox[{"sph", ",", 
       RowBox[{"-", "cart"}]}], "}"}]}], "]"}], "]"}], "[", 
  RowBox[{"a", ",", 
   RowBox[{"-", "b"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"Basis", ",", 
      RowBox[{"{", 
       RowBox[{"sph", ",", 
        RowBox[{"-", "cart"}]}], "}"}]}], "]"}], "/.", "cart2sphRules"}], 
   "]"}], "[", 
  RowBox[{"a", ",", 
   RowBox[{"-", "b"}]}], "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["x",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`x[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`x[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {1, 
             1} -> $CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["y",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`y[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`y[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {1, 
             2} -> $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["z",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`z[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`z[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {1, 
             3} -> $CellContext`z[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["\<\"\[GrayCircle]\"\>",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                  "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`x[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               RowBox[{
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}]}]]}]],
           
           
           Annotation[#, {2, 
             1} -> $CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
              Rational[-1, 
                2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), "Tooltip"]& ], 
          TagBox[
           TooltipBox["\<\"\[GrayCircle]\"\>",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                  "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`y[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               RowBox[{
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}]}]]}]],
           
           
           Annotation[#, {2, 
             2} -> $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
              Rational[-1, 
                2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              SqrtBox[
               RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["x",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`x[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["y",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`y[],
                  Editable->False], "2"]}]], 
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]], 
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]}]}]],
           
           Annotation[#, {2, 
             3} -> -($CellContext`x[]^2 + $CellContext`y[]^2)^
              Rational[
               1, 2]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              InterpretationBox[
               StyleBox["y",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`y[],
               Editable->False], 
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"]}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`y[], Editable -> False], 
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]}]}]],
           
           Annotation[#, {3, 
             1} -> -$CellContext`y[]/($CellContext`x[]^2 + \
$CellContext`y[]^2), "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["x",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`x[],
              Editable->False], 
             RowBox[{
              SuperscriptBox[
               InterpretationBox[
                StyleBox["x",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`x[],
                Editable->False], "2"], "+", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["y",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`y[],
                Editable->False], "2"]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`x[], Editable -> False], 
               RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`x[], Editable -> False], "2"], "+", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`y[], Editable -> False], "2"]}]]}]],
           
           Annotation[#, {3, 
             2} -> $CellContext`x[]/($CellContext`x[]^2 + $CellContext`y[]^2),
             "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"a", " "},
         {" ", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{$CellContext`x[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^
      Rational[-1, 
        2], $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^
      Rational[-1, 
        2], $CellContext`z[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^
      Rational[-1, 
        2]}, {$CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
      Rational[-1, 
        2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), $CellContext`y[] ($CellContext`x[]^2 + \
$CellContext`y[]^2)^
      Rational[-1, 
        2] $CellContext`z[]/($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2), -($CellContext`x[]^2 + $CellContext`y[]^2)^
      Rational[1, 
        2]/($CellContext`x[]^2 + $CellContext`y[]^2 + $CellContext`z[]^2)}, \
{-$CellContext`y[]/($CellContext`x[]^2 + $CellContext`y[]^2), \
$CellContext`x[]/($CellContext`x[]^2 + $CellContext`y[]^2), 
     0}}, {$CellContext`sph, -$CellContext`cart}, 
   0][$CellContext`a, -$CellContext`b],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
           Annotation[#, {1, 1} -> Cos[
               $CellContext`\[Phi][]] Sin[
               $CellContext`\[Theta][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           Annotation[#, {1, 2} -> Sin[
               $CellContext`\[Theta][]] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["Cos",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Cos,
              Editable->False], "[", 
             InterpretationBox[
              StyleBox["\[Theta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Theta][],
              Editable->False], "]"}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], Cos, Editable -> False], "[", 
                InterpretationBox[
                 StyleBox[
                 "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`\[Theta][], Editable -> False], "]"}]}]],
           Annotation[#, {1, 3} -> Cos[
              $CellContext`\[Theta][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}]}], 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}], 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {2, 1} -> Cos[
               $CellContext`\[Theta][]] Cos[
               $CellContext`\[Phi][]]/$CellContext`r[], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}]}], 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}], 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {2, 2} -> Cos[
               $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           Annotation[#, {2, 3} -> -$CellContext`r[]^(-1) Sin[
               $CellContext`\[Theta][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           Annotation[#, {3, 1} -> -Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}]}], 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}]}], 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {3, 2} -> Cos[
               $CellContext`\[Phi][]] Csc[
               $CellContext`\[Theta][]]/$CellContext`r[], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"a", " "},
         {" ", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{Cos[
       $CellContext`\[Phi][]] Sin[
       $CellContext`\[Theta][]], Sin[
       $CellContext`\[Theta][]] Sin[
       $CellContext`\[Phi][]], 
     Cos[
      $CellContext`\[Theta][]]}, {Cos[
       $CellContext`\[Theta][]] Cos[
       $CellContext`\[Phi][]]/$CellContext`r[], Cos[
       $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[
       $CellContext`\[Phi][]], -$CellContext`r[]^(-1) Sin[
       $CellContext`\[Theta][]]}, {-Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[
       $CellContext`\[Phi][]], Cos[
       $CellContext`\[Phi][]] Csc[
       $CellContext`\[Theta][]]/$CellContext`r[], 
     0}}, {$CellContext`sph, -$CellContext`cart}, 
   0][$CellContext`a, -$CellContext`b],
  Editable->False]], "Output"]
}, Open  ]],

Cell["\<\
The columns are the Cartesian components of the spherical basis vectors :\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"ToCTensor", "[", 
    RowBox[{"Basis", ",", 
     RowBox[{"{", 
      RowBox[{"cart", ",", 
       RowBox[{"-", "sph"}]}], "}"}]}], "]"}], "]"}], "[", 
  RowBox[{"a", ",", 
   RowBox[{"-", "b"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"Basis", ",", 
      RowBox[{"{", 
       RowBox[{"cart", ",", 
        RowBox[{"-", "sph"}]}], "}"}]}], "]"}], "/.", "cart2sphRules"}], 
   "]"}], "[", 
  RowBox[{"a", ",", 
   RowBox[{"-", "b"}]}], "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["x",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`x[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`x[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {1, 
             1} -> $CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              InterpretationBox[
               StyleBox["x",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`x[],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox["z",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`z[],
               Editable->False]}], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                  "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`x[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {1, 
             2} -> $CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
              Rational[-1, 2] $CellContext`z[], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             InterpretationBox[
              StyleBox["y",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`y[],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                InterpretationBox[
                 StyleBox["y", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`y[], Editable -> False]}]}]],
           Annotation[#, {1, 3} -> -$CellContext`y[], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["y",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`y[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`y[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {2, 
             1} -> $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              InterpretationBox[
               StyleBox["y",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`y[],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox["z",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`z[],
               Editable->False]}], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                  "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`y[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {2, 
             2} -> $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
              Rational[-1, 2] $CellContext`z[], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox["x",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`x[],
             Editable->False],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox["x", AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`x[], Editable -> False]}]],
           Annotation[#, {2, 3} -> $CellContext`x[], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["z",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`z[],
              Editable->False], 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`z[], Editable -> False], 
               SqrtBox[
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]]]}]],
           
           Annotation[#, {3, 
             1} -> $CellContext`z[] ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-1, 2], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             SqrtBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"], "+", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["y",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`y[],
                 Editable->False], "2"]}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                SqrtBox[
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"]}]]}]}]],
           
           Annotation[#, {3, 
             2} -> -($CellContext`x[]^2 + $CellContext`y[]^2)^Rational[1, 2], 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"a", " "},
         {" ", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{$CellContext`x[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^
      Rational[-1, 
        2], $CellContext`x[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
      Rational[-1, 
        2] $CellContext`z[], -$CellContext`y[]}, {$CellContext`y[] \
($CellContext`x[]^2 + $CellContext`y[]^2 + $CellContext`z[]^2)^
      Rational[-1, 
        2], $CellContext`y[] ($CellContext`x[]^2 + $CellContext`y[]^2)^
      Rational[-1, 2] $CellContext`z[], 
     $CellContext`x[]}, {$CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^
      Rational[-1, 2], -($CellContext`x[]^2 + $CellContext`y[]^2)^
      Rational[1, 2], 0}}, {$CellContext`cart, -$CellContext`sph}, 
   0][$CellContext`a, -$CellContext`b],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
           Annotation[#, {1, 1} -> Cos[
               $CellContext`\[Phi][]] Sin[
               $CellContext`\[Theta][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False]}]}]],
           Annotation[#, {1, 2} -> Cos[
               $CellContext`\[Theta][]] Cos[
               $CellContext`\[Phi][]] $CellContext`r[], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           Annotation[#, {1, 3} -> -$CellContext`r[] Sin[
               $CellContext`\[Theta][]] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           Annotation[#, {2, 1} -> Sin[
               $CellContext`\[Theta][]] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           Annotation[#, {2, 2} -> Cos[
               $CellContext`\[Theta][]] $CellContext`r[] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
           Annotation[#, {2, 3} -> Cos[
               $CellContext`\[Phi][]] $CellContext`r[] Sin[
               $CellContext`\[Theta][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["Cos",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Cos,
              Editable->False], "[", 
             InterpretationBox[
              StyleBox["\[Theta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Theta][],
              Editable->False], "]"}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], Cos, Editable -> False], "[", 
                InterpretationBox[
                 StyleBox[
                 "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`\[Theta][], Editable -> False], "]"}]}]],
           Annotation[#, {3, 1} -> Cos[
              $CellContext`\[Theta][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}]}]}]],
           Annotation[#, {3, 2} -> -$CellContext`r[] Sin[
               $CellContext`\[Theta][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 1, 0], 4 -> RGBColor[0, 1, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"a", " "},
         {" ", "b"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{Cos[
       $CellContext`\[Phi][]] Sin[
       $CellContext`\[Theta][]], Cos[
       $CellContext`\[Theta][]] Cos[
       $CellContext`\[Phi][]] $CellContext`r[], -$CellContext`r[] Sin[
       $CellContext`\[Theta][]] Sin[
       $CellContext`\[Phi][]]}, {Sin[
       $CellContext`\[Theta][]] Sin[
       $CellContext`\[Phi][]], Cos[
       $CellContext`\[Theta][]] $CellContext`r[] Sin[
       $CellContext`\[Phi][]], Cos[
       $CellContext`\[Phi][]] $CellContext`r[] Sin[
       $CellContext`\[Theta][]]}, {
     Cos[
      $CellContext`\[Theta][]], -$CellContext`r[] Sin[
       $CellContext`\[Theta][]], 0}}, {$CellContext`cart, -$CellContext`sph}, 
   0][$CellContext`a, -$CellContext`b],
  Editable->False]], "Output"]
}, Open  ]],

Cell["The determinant of the Jacobian of the transformation is ", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Jacobian", "[", 
    RowBox[{"cart", ",", "sph"}], "]"}], "[", "]"}], "//", 
  "ToValues"}]], "Input",
 ExpressionUUID -> "ad7f957c-a390-4592-a5f4-3fdc927a36fa"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   UnderscriptBox[
    OverscriptBox[
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"]}]], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["z",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`z[],
           Editable->False], "2"]}]]}]], 
     StyleBox["~",
      FontColor->RGBColor[0., 1., 0.]]], 
    StyleBox["~",
     FontColor->RGBColor[1., 0., 0.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[($CellContext`x[]^2 + $CellContext`y[]^2)^
    Rational[-1, 
      2] ($CellContext`x[]^2 + $CellContext`y[]^2 + $CellContext`z[]^2)^
    Rational[-1, 2], {}, $CellContext`cart - $CellContext`sph][],
  Editable->False]], "Output",
 ExpressionUUID -> "6aee8a0d-6931-4e2c-a597-19a4541bc1e4"]
}, Open  ]],

Cell["And its inverse is", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Jacobian", "[", 
    RowBox[{"sph", ",", "cart"}], "]"}], "[", "]"}], "//", 
  "ToValues"}]], "Input",
 ExpressionUUID -> "cf019128-ad49-42e1-b022-3aa5d30fd354"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   OverscriptBox[
    UnderscriptBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["x",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`x[],
          Editable->False], "2"], "+", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["y",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`y[],
          Editable->False], "2"]}]], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["x",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`x[],
          Editable->False], "2"], "+", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["y",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`y[],
          Editable->False], "2"], "+", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["z",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`z[],
          Editable->False], "2"]}]]}], 
     StyleBox["~",
      FontColor->RGBColor[0., 1., 0.]]], 
    StyleBox["~",
     FontColor->RGBColor[1., 0., 0.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[($CellContext`x[]^2 + $CellContext`y[]^2)^
    Rational[1, 
      2] ($CellContext`x[]^2 + $CellContext`y[]^2 + $CellContext`z[]^2)^
    Rational[1, 2], {}, -$CellContext`cart + $CellContext`sph][],
  Editable->False]], "Output",
 ExpressionUUID -> "28ff8c3f-47e5-4027-8ece-75713f0d2bb2"]
}, Open  ]],

Cell["\<\
When called with two arguments, SetBasisChange also compute derivatives, with \
respect to the given chart, 
so let us do that :\
\>", "Text",
 ExpressionUUID -> "97284321-b454-4414-a8cc-e8569df32726"],

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", 
  RowBox[{"cart2sphJacobian", ",", "cart"}], "]"}]], "Input",
 ExpressionUUID -> "2a900a79-795a-4653-a27e-e7c8584599cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Orthonormal basis in spherical coordinates", "Subsubsection",
 ExpressionUUID -> "bb4e98d1-0b47-49e5-afab-4e4e98177aa4"],

Cell["\<\
We also define an orthonormal basis related to spherical coordinates. Indeed, \
it is standard when using spherical coordinated to use this orthonormal basis \
rather than the holonomic basis.\
\>", "Text",
 ExpressionUUID -> "c62e601a-1f8f-44f6-8b2c-12ed75a5a1e3"],

Cell[BoxData[
 RowBox[{"DefBasis", "[", 
  RowBox[{"Osph", ",", "TangentR3", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"BasisColor", "\[Rule]", "Blue"}]}], "]"}]], "Input",
 ExpressionUUID -> "a9c109d5-5a1d-427d-aa17-f5586b6e30f9"],

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", 
  RowBox[{
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"r", "[", "]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{
          RowBox[{"r", "[", "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "sph"}], ",", "Osph"}], "}"}]}], "]"}], ",", "sph"}], 
  "]"}]], "Input",
 CellID->1009691769,
 ExpressionUUID -> "c3928df2-6ff2-44f7-8b3f-6948b6e43207"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Metric", "Subsubsection",
 ExpressionUUID -> "11bc37b5-dc62-4db2-96fe-cfe745a60d76"],

Cell["\<\
We can either define the metric with respect to the holonomic basis or the \
rthonormal basis\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"gsph", "=", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"r", "[", "]"}], "^", "2"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", "[", "]"}], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "]"}], "]"}]}], ")"}], "^", "2"}]}], 
      "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "sph"}], ",", 
      RowBox[{"-", "sph"}]}], "}"}], ",", "0"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"gOsph", "=", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "Osph"}], ",", 
      RowBox[{"-", "Osph"}]}], "}"}], ",", "0"}], "]"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False], "2"], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          InterpretationBox[
           StyleBox["Sin",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Sin,
           Editable->False], "[", 
          InterpretationBox[
           StyleBox["\[Theta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Theta][],
           Editable->False], "]"}], "2"]}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "sph"}], ",", 
     RowBox[{"-", "sph"}]}], "}"}], ",", "0"}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "Osph"}], ",", 
     RowBox[{"-", "Osph"}]}], "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["I think it is better to use  gsph", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "=", "gsph"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"SetCMetric", "[", 
  RowBox[{"g", ",", "sph", ",", 
   RowBox[{"SignatureOfMetric", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"3", ",", "0", ",", "0"}], "}"}]}]}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"We", " ", "check", " ", "that", " ", "this", " ", "is", " ", "the", 
  " ", 
  SubscriptBox["\[Delta]", "ij"], " ", "metric", " ", "in", " ", "Cartesian", 
  " ", "coordinates"}]], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gcart", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"g", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "cart"}], ",", 
        RowBox[{"-", "cart"}]}], "}"}]}], "]"}], "/.", "cart2sphRules"}], "//",
    "Simplify"}]}]], "Input",
 ExpressionUUID -> "45c411e9-143c-4f0e-8d44-79d0c65381d5"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "cart"}], ",", 
     RowBox[{"-", "cart"}]}], "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "87d693a5-f109-4287-9cc9-d74ecb929e0a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"We", " ", "check", " ", "also", " ", "that", " ", "the", " ", 
  "orthonormal", " ", "basis", " ", "is", " ", "indeed", " ", "an", " ", 
  "orthonormal", " ", "basis", " ", "and", " ", "that", " ", "in", " ", 
  "this", " ", "basis", " ", "the", " ", "metric", " ", "is", " ", 
  SubscriptBox["\[Delta]", "ij"]}]], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ToCTensor", "[", 
    RowBox[{"g", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "Osph"}], ",", 
       RowBox[{"-", "Osph"}]}], "}"}]}], "]"}], "/.", "cart2sphRules"}], "//",
   "Simplify"}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "Osph"}], ",", 
     RowBox[{"-", "Osph"}]}], "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Connection", "Subsubsection",
 ExpressionUUID -> "5a230e9e-74d9-4c78-9920-22a1230f0138"],

Cell["\<\
We set the Levi-Civita of the metric and we see that there is a connection \
between partial derivative in spherical coordinates and this connection.\
\>", "Text",
 ExpressionUUID -> "62ed794a-9213-4634-8cc7-73d7e1bb08aa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CD", "=", 
  RowBox[{"CovDOfMetric", "[", "g", "]"}]}]], "Input",
 ExpressionUUID -> "f8fa582b-60b9-45b3-b75d-71df28e5a5cd"],

Cell[BoxData[
 RowBox[{"CCovD", "[", 
  RowBox[{"PDsph", ",", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", 
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False]}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]}], " ", 
            SuperscriptBox[
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], "2"]}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           FractionBox["1", 
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False]], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["1", 
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False]], ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}]}], " ", 
            RowBox[{
             InterpretationBox[
              StyleBox["Sin",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Sin,
              Editable->False], "[", 
             InterpretationBox[
              StyleBox["\[Theta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Theta][],
              Editable->False], "]"}]}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           FractionBox["1", 
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False]]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{
            InterpretationBox[
             StyleBox["Cot",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Cot,
             Editable->False], "[", 
            InterpretationBox[
             StyleBox["\[Theta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Theta][],
             Editable->False], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["1", 
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False]], ",", 
           RowBox[{
            InterpretationBox[
             StyleBox["Cot",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Cot,
             Editable->False], "[", 
            InterpretationBox[
             StyleBox["\[Theta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Theta][],
             Editable->False], "]"}], ",", "0"}], "}"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"sph", ",", 
       RowBox[{"-", "sph"}], ",", 
       RowBox[{"-", "sph"}]}], "}"}], ",", "0"}], "]"}], ",", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False], "2"], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{
          SuperscriptBox[
           InterpretationBox[
            StyleBox["r",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`r[],
            Editable->False], "2"], " ", 
          SuperscriptBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Sin",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Sin,
             Editable->False], "[", 
            InterpretationBox[
             StyleBox["\[Theta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Theta][],
             Editable->False], "]"}], "2"]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "sph"}], ",", 
       RowBox[{"-", "sph"}]}], "}"}], ",", "0"}], "]"}]}], "]"}]], "Output",
 ExpressionUUID -> "59eda545-3e23-4fb1-9ec1-b196195f647a"]
}, Open  ]],

Cell["\<\
We can however check that there is no connection between partial derivative \
associated with Cartesian coordinates and the Levi - Civita Connection. We \
really have that CD = PDcart\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovDOfMetric", "[", "gcart", "]"}]], "Input",
 ExpressionUUID -> "a35515f2-75eb-4256-b460-bbc62c31076a"],

Cell[BoxData[
 RowBox[{"CCovD", "[", 
  RowBox[{"PDcart", ",", "Zero", ",", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "cart"}], ",", 
       RowBox[{"-", "cart"}]}], "}"}], ",", "0"}], "]"}]}], "]"}]], "Output",
 ExpressionUUID -> "3f104964-81b0-4fcc-a782-e7246e4048b5"]
}, Open  ]],

Cell["\<\
Instead of starting from the metric expressed in Cartesian coordinates, I \
could start from CD above, and use ToCCovD\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ToCCovD"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"ToCCovD[ccovd, pd] changes the CCovD covariante derivative \
ccovd to use the derivative pd in its first argument, modifying its \
Christoffel tensor as required. ToCCovD[ccovd, pd, bases] also changes the \
bases of the new Christoffel Tensor. ToCCovD[ccovd, pd, chrbases, metbases] \
changes the bases of both the Christoffel tensor and the associated metric \
tensor. \"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info433767348816-1282620"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CDcart", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"ToCCovD", "[", 
     RowBox[{"CD", ",", "PDcart", ",", "cart", ",", "cart"}], "]"}], "/.", 
    "sph2cartRules"}], "//", "Simplify"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"CCovD", "[", 
  RowBox[{"PDcart", ",", "Zero", ",", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "cart"}], ",", 
       RowBox[{"-", "cart"}]}], "}"}], ",", "0"}], "]"}]}], "]"}]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Curvature and Torsion", "Subsubsection",
 ExpressionUUID -> "c2c832da-a6e8-4567-9dd1-0092d41041d2"],

Cell["This computes all components of curvature tensors", "Text",
 ExpressionUUID -> "a5d109ed-5f7c-41e8-bc46-243f4292cf1b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MetricCompute", "[", 
   RowBox[{"g", ",", "sph", ",", "All"}], "]"}], "//", 
  "AbsoluteTiming"}]], "Input",
 ExpressionUUID -> "37d5bf54-7a98-48b7-9ac0-dbcbf8b25658"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.02409`", ",", "Null"}], "}"}]], "Output",
 ExpressionUUID -> "902d495b-6cf8-4e17-afde-6d5e852b46a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"riem", "=", 
    RowBox[{"Simplify", "@", 
     RowBox[{"Riemann", "[", "CD", "]"}]}]}], ")"}], "[", 
  RowBox[{
   RowBox[{"-", "a"}], ",", 
   RowBox[{"-", "b"}], ",", 
   RowBox[{"-", "c"}], ",", "d"}], "]"}]], "Input",
 ExpressionUUID -> "8d8ad44c-b807-40a2-9439-5c42a12e76d5"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "8a961fb2-354d-4b9f-b912-83ccf3bd265b"]
}, Open  ]],

Cell["\<\
Indeed there is no Riemann since the ambient space is Eucliend flat.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData["riem"], "Input"],

Cell[BoxData["Zero"], "Output"]
}, Open  ]],

Cell["\<\
We check that there is torsion for the derivative associated with the \
orthonormal basis, but not for the derivative associated with the spherical \
coordinates\
\>", "Text",
 ExpressionUUID -> "60f4aa2c-4e2e-4b0c-880f-fe5140316f8b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ToCTensor", "[", 
  RowBox[{"TorsionPDOsph", ",", 
   RowBox[{"{", 
    RowBox[{"Osph", ",", 
     RowBox[{"-", "Osph"}], ",", 
     RowBox[{"-", "Osph"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ToCTensor", "[", 
  RowBox[{"TorsionPDsph", ",", 
   RowBox[{"{", 
    RowBox[{"sph", ",", 
     RowBox[{"-", "sph"}], ",", 
     RowBox[{"-", "sph"}]}], "}"}]}], "]"}]}], "Input",
 ExpressionUUID -> "516aded8-f9f8-4282-a436-51a34e8b1459"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         FractionBox["1", 
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False]], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", 
           InterpretationBox[
            StyleBox["r",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`r[],
            Editable->False]]}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         FractionBox["1", 
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           InterpretationBox[
            StyleBox["Cot",
             ShowAutoStyles->False,
             AutoSpacing->False],
            Cot,
            Editable->False], "[", 
           InterpretationBox[
            StyleBox["\[Theta]",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`\[Theta][],
            Editable->False], "]"}], 
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", 
           InterpretationBox[
            StyleBox["r",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`r[],
            Editable->False]]}], ",", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            InterpretationBox[
             StyleBox["Cot",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Cot,
             Editable->False], "[", 
            InterpretationBox[
             StyleBox["\[Theta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Theta][],
             Editable->False], "]"}], 
           InterpretationBox[
            StyleBox["r",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`r[],
            Editable->False]]}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Osph", ",", 
     RowBox[{"-", "Osph"}], ",", 
     RowBox[{"-", "Osph"}]}], "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "8465aa44-5bcf-4607-9c58-e34210999420"],

Cell[BoxData["Zero"], "Output",
 ExpressionUUID -> "8465aa44-5bcf-4607-9c58-e34210999420"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Applications", "Section",
 ExpressionUUID -> "ceab54a4-1f34-4be8-8de2-b76185b6d434"],

Cell[CellGroupData[{

Cell["Simple Change of Basis", "Subsection"],

Cell[CellGroupData[{

Cell["A Custom function to change basis", "Subsubsection"],

Cell["\<\
It will be convenient to use the following function (suggested and coded by \
Jose-Maria Martin-Garcia)\
\>", "Text",
 ExpressionUUID -> "cef4e091-0fba-4dc3-b001-3f6a191ed9aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"basisAs", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"oldbasis_", "?", "BasisQ"}]}], ",", "newbasis_"}], "]"}], ":=", 
   RowBox[{"-", "newbasis"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"basisAs", "[", 
    RowBox[{
     RowBox[{"oldbasis_", "?", "BasisQ"}], ",", "newbasis_"}], "]"}], ":=", 
   "newbasis"}], ";"}]}], "Input",
 ExpressionUUID -> "a0b0e732-a67b-44c3-88b4-8b08aae49504"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ReplaceBases", "[", 
   RowBox[{"expr_", ",", 
    RowBox[{"newbasis_", "?", "BasisQ"}]}], "]"}], ":=", 
  RowBox[{"expr", "/.", 
   RowBox[{"ctensor_CTensor", "\[RuleDelayed]", 
    RowBox[{"ToCTensor", "[", 
     RowBox[{"ctensor", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"basisAs", "[", 
         RowBox[{"#", ",", "newbasis"}], "]"}], "&"}], "/@", 
       RowBox[{"xAct`xCoba`Private`CTensorBases", "[", "ctensor", "]"}]}]}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ReplaceBases", "[", 
    RowBox[{"expr_", ",", "newbases_List"}], "]"}], ":=", 
   RowBox[{"expr", "/.", 
    RowBox[{"ctensor_CTensor", "\[RuleDelayed]", 
     RowBox[{"ToCTensor", "[", 
      RowBox[{"ctensor", ",", "newbases"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ReplaceBases", "[", "newbases_", "]"}], "[", "expr_", "]"}], ":=", 
   RowBox[{"ReplaceBases", "[", 
    RowBox[{"expr", ",", "newbases"}], "]"}]}], ";"}]}], "Input",
 ExpressionUUID -> "cb0e5f37-853a-4864-ba96-824b4976fa8b"],

Cell["\<\
Increase limit to make sure all expressions that follow are displayed:\
\>", "Text",
 ExpressionUUID -> "e47ac68c-b2f0-4c60-99e3-e941c4e31d16"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xAct`xCoba`$LargeComponentSize", "=", "10000"}], ";"}]], "Input",
 ExpressionUUID -> "5fa91307-7315-4afd-859c-fc68b88b8407"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example on a magnetic field", "Subsubsection"],

Cell["\<\
The field created by a dipole (aligned with the z direction) is of the form.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BOsph", "=", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Theta]", "[", "]"}], "]"}], "/", 
        RowBox[{
         RowBox[{"r", "[", "]"}], "^", "3"}]}]}], ",", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", "[", "]"}], "]"}], "/", 
       RowBox[{
        RowBox[{"r", "[", "]"}], "^", "3"}]}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", "Osph", "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{
        InterpretationBox[
         StyleBox["Cos",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Cos,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}]}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False], "3"]], ",", 
     FractionBox[
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Theta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Theta][],
        Editable->False], "]"}], 
      SuperscriptBox[
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False], "3"]], ",", "0"}], "}"}], ",", 
   RowBox[{"{", "Osph", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["\<\
Its form in Cartesian coordinates is (we go from Osph to sph and then cart \
because we never specified how to relate Osph to cart.)\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ToCTensor", "[", 
    RowBox[{
     RowBox[{"ToCTensor", "[", 
      RowBox[{"BOsph", ",", 
       RowBox[{"{", "sph", "}"}]}], "]"}], ",", 
     RowBox[{"{", "cart", "}"}]}], "]"}], "/.", "sph2cartRules"}], "//", 
  "Simplify"}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox["x",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`x[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["z",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`z[],
        Editable->False]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["z",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`z[],
           Editable->False], "2"]}], ")"}], 
       RowBox[{"5", "/", "2"}]]], ",", 
     FractionBox[
      RowBox[{"3", " ", 
       InterpretationBox[
        StyleBox["y",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`y[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox["z",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`z[],
        Editable->False]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["z",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`z[],
           Editable->False], "2"]}], ")"}], 
       RowBox[{"5", "/", "2"}]]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["x",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`x[],
          Editable->False], "2"]}], "-", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["y",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`y[],
         Editable->False], "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         InterpretationBox[
          StyleBox["z",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`z[],
          Editable->False], "2"]}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["x",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`x[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["y",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`y[],
           Editable->False], "2"], "+", 
         SuperscriptBox[
          InterpretationBox[
           StyleBox["z",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`z[],
           Editable->False], "2"]}], ")"}], 
       RowBox[{"5", "/", "2"}]]]}], "}"}], ",", 
   RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["\<\
Or we can use of the ReplaceBases function introduced in the section above.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"BOsph", "[", "i", "]"}], "//", 
      RowBox[{"ReplaceBases", "[", "sph", "]"}]}], "//", 
     RowBox[{"ReplaceBases", "[", "cart", "]"}]}], ")"}], "/.", 
   "sph2cartRules"}], "//", "Simplify"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{"3", " ", 
              InterpretationBox[
               StyleBox["x",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`x[],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox["z",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`z[],
               Editable->False]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["x",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`x[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["y",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`y[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["z",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`z[],
                  Editable->False], "2"]}], ")"}], 
              RowBox[{"5", "/", "2"}]]],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{"3", " ", 
                 InterpretationBox[
                  StyleBox[
                  "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`x[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}], 
                RowBox[{"5", "/", "2"}]]]}]],
           
           Annotation[#, {1} -> 
            3 $CellContext`x[] $CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-5, 2], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{"3", " ", 
              InterpretationBox[
               StyleBox["y",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`y[],
               Editable->False], " ", 
              InterpretationBox[
               StyleBox["z",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`z[],
               Editable->False]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["x",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`x[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["y",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`y[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["z",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`z[],
                  Editable->False], "2"]}], ")"}], 
              RowBox[{"5", "/", "2"}]]],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{"3", " ", 
                 InterpretationBox[
                  StyleBox[
                  "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`y[], Editable -> False], " ", 
                 InterpretationBox[
                  StyleBox[
                  "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`z[], Editable -> False]}], 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}], 
                RowBox[{"5", "/", "2"}]]]}]],
           
           Annotation[#, {2} -> 
            3 $CellContext`y[] $CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-5, 2], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["x",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`x[],
                 Editable->False], "2"]}], "-", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["y",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`y[],
                Editable->False], "2"], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["z",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`z[],
                 Editable->False], "2"]}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["x",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`x[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["y",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`y[],
                  Editable->False], "2"], "+", 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["z",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`z[],
                  Editable->False], "2"]}], ")"}], 
              RowBox[{"5", "/", "2"}]]],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{"-", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"]}], "-", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`y[], Editable -> False], "2"], "+", 
                 RowBox[{"2", " ", 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}]}], 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "x", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`x[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "y", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`y[], Editable -> False], "2"], "+", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "z", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`z[], Editable -> False], "2"]}], ")"}], 
                RowBox[{"5", "/", "2"}]]]}]],
           
           Annotation[#, {
             3} -> ($CellContext`x[]^2 + $CellContext`y[]^2 + \
$CellContext`z[]^2)^Rational[-5, 2] (-$CellContext`x[]^2 - $CellContext`y[]^2 + 
              2 $CellContext`z[]^2), "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 1, 0], 2 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{
   3 $CellContext`x[] $CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^Rational[-5, 2], 
    3 $CellContext`y[] $CellContext`z[] ($CellContext`x[]^2 + \
$CellContext`y[]^2 + $CellContext`z[]^2)^
     Rational[-5, 
       2], ($CellContext`x[]^2 + $CellContext`y[]^2 + $CellContext`z[]^2)^
     Rational[-5, 2] (-$CellContext`x[]^2 - $CellContext`y[]^2 + 
     2 $CellContext`z[]^2)}, {$CellContext`cart}, 0][$CellContext`i],
  Editable->False]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vectorial calculus ", "Subsection",
 ExpressionUUID -> "38a75ee1-6bdc-4afe-ae3c-d8ce44ceffd4"],

Cell[CellGroupData[{

Cell["Setup", "Subsubsection",
 ExpressionUUID -> "76c4c190-45b0-42d6-a553-97f3b5f102e2"],

Cell["\<\
We would like to reproduce the usual formulas of vector calculus in spherical \
coordinates. \
\>", "Text",
 ExpressionUUID -> "9b1bcbe8-ae9b-4696-8a7f-6d5dda79bb5c"],

Cell["We define a vector field and a scalar field.", "Text",
 ExpressionUUID -> "8071e4a5-b8f1-4c14-8099-bb410f3e721b"],

Cell[BoxData[{
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"S", "[", "]"}], ",", "R3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"V", "[", "i", "]"}], ",", "R3"}], "]"}]}], "Input",
 ExpressionUUID -> "f4db8f3c-c9b6-49c3-94ef-4fa34dfaae35"],

Cell["And its associated CTensor vector, in various bases:", "Text",
 ExpressionUUID -> "521582b5-a5c2-436c-964f-256758aa5b35"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Vsph", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{"V", ",", 
    RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Vcart", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{"V", ",", 
    RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"VOsph1", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{"V", ",", 
    RowBox[{"{", "Osph", "}"}], ",", "0"}], "]"}]}]}], "Input",
 ExpressionUUID -> "1678c5b0-0e2a-4a60-aa26-724a5f0d37c0"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[1., 0., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{1, $CellContext`sph}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["2",
               FontColor->RGBColor[1., 0., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{2, $CellContext`sph}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["3",
               FontColor->RGBColor[1., 0., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{3, $CellContext`sph}],
      Editable->False]}], "}"}], ",", 
   RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "56c5c5a8-b7d9-4056-8f40-b71420b99ba0"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[0., 1., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{1, $CellContext`cart}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["2",
               FontColor->RGBColor[0., 1., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{2, $CellContext`cart}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["3",
               FontColor->RGBColor[0., 1., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{3, $CellContext`cart}],
      Editable->False]}], "}"}], ",", 
   RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "56c5c5a8-b7d9-4056-8f40-b71420b99ba0"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[0., 0., 1.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{1, $CellContext`Osph}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["2",
               FontColor->RGBColor[0., 0., 1.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{2, $CellContext`Osph}],
      Editable->False], ",", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["3",
               FontColor->RGBColor[0., 0., 1.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{3, $CellContext`Osph}],
      Editable->False]}], "}"}], ",", 
   RowBox[{"{", "Osph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "56c5c5a8-b7d9-4056-8f40-b71420b99ba0"]
}, Open  ]],

Cell["\<\
Also in spherical coordinates we usually express results in terms of vector \
components in the orthonormal basis. Hence we transform the components inside \
Vsph\
\>", "Text",
 ExpressionUUID -> "342e51b5-9e48-48f9-83a0-2b5087261455"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VOsph", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{"VOsph1", ",", 
    RowBox[{"{", "sph", "}"}]}], "]"}]}]], "Input",
 ExpressionUUID -> "4cc2e007-abd1-47b5-b193-de3fb0577afa"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[0., 0., 1.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{1, $CellContext`Osph}],
      Editable->False], ",", 
     FractionBox[
      InterpretationBox[
       StyleBox[GridBox[{
          {"V", 
           StyleBox[GridBox[{
              {
               StyleBox["2",
                FontColor->RGBColor[0., 0., 1.]]},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`V[{2, $CellContext`Osph}],
       Editable->False], 
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox["Csc",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Csc,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {"V", 
            StyleBox[GridBox[{
               {
                StyleBox["3",
                 FontColor->RGBColor[0., 0., 1.]]},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`V[{3, $CellContext`Osph}],
        Editable->False]}], 
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False]]}], "}"}], ",", 
   RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "6846c1f8-8c11-4bcb-9f02-2b485bfb812d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Gradient", "Subsubsection",
 ExpressionUUID -> "6e2cebf7-93c2-4750-bf71-ec723daca63a"],

Cell["With Cartesian coordinates:", "Text",
 ExpressionUUID -> "8f617bf1-5b9f-4be5-b2e4-06db5009aa93"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDcart", "[", 
   RowBox[{"-", "i"}], "]"}], "[", 
  RowBox[{"S", "[", "]"}], "]"}]], "Input",
 ExpressionUUID -> "fff76420-5262-4c44-b9d1-394506b41524"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[0., 1., 0.]], 
                StyleBox["1",
                 FontColor->RGBColor[0., 1., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDcart[{1, -$CellContext`cart}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.\
, 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {1} -> $CellContext`PDcart[{1, -$CellContext`cart}][
              $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[0., 1., 0.]], 
                StyleBox["2",
                 FontColor->RGBColor[0., 1., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDcart[{2, -$CellContext`cart}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.\
, 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {2} -> $CellContext`PDcart[{2, -$CellContext`cart}][
              $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[0., 1., 0.]], 
                StyleBox["3",
                 FontColor->RGBColor[0., 1., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDcart[{3, -$CellContext`cart}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[0.\
, 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {3} -> $CellContext`PDcart[{3, -$CellContext`cart}][
              $CellContext`S[]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 1, 0], 2 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" "},
         {"i"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{
    $CellContext`PDcart[{1, -$CellContext`cart}][
     $CellContext`S[]], 
    $CellContext`PDcart[{2, -$CellContext`cart}][
     $CellContext`S[]], 
    $CellContext`PDcart[{3, -$CellContext`cart}][
     $CellContext`S[]]}, {-$CellContext`cart}, 0][-$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "a7b29099-7bf9-454e-9701-8d06bf5ce793"]
}, Open  ]],

Cell["With spherical coordinates:", "Text",
 ExpressionUUID -> "02975392-9c8a-4f43-a4c7-e3d94ccda598"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CD", "[", 
   RowBox[{"-", "i"}], "]"}], "[", 
  RowBox[{"S", "[", "]"}], "]"}]], "Input",
 ExpressionUUID -> "882e8b4c-8b59-471a-9d2e-d8357122246f"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[1., 0., 0.]], 
                StyleBox["1",
                 FontColor->RGBColor[1., 0., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDsph[{1, -$CellContext`sph}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[1.\
, 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {1} -> $CellContext`PDsph[{1, -$CellContext`sph}][
              $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[1., 0., 0.]], 
                StyleBox["2",
                 FontColor->RGBColor[1., 0., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDsph[{2, -$CellContext`sph}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[1.\
, 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {2} -> $CellContext`PDsph[{2, -$CellContext`sph}][
              $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[1., 0., 0.]], 
                StyleBox["3",
                 FontColor->RGBColor[1., 0., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDsph[{3, -$CellContext`sph}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[1.\
, 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {3} -> $CellContext`PDsph[{3, -$CellContext`sph}][
              $CellContext`S[]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" "},
         {"i"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{
    $CellContext`PDsph[{1, -$CellContext`sph}][
     $CellContext`S[]], 
    $CellContext`PDsph[{2, -$CellContext`sph}][
     $CellContext`S[]], 
    $CellContext`PDsph[{3, -$CellContext`sph}][
     $CellContext`S[]]}, {-$CellContext`sph}, 0][-$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "e08def17-03fd-47b6-bb3e-f7a28ea9b6ae"]
}, Open  ]],

Cell["\<\
But if we want the components of the gradient in the orthonormal basis it is :\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", 
  RowBox[{"ReplaceBases", "[", "Osph", "]"}]}]], "Input",
 ExpressionUUID -> "0b36caf3-e3db-4f0d-a9e7-be0915f65269"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            InterpretationBox[
             StyleBox[
              RowBox[{
               SubscriptBox[
                StyleBox["\[ScriptCapitalD]",
                 FontColor->RGBColor[1., 0., 0.]], 
                StyleBox["1",
                 FontColor->RGBColor[1., 0., 0.]]], "S"}],
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`PDsph[{1, -$CellContext`sph}][
              $CellContext`S[]],
             Editable->False],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              InterpretationBox[
               StyleBox[
                RowBox[{
                  SubscriptBox[
                  "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[1.\
, 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                  "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`S[]], Editable -> False]}]],
           Annotation[#, {1} -> $CellContext`PDsph[{1, -$CellContext`sph}][
              $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[1., 0., 0.]]], "S"}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{2, -$CellContext`sph}][
               $CellContext`S[]],
              Editable->False], 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                 RowBox[{
                   SubscriptBox[
                   "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                   "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`S[]], Editable -> False], 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           
           Annotation[#, {
             2} -> $CellContext`r[]^(-1) $CellContext`PDsph[{
               2, -$CellContext`sph}][
               $CellContext`S[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                   StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], "S"}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`S[]],
                Editable->False], ")"}]}], 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                 RowBox[{"(", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    "S"}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`S[]], Editable -> False], ")"}]}], 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {3} -> Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-1) \
$CellContext`PDsph[{3, -$CellContext`sph}][
               $CellContext`S[]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" "},
         {"i"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{
    $CellContext`PDsph[{1, -$CellContext`sph}][
     $CellContext`S[]], $CellContext`r[]^(-1) $CellContext`PDsph[{
      2, -$CellContext`sph}][
      $CellContext`S[]], Csc[
      $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`PDsph[{
      3, -$CellContext`sph}][
      $CellContext`S[]]}, {-$CellContext`Osph}, 0][-$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "fd6b2207-ede6-4d33-9036-6823ca176acd"]
}, Open  ]],

Cell["Compare to", "Text",
 ExpressionUUID -> "f8fb5ab9-4575-4bf3-a59c-548a24d17570"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Grad", "[", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
    "\"\<Spherical\>\""}], "]"}], "//", "MatrixForm"}]], "Input",
 ExpressionUUID -> "48193e5f-934a-4806-824a-d06d06239522"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        SuperscriptBox["S", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["S", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          InterpretationBox[
           StyleBox["Csc",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Csc,
           Editable->False], "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["S", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 ExpressionUUID -> "f7e18678-039a-4694-a3b4-f0ea8ebfb0b4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Divergence", "Subsubsection",
 ExpressionUUID -> "0c829818-8b79-4654-b0bb-a799dcc55f05"],

Cell["With Cartesian coordinates:", "Text",
 ExpressionUUID -> "7602e8f9-68d1-47ed-a9e6-8704792e16d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CDcart", "[", 
   RowBox[{"-", "i"}], "]"}], "@", 
  RowBox[{"Vcart", "[", "i", "]"}]}]], "Input",
 ExpressionUUID -> "24bca610-93b4-4bdc-bb17-76b8dda024d0"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[0., 1., 0.]]], GridBox[{
       {"V", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 1., 0.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{1, -$CellContext`cart}][
    $CellContext`V[{1, $CellContext`cart}]],
   Editable->False], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["2",
       FontColor->RGBColor[0., 1., 0.]]], GridBox[{
       {"V", 
        StyleBox[GridBox[{
           {
            StyleBox["2",
             FontColor->RGBColor[0., 1., 0.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{2, -$CellContext`cart}][
    $CellContext`V[{2, $CellContext`cart}]],
   Editable->False], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["3",
       FontColor->RGBColor[0., 1., 0.]]], GridBox[{
       {"V", 
        StyleBox[GridBox[{
           {
            StyleBox["3",
             FontColor->RGBColor[0., 1., 0.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{3, -$CellContext`cart}][
    $CellContext`V[{3, $CellContext`cart}]],
   Editable->False]}]], "Output",
 ExpressionUUID -> "542e3357-bca7-4c60-bdba-db594da55f69"]
}, Open  ]],

Cell["With spherical coordinates:", "Text",
 ExpressionUUID -> "7602e8f9-68d1-47ed-a9e6-8704792e16d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CD", "[", 
   RowBox[{"-", "i"}], "]"}], "@", 
  RowBox[{"Vsph", "[", "i", "]"}]}]], "Input",
 ExpressionUUID -> "c8fa7957-1f4a-49e9-a772-1a074651ab4f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[1., 0., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[1., 0., 0.]]], GridBox[{
       {"V", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[1., 0., 0.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDsph[{1, -$CellContext`sph}][
    $CellContext`V[{1, $CellContext`sph}]],
   Editable->False], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"V", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`V[{1, $CellContext`sph}],
     Editable->False], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[1., 0., 0.]], 
          StyleBox["2",
           FontColor->RGBColor[1., 0., 0.]]], GridBox[{
           {"V", 
            StyleBox[GridBox[{
               {
                StyleBox["2",
                 FontColor->RGBColor[1., 0., 0.]]},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{2, $CellContext`sph}]],
       Editable->False], ")"}]}]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]], "+", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"V", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`V[{1, $CellContext`sph}],
     Editable->False], "+", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox["Cot",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Cot,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}], " ", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"V", 
          StyleBox[GridBox[{
             {
              StyleBox["2",
               FontColor->RGBColor[1., 0., 0.]]},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                 Offset[0.]}}, "RowsIndexed" -> {}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Center}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`V[{2, $CellContext`sph}],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], " ", 
     RowBox[{"(", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox[
          StyleBox["\[ScriptCapitalD]",
           FontColor->RGBColor[1., 0., 0.]], 
          StyleBox["3",
           FontColor->RGBColor[1., 0., 0.]]], GridBox[{
           {"V", 
            StyleBox[GridBox[{
               {
                StyleBox["3",
                 FontColor->RGBColor[1., 0., 0.]]},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                   Offset[0.]}}, "RowsIndexed" -> {}}],
             FontSize->Rational[39, 4]]}
          },
          
          GridBoxAlignment->{
           "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{Center}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{3, $CellContext`sph}]],
       Editable->False], ")"}]}]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]]}]], "Output",
 ExpressionUUID -> "a2009f1b-5295-47b3-b7fe-c6ac13f4da80"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CD", "[", 
    RowBox[{"-", "i"}], "]"}], "@", 
   RowBox[{"VOsph", "[", "i", "]"}]}], "//", "Expand"}]], "Input",
 ExpressionUUID -> "7503577f-370d-47d0-9ba4-89fac8ff3764"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"V", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`V[{1, $CellContext`Osph}],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Cot",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Cot,
      Editable->False], "[", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False], "]"}], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"V", 
         StyleBox[GridBox[{
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`V[{2, $CellContext`Osph}],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[1., 0., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[1., 0., 0.]]], GridBox[{
       {"V", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDsph[{1, -$CellContext`sph}][
    $CellContext`V[{1, $CellContext`Osph}]],
   Editable->False], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       StyleBox["\[ScriptCapitalD]",
        FontColor->RGBColor[1., 0., 0.]], 
       StyleBox["2",
        FontColor->RGBColor[1., 0., 0.]]], GridBox[{
        {"V", 
         StyleBox[GridBox[{
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`PDsph[{2, -$CellContext`sph}][
     $CellContext`V[{2, $CellContext`Osph}]],
    Editable->False], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Csc",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Csc,
      Editable->False], "[", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False], "]"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[1., 0., 0.]], 
         StyleBox["3",
          FontColor->RGBColor[1., 0., 0.]]], GridBox[{
          {"V", 
           StyleBox[GridBox[{
              {
               StyleBox["3",
                FontColor->RGBColor[0., 0., 1.]]},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                  Offset[0.]}}, "RowsIndexed" -> {}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{
          "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Center}}, "RowsIndexed" -> {}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}, "RowsIndexed" -> {}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`PDsph[{3, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`Osph}]],
      Editable->False], ")"}]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]]}]], "Output",
 ExpressionUUID -> "dd751ca6-9ad9-4396-9380-f81b7506f2e7"]
}, Open  ]],

Cell["Compare to:", "Text",
 ExpressionUUID -> "1c367519-ecc6-42a9-8157-0f406d2fb9af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Div", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"v1", "[", 
       RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"v2", "[", 
       RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"v3", "[", 
       RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
    "\"\<Spherical\>\""}], "]"}], "//", "Expand"}]], "Input",
 ExpressionUUID -> "6b142e0c-a2c9-48ec-bc16-ccba4b6b8cec"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"v1", "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Cot",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Cot,
      Editable->False], "[", "\[Theta]", "]"}], " ", 
    RowBox[{"v2", "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Csc",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Csc,
      Editable->False], "[", "\[Theta]", "]"}], " ", 
    RowBox[{
     SuperscriptBox["v3", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["v2", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"], "+", 
  RowBox[{
   SuperscriptBox["v1", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]], "Output",
 ExpressionUUID -> "fff41dfb-6bb3-41f2-99de-b7d4f3b74634"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Laplacian of scalars", "Subsubsection",
 ExpressionUUID -> "7d3e85ec-1c35-4287-a995-7192c4b4b547"],

Cell["With Cartesian coordinates ", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CDcart", "[", "i", "]"}], "[", 
    RowBox[{
     RowBox[{"CDcart", "[", 
      RowBox[{"-", "i"}], "]"}], "[", 
     RowBox[{"S", "[", "]"}], "]"}], "]"}], "/.", "sph2cartRules"}], "//", 
  "Simplify"}]], "Input"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[0., 1., 0.]]], 
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[0., 1., 0.]]], "S"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{1, -$CellContext`cart}][
    $CellContext`PDcart[{1, -$CellContext`cart}][
     $CellContext`S[]]],
   Editable->False], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["2",
       FontColor->RGBColor[0., 1., 0.]]], 
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["2",
       FontColor->RGBColor[0., 1., 0.]]], "S"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{2, -$CellContext`cart}][
    $CellContext`PDcart[{2, -$CellContext`cart}][
     $CellContext`S[]]],
   Editable->False], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["3",
       FontColor->RGBColor[0., 1., 0.]]], 
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[0., 1., 0.]], 
      StyleBox["3",
       FontColor->RGBColor[0., 1., 0.]]], "S"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDcart[{3, -$CellContext`cart}][
    $CellContext`PDcart[{3, -$CellContext`cart}][
     $CellContext`S[]]],
   Editable->False]}]], "Output"]
}, Open  ]],

Cell["With spherical coordinates.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "[", 
   RowBox[{
    RowBox[{"CD", "[", 
     RowBox[{"-", "i"}], "]"}], "[", 
    RowBox[{"S", "[", "]"}], "]"}], "]"}], "//", "Expand"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[1., 0., 0.]], 
         StyleBox["1",
          FontColor->RGBColor[1., 0., 0.]]], "S"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`S[]],
      Editable->False], ")"}]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[1., 0., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[1., 0., 0.]]], 
     SubscriptBox[
      StyleBox["\[ScriptCapitalD]",
       FontColor->RGBColor[1., 0., 0.]], 
      StyleBox["1",
       FontColor->RGBColor[1., 0., 0.]]], "S"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`PDsph[{1, -$CellContext`sph}][
    $CellContext`PDsph[{1, -$CellContext`sph}][
     $CellContext`S[]]],
   Editable->False], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Cot",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Cot,
      Editable->False], "[", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False], "]"}], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[1., 0., 0.]], 
         StyleBox["2",
          FontColor->RGBColor[1., 0., 0.]]], "S"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`PDsph[{2, -$CellContext`sph}][
       $CellContext`S[]],
      Editable->False], ")"}]}], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "2"]], "+", 
  FractionBox[
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox[
       StyleBox["\[ScriptCapitalD]",
        FontColor->RGBColor[1., 0., 0.]], 
       StyleBox["2",
        FontColor->RGBColor[1., 0., 0.]]], 
      SubscriptBox[
       StyleBox["\[ScriptCapitalD]",
        FontColor->RGBColor[1., 0., 0.]], 
       StyleBox["2",
        FontColor->RGBColor[1., 0., 0.]]], "S"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`PDsph[{2, -$CellContext`sph}][
     $CellContext`PDsph[{2, -$CellContext`sph}][
      $CellContext`S[]]],
    Editable->False], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "2"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{
      InterpretationBox[
       StyleBox["Csc",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Csc,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}], "2"], " ", 
    RowBox[{"(", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[1., 0., 0.]], 
         StyleBox["3",
          FontColor->RGBColor[1., 0., 0.]]], 
        SubscriptBox[
         StyleBox["\[ScriptCapitalD]",
          FontColor->RGBColor[1., 0., 0.]], 
         StyleBox["3",
          FontColor->RGBColor[1., 0., 0.]]], "S"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`PDsph[{3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`S[]]],
      Editable->False], ")"}]}], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "2"]]}]], "Output"]
}, Open  ]],

Cell["Let us prove that \[CapitalDelta] (1/r) = 0", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"S", "[", "]"}], "\[Rule]", 
   RowBox[{"1", "/", 
    RowBox[{"r", "[", "]"}]}]}]}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]],

Cell["Compare to:", "Text",
 ExpressionUUID -> "b90219ef-556d-43ea-906c-eae1ad18425f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Laplacian", "[", 
   RowBox[{
    RowBox[{"S", "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
    "\"\<Spherical\>\""}], "]"}], "//", "Expand"}]], "Input",
 ExpressionUUID -> "5fad6d46-ac2d-42ec-aba0-84ce8bee112a"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{
      InterpretationBox[
       StyleBox["Csc",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Csc,
       Editable->False], "[", "\[Theta]", "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["S", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], 
   SuperscriptBox["r", "2"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox["Cot",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Cot,
      Editable->False], "[", "\[Theta]", "]"}], " ", 
    RowBox[{
     SuperscriptBox["S", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], 
   SuperscriptBox["r", "2"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["S", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], 
   SuperscriptBox["r", "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{
     SuperscriptBox["S", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "+", 
  RowBox[{
   SuperscriptBox["S", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]], "Output",
 ExpressionUUID -> "de528986-ab5c-4964-80ba-34e26be08a8f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Laplacian of vectors", "Subsubsection",
 ExpressionUUID -> "63180e13-bd37-4694-91eb-f21f7f0fcf04"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CDcart", "[", "j", "]"}], "[", 
    RowBox[{
     RowBox[{"CDcart", "[", 
      RowBox[{"-", "j"}], "]"}], "[", 
     RowBox[{"Vcart", "[", "k", "]"}], "]"}], "]"}], "/.", "sph2cartRules"}], 
  "//", "Simplify"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{1, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{1, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{1, $CellContext`cart}]]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{1, -$CellContext`cart}][
                  $CellContext`PDcart[{1, -$CellContext`cart}][
                   $CellContext`V[{1, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{2, -$CellContext`cart}][
                  $CellContext`PDcart[{2, -$CellContext`cart}][
                   $CellContext`V[{1, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{3, -$CellContext`cart}][
                  $CellContext`PDcart[{3, -$CellContext`cart}][
                   $CellContext`V[{1, $CellContext`cart}]]], Editable -> 
                 False]}]}]],
           Annotation[#, {1} -> $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{
                 1, $CellContext`cart}]]] + $CellContext`PDcart[{
               2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{
                 1, $CellContext`cart}]]] + $CellContext`PDcart[{
               3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{1, $CellContext`cart}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{2, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{2, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{2, $CellContext`cart}]]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{1, -$CellContext`cart}][
                  $CellContext`PDcart[{1, -$CellContext`cart}][
                   $CellContext`V[{2, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{2, -$CellContext`cart}][
                  $CellContext`PDcart[{2, -$CellContext`cart}][
                   $CellContext`V[{2, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{3, -$CellContext`cart}][
                  $CellContext`PDcart[{3, -$CellContext`cart}][
                   $CellContext`V[{2, $CellContext`cart}]]], Editable -> 
                 False]}]}]],
           Annotation[#, {2} -> $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{
                 2, $CellContext`cart}]]] + $CellContext`PDcart[{
               2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{
                 2, $CellContext`cart}]]] + $CellContext`PDcart[{
               3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{2, $CellContext`cart}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{3, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{3, $CellContext`cart}]]],
              Editable->False], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{3, $CellContext`cart}]]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{1, -$CellContext`cart}][
                  $CellContext`PDcart[{1, -$CellContext`cart}][
                   $CellContext`V[{3, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{2, -$CellContext`cart}][
                  $CellContext`PDcart[{2, -$CellContext`cart}][
                   $CellContext`V[{3, $CellContext`cart}]]], Editable -> 
                 False], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{3, -$CellContext`cart}][
                  $CellContext`PDcart[{3, -$CellContext`cart}][
                   $CellContext`V[{3, $CellContext`cart}]]], Editable -> 
                 False]}]}]],
           Annotation[#, {3} -> $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{
                 3, $CellContext`cart}]]] + $CellContext`PDcart[{
               2, -$CellContext`cart}][
               $CellContext`PDcart[{2, -$CellContext`cart}][
                $CellContext`V[{
                 3, $CellContext`cart}]]] + $CellContext`PDcart[{
               3, -$CellContext`cart}][
               $CellContext`PDcart[{3, -$CellContext`cart}][
                $CellContext`V[{3, $CellContext`cart}]]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 1, 0], 2 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"k"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{$CellContext`PDcart[{1, -$CellContext`cart}][
      $CellContext`PDcart[{1, -$CellContext`cart}][
       $CellContext`V[{1, $CellContext`cart}]]] + $CellContext`PDcart[{
      2, -$CellContext`cart}][
      $CellContext`PDcart[{2, -$CellContext`cart}][
       $CellContext`V[{1, $CellContext`cart}]]] + $CellContext`PDcart[{
      3, -$CellContext`cart}][
      $CellContext`PDcart[{3, -$CellContext`cart}][
       $CellContext`V[{1, $CellContext`cart}]]], $CellContext`PDcart[{
      1, -$CellContext`cart}][
      $CellContext`PDcart[{1, -$CellContext`cart}][
       $CellContext`V[{2, $CellContext`cart}]]] + $CellContext`PDcart[{
      2, -$CellContext`cart}][
      $CellContext`PDcart[{2, -$CellContext`cart}][
       $CellContext`V[{2, $CellContext`cart}]]] + $CellContext`PDcart[{
      3, -$CellContext`cart}][
      $CellContext`PDcart[{3, -$CellContext`cart}][
       $CellContext`V[{2, $CellContext`cart}]]], $CellContext`PDcart[{
      1, -$CellContext`cart}][
      $CellContext`PDcart[{1, -$CellContext`cart}][
       $CellContext`V[{3, $CellContext`cart}]]] + $CellContext`PDcart[{
      2, -$CellContext`cart}][
      $CellContext`PDcart[{2, -$CellContext`cart}][
       $CellContext`V[{3, $CellContext`cart}]]] + $CellContext`PDcart[{
      3, -$CellContext`cart}][
      $CellContext`PDcart[{3, -$CellContext`cart}][
       $CellContext`V[{3, $CellContext`cart}]]]}, {$CellContext`cart}, 
   0][$CellContext`k],
  Editable->False]], "Output"]
}, Open  ]],

Cell["In spherical coordinates, it works very well:", "Text",
 ExpressionUUID -> "e4fc4484-2361-48b3-8c4a-683336f0952e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CD", "[", 
     RowBox[{"-", "j"}], "]"}], "@", 
    RowBox[{
     RowBox[{"CD", "[", "j", "]"}], "[", 
     RowBox[{"Vsph", "[", "i", "]"}], "]"}]}], "//", "Simplify"}], "//", 
  "Expand"}]], "Input",
 ExpressionUUID -> "1d3f1716-7f4e-4aea-974a-918daa3626fd"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`V[{1, $CellContext`sph}],
                 Editable->False]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "2"]]}], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{2, $CellContext`sph}],
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`sph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{1, $CellContext`sph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{1, $CellContext`sph}], Editable -> 
                    False]}], 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]]}], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{2, $CellContext`sph}], Editable -> 
                    False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{1, $CellContext`sph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           
           Annotation[#, {
             1} -> (-2) $CellContext`r[]^(-2) $CellContext`V[{
                1, $CellContext`sph}] - 2 Cot[
               $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`V[{
               2, $CellContext`sph}] + 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]]] + Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]] - 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
               2, -$CellContext`sph}][
               $CellContext`V[{
                2, $CellContext`sph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`sph}]]] - 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
               3, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`sph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`sph}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox[
              InterpretationBox[
               StyleBox[GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`V[{2, $CellContext`sph}],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cot",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cot,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{2, $CellContext`sph}],
                Editable->False]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{"4", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`sph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "3"]], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`sph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{2, $CellContext`sph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`V[{2, $CellContext`sph}], Editable -> False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{2, $CellContext`sph}], Editable -> 
                    False]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{"4", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{2, $CellContext`sph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "3"]], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           
           Annotation[#, {
             2} -> $CellContext`r[]^(-2) $CellContext`V[{
                2, $CellContext`sph}] - Cot[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`V[{2, $CellContext`sph}] + 
             4 $CellContext`r[]^(-1) $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`sph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`sph}]]] + 
             2 $CellContext`r[]^(-3) $CellContext`PDsph[{
                2, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]] + Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{
                 2, $CellContext`sph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`sph}]]] - 2 Cot[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`sph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`sph}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox[
              RowBox[{"4", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`sph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{"3", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`sph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{3, $CellContext`sph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                FractionBox[
                 RowBox[{"4", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{3, $CellContext`sph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{"3", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "3"]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {3} -> 
            4 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`sph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`sph}]]] + 3 Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{
                 3, $CellContext`sph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`sph}]]] + 2 Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]] + 2 Cot[
                $CellContext`\[Theta][]] Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`sph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`sph}]]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{(-2) $CellContext`r[]^(-2) $CellContext`V[{
       1, $CellContext`sph}] - 2 Cot[
      $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`V[{
      2, $CellContext`sph}] + 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]]] + Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]] - 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{2, -$CellContext`sph}][
      $CellContext`V[{
       2, $CellContext`sph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{1, $CellContext`sph}]]] - 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{3, -$CellContext`sph}][
      $CellContext`V[{3, $CellContext`sph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{
         1, $CellContext`sph}]]], $CellContext`r[]^(-2) $CellContext`V[{
       2, $CellContext`sph}] - Cot[
       $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`V[{
      2, $CellContext`sph}] + 
    4 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`sph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`sph}]]] + 
    2 $CellContext`r[]^(-3) $CellContext`PDsph[{2, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]] + Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{
        2, $CellContext`sph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{2, $CellContext`sph}]]] - 2 Cot[
      $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
      3, -$CellContext`sph}][
      $CellContext`V[{3, $CellContext`sph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{2, $CellContext`sph}]]], 
    4 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`sph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`sph}]]] + 3 Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{
        3, $CellContext`sph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{3, $CellContext`sph}]]] + 2 Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]] + 2 Cot[
       $CellContext`\[Theta][]] Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`sph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{3, $CellContext`sph}]]]}, {$CellContext`sph}, 
   0][$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "03d87a43-399d-4bba-b890-6843b7537303"]
}, Open  ]],

Cell["So using the orthonormal basis components we get", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CD", "[", 
      RowBox[{"-", "j"}], "]"}], "@", 
     RowBox[{
      RowBox[{"CD", "[", "j", "]"}], "[", 
      RowBox[{"VOsph", "[", "i", "]"}], "]"}]}], "//", 
    RowBox[{"ReplaceBases", "[", "Osph", "]"}]}], "//", "Simplify"}], "//", 
  "Expand"}]], "Input",
 ExpressionUUID -> "d496ace2-b4e9-4343-acc8-6a6b97679a1a"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`V[{1, $CellContext`Osph}],
                 Editable->False]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "2"]]}], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{2, $CellContext`Osph}],
                Editable->False]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`Osph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{1, $CellContext`Osph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{1, $CellContext`Osph}], Editable -> 
                    False]}], 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]]}], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{2, $CellContext`Osph}], Editable -> 
                    False]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{1, $CellContext`Osph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {
             1} -> (-2) $CellContext`r[]^(-2) $CellContext`V[{
                1, $CellContext`Osph}] - 2 Cot[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`V[{
               2, $CellContext`Osph}] + 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]]] + Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]] - 
             2 $CellContext`r[]^(-2) $CellContext`PDsph[{
               2, -$CellContext`sph}][
               $CellContext`V[{
                2, $CellContext`Osph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`Osph}]]] - 2 Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`Osph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{1, $CellContext`Osph}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Csc",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Csc,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`V[{2, $CellContext`Osph}],
                 Editable->False]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "2"]]}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`Osph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`Osph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{2, $CellContext`Osph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                    " ", 
                    InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{2, $CellContext`Osph}], Editable -> 
                    False]}], 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]]}], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{2, $CellContext`Osph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {2} -> -Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`V[{2, $CellContext`Osph}] + 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`Osph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`Osph}]]] + 
             2 $CellContext`r[]^(-2) $CellContext`PDsph[{
                2, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]] + Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{
                 2, $CellContext`Osph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`Osph}]]] - 2 Cot[
               $CellContext`\[Theta][]] Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`Osph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`Osph}]]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Csc",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Csc,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`V[{3, $CellContext`Osph}],
                 Editable->False]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "2"]]}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], 
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`Osph}]]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], 
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`Osph}]]],
               Editable->False], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["Csc",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Csc,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], "2"], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], 
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`PDsph[{3, -$CellContext`sph}][
                   $CellContext`V[{3, $CellContext`Osph}]]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                    " ", 
                    InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{3, $CellContext`Osph}], Editable -> 
                    False]}], 
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]]}], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`PDsph[{1, -$CellContext`sph}][
                   $CellContext`V[{3, $CellContext`Osph}]]], Editable -> 
                 False], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]]], Editable -> 
                  False], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]], "+", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                   " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`Osph}]]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {3} -> -Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`V[{3, $CellContext`Osph}] + 
             2 $CellContext`r[]^(-1) $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`Osph}]] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`PDsph[{1, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`Osph}]]] + Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{
                 3, $CellContext`Osph}]] + $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`Osph}]]] + 2 Csc[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]] + 2 Cot[
                $CellContext`\[Theta][]] Csc[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`Osph}]] + Csc[
                 $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`Osph}]]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{(-2) $CellContext`r[]^(-2) $CellContext`V[{
       1, $CellContext`Osph}] - 2 Cot[
      $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`V[{
      2, $CellContext`Osph}] + 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`Osph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`Osph}]]] + Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`Osph}]] - 
    2 $CellContext`r[]^(-2) $CellContext`PDsph[{2, -$CellContext`sph}][
      $CellContext`V[{
       2, $CellContext`Osph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{1, $CellContext`Osph}]]] - 2 Csc[
      $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
      3, -$CellContext`sph}][
      $CellContext`V[{3, $CellContext`Osph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{1, $CellContext`Osph}]]], -Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`V[{
       2, $CellContext`Osph}] + 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`Osph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`Osph}]]] + 
    2 $CellContext`r[]^(-2) $CellContext`PDsph[{2, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`Osph}]] + Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{
        2, $CellContext`Osph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{2, $CellContext`Osph}]]] - 2 Cot[
      $CellContext`\[Theta][]] Csc[
      $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
      3, -$CellContext`sph}][
      $CellContext`V[{3, $CellContext`Osph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{2, $CellContext`Osph}]]], -Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`V[{
       3, $CellContext`Osph}] + 
    2 $CellContext`r[]^(-1) $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`Osph}]] + $CellContext`PDsph[{
      1, -$CellContext`sph}][
      $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`Osph}]]] + Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{
        3, $CellContext`Osph}]] + $CellContext`r[]^(-2) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`PDsph[{2, -$CellContext`sph}][
        $CellContext`V[{3, $CellContext`Osph}]]] + 2 Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`Osph}]] + 2 Cot[
       $CellContext`\[Theta][]] Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`Osph}]] + Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`PDsph[{3, -$CellContext`sph}][
        $CellContext`V[{3, $CellContext`Osph}]]]}, {$CellContext`Osph}, 
   0][$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "d9080460-d7d0-4329-9a11-4234c15e800b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"DefTensor", "[", 
    RowBox[{
     RowBox[{"\[CapitalDelta]V", "[", "i", "]"}], ",", "R3"}], "]"}], "\n", 
   RowBox[{"IndexSet", "[", 
    RowBox[{
     RowBox[{"\[CapitalDelta]V", "[", "i_", "]"}], ",", 
     RowBox[{
      RowBox[{"TensorDerivative", "[", 
       RowBox[{"VOsph", ",", "CD", ",", "CD"}], "]"}], "[", 
      RowBox[{"i", ",", "j", ",", 
       RowBox[{"-", "j"}]}], "]"}]}], "]"}]}], "*)"}]], "Input",
 ExpressionUUID -> "59ee4b26-4663-466c-8422-a188bcca7501"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Curl", "Subsubsection",
 ExpressionUUID -> "63180e13-bd37-4694-91eb-f21f7f0fcf04"],

Cell["\<\
With Cartesian coordinates. We have to make sure to use gcart and its inverse \
to change the position of indices. Otherwise xCoBa would go through spherical \
coordinates to compute things and it will take ages with eventually massive \
simplifications.\
\>", "Text",
 ExpressionUUID -> "7602e8f9-68d1-47ed-a9e6-8704792e16d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Inv", "[", "gcart", "]"}], "[", 
   RowBox[{"i", ",", "c"}], "]"}], 
  RowBox[{
   RowBox[{"Inv", "[", "gcart", "]"}], "[", 
   RowBox[{"b", ",", "j"}], "]"}], 
  RowBox[{
   RowBox[{"epsilon", "[", "gcart", "]"}], "[", 
   RowBox[{
    RowBox[{"-", "c"}], ",", 
    RowBox[{"-", "b"}], ",", 
    RowBox[{"-", "k"}]}], "]"}], 
  RowBox[{
   RowBox[{"CDcart", "[", 
    RowBox[{"-", "j"}], "]"}], "@", 
   RowBox[{"Vcart", "[", "k", "]"}]}]}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`V[{3, $CellContext`cart}]],
              Editable->False], "-", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{3, -$CellContext`cart}][
               $CellContext`V[{2, $CellContext`cart}]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{2, -$CellContext`cart}][
                  $CellContext`V[{3, $CellContext`cart}]], Editable -> False],
                 "-", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{3, -$CellContext`cart}][
                  $CellContext`V[{2, $CellContext`cart}]], Editable -> 
                 False]}]}]],
           Annotation[#, {1} -> $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`V[{3, $CellContext`cart}]] - $CellContext`PDcart[{
              3, -$CellContext`cart}][
              $CellContext`V[{2, $CellContext`cart}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[0., 1., 0.]], 
                   StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDcart[{1, -$CellContext`cart}][
                 $CellContext`V[{3, $CellContext`cart}]],
                Editable->False], ")"}]}], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["3",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{3, -$CellContext`cart}][
               $CellContext`V[{1, $CellContext`cart}]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDcart[{1, -$CellContext`cart}][
                    $CellContext`V[{3, $CellContext`cart}]], Editable -> 
                    False], ")"}]}], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{3, -$CellContext`cart}][
                  $CellContext`V[{1, $CellContext`cart}]], Editable -> 
                 False]}]}]],
           
           Annotation[#, {
             2} -> -$CellContext`PDcart[{1, -$CellContext`cart}][
                $CellContext`V[{
                 3, $CellContext`cart}]] + $CellContext`PDcart[{
               3, -$CellContext`cart}][
               $CellContext`V[{1, $CellContext`cart}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`V[{2, $CellContext`cart}]],
              Editable->False], "-", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[0., 1., 0.]], 
                 StyleBox["2",
                  FontColor->RGBColor[0., 1., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 1., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDcart[{2, -$CellContext`cart}][
               $CellContext`V[{1, $CellContext`cart}]],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{1, -$CellContext`cart}][
                  $CellContext`V[{2, $CellContext`cart}]], Editable -> False],
                 "-", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
0., 1., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 1., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 1., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDcart[{2, -$CellContext`cart}][
                  $CellContext`V[{1, $CellContext`cart}]], Editable -> 
                 False]}]}]],
           Annotation[#, {3} -> $CellContext`PDcart[{1, -$CellContext`cart}][
               $CellContext`V[{2, $CellContext`cart}]] - $CellContext`PDcart[{
              2, -$CellContext`cart}][
              $CellContext`V[{1, $CellContext`cart}]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 1, 0], 2 -> RGBColor[0, 1, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{$CellContext`PDcart[{2, -$CellContext`cart}][
      $CellContext`V[{3, $CellContext`cart}]] - $CellContext`PDcart[{
     3, -$CellContext`cart}][
     $CellContext`V[{
      2, $CellContext`cart}]], -$CellContext`PDcart[{1, -$CellContext`cart}][
       $CellContext`V[{3, $CellContext`cart}]] + $CellContext`PDcart[{
      3, -$CellContext`cart}][
      $CellContext`V[{1, $CellContext`cart}]], $CellContext`PDcart[{
      1, -$CellContext`cart}][
      $CellContext`V[{2, $CellContext`cart}]] - $CellContext`PDcart[{
     2, -$CellContext`cart}][
     $CellContext`V[{1, $CellContext`cart}]]}, {$CellContext`cart}, 
   0][$CellContext`i],
  Editable->False]], "Output"]
}, Open  ]],

Cell["With spherical coordinates:", "Text",
 ExpressionUUID -> "7602e8f9-68d1-47ed-a9e6-8704792e16d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"epsilon", "[", "g", "]"}], "[", 
     RowBox[{"i", ",", "j", ",", 
      RowBox[{"-", "k"}]}], "]"}], 
    RowBox[{
     RowBox[{"CD", "[", 
      RowBox[{"-", "j"}], "]"}], "@", 
     RowBox[{"Vsph", "[", "k", "]"}]}]}], "//", "Simplify"}], "//", 
  "Expand"}]], "Input",
 ExpressionUUID -> "c8fa7957-1f4a-49e9-a772-1a074651ab4f"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              InterpretationBox[
               StyleBox[GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`V[{3, $CellContext`sph}],
               Editable->False]}], "+", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                   StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDsph[{2, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`sph}]],
                Editable->False], ")"}]}], "-", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                   StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDsph[{3, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`sph}]],
                Editable->False], ")"}]}]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"2", " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  InterpretationBox[
                   StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`V[{3, $CellContext`sph}], Editable -> 
                   False]}], "+", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], "-", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}]}]}]],
           Annotation[#, {1} -> 2 Cos[
                $CellContext`\[Theta][]] $CellContext`V[{
                3, $CellContext`sph}] + Sin[
                $CellContext`\[Theta][]] $CellContext`PDsph[{
                2, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`sph}]] - Csc[
               $CellContext`\[Theta][]] $CellContext`PDsph[{
               3, -$CellContext`sph}][
               $CellContext`V[{2, $CellContext`sph}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Sin",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Sin,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], " ", 
                InterpretationBox[
                 StyleBox[GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`V[{3, $CellContext`sph}],
                 Editable->False]}], 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]]}], "-", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                   StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDsph[{1, -$CellContext`sph}][
                 $CellContext`V[{3, $CellContext`sph}]],
                Editable->False], ")"}]}], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{3, $CellContext`sph}], Editable -> 
                    False]}], 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}], "-", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{3, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {2} -> (-2) $CellContext`r[]^(-1) Sin[
                $CellContext`\[Theta][]] $CellContext`V[{
                3, $CellContext`sph}] - Sin[
               $CellContext`\[Theta][]] $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`sph}]] + Csc[
                $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`sph}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{2, $CellContext`sph}],
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{"(", 
               InterpretationBox[
                StyleBox[
                 RowBox[{
                  SubscriptBox[
                   StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                   StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                   },
                   
                   GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                   GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`PDsph[{1, -$CellContext`sph}][
                 $CellContext`V[{2, $CellContext`sph}]],
                Editable->False], ")"}]}], "-", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["2",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[1., 0., 0.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{2, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`sph}]],
                 Editable->False], ")"}]}], 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                FractionBox[
                 RowBox[{"2", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{2, $CellContext`sph}], Editable -> 
                    False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                RowBox[{
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                  RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{1, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], "-", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., \
0.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{2, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`sph}]], Editable -> 
                    False], ")"}]}], 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]]}]}]],
           Annotation[#, {3} -> 2 Csc[
                $CellContext`\[Theta][]] $CellContext`r[]^(-1) \
$CellContext`V[{2, $CellContext`sph}] + Csc[
                $CellContext`\[Theta][]] $CellContext`PDsph[{
                1, -$CellContext`sph}][
                $CellContext`V[{2, $CellContext`sph}]] - Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) \
$CellContext`PDsph[{2, -$CellContext`sph}][
               $CellContext`V[{1, $CellContext`sph}]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{2 Cos[
       $CellContext`\[Theta][]] $CellContext`V[{3, $CellContext`sph}] + Sin[
       $CellContext`\[Theta][]] $CellContext`PDsph[{2, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`sph}]] - Csc[
      $CellContext`\[Theta][]] $CellContext`PDsph[{3, -$CellContext`sph}][
      $CellContext`V[{2, $CellContext`sph}]], (-2) $CellContext`r[]^(-1) Sin[
       $CellContext`\[Theta][]] $CellContext`V[{3, $CellContext`sph}] - Sin[
      $CellContext`\[Theta][]] $CellContext`PDsph[{1, -$CellContext`sph}][
      $CellContext`V[{3, $CellContext`sph}]] + Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{1, $CellContext`sph}]], 2 Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`V[{
       2, $CellContext`sph}] + Csc[
       $CellContext`\[Theta][]] $CellContext`PDsph[{1, -$CellContext`sph}][
       $CellContext`V[{2, $CellContext`sph}]] - Csc[
      $CellContext`\[Theta][]] $CellContext`r[]^(-2) $CellContext`PDsph[{
      2, -$CellContext`sph}][
      $CellContext`V[{1, $CellContext`sph}]]}, {$CellContext`sph}, 
   0][$CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "a2009f1b-5295-47b3-b7fe-c6ac13f4da80"]
}, Open  ]],

Cell["\<\
But in spherical coordinates we want everything with components in the \
orthonormal basis\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"epsilon", "[", "g", "]"}], "[", 
      RowBox[{"i", ",", "j", ",", 
       RowBox[{"-", "k"}]}], "]"}], 
     RowBox[{
      RowBox[{"CD", "[", 
       RowBox[{"-", "j"}], "]"}], "@", 
      RowBox[{"VOsph", "[", "k", "]"}]}]}], "//", 
    RowBox[{"ReplaceBases", "[", "Osph", "]"}]}], "//", "Simplify"}], "//", 
  "Expand"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Cot",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cot,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{3, $CellContext`Osph}],
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`Osph}]],
               Editable->False], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "-", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{3, $CellContext`Osph}], Editable -> 
                    False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`V[{3, $CellContext`Osph}]], Editable -> 
                  False], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "-", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{2, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           Annotation[#, {1} -> Cot[
                $CellContext`\[Theta][]] $CellContext`r[]^(-1) \
$CellContext`V[{
                3, $CellContext`Osph}] + $CellContext`r[]^(-1) \
$CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{3, $CellContext`Osph}]] - Csc[
               $CellContext`\[Theta][]] $CellContext`r[]^(-1) \
$CellContext`PDsph[{3, -$CellContext`sph}][
               $CellContext`V[{2, $CellContext`Osph}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               InterpretationBox[
                StyleBox[GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`V[{3, $CellContext`Osph}],
                Editable->False], 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]]}], "-", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["3",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`V[{3, $CellContext`Osph}]],
              Editable->False], "+", 
             FractionBox[
              RowBox[{
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], " ", 
               RowBox[{"(", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                   SubscriptBox[
                    StyleBox["\[ScriptCapitalD]",
                    FontColor->RGBColor[1., 0., 0.]], 
                    StyleBox["3",
                    FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                    {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                    },
                    
                    GridBoxAlignment->{
                    "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`PDsph[{3, -$CellContext`sph}][
                  $CellContext`V[{1, $CellContext`Osph}]],
                 Editable->False], ")"}]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", 
                  FractionBox[
                   InterpretationBox[
                    StyleBox[
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`V[{3, $CellContext`Osph}], Editable -> 
                    False], 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}], "-", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"3\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{3, $CellContext`Osph}]], Editable -> False],
                 "+", 
                FractionBox[
                 RowBox[{
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                   RowBox[{"(", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"3\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`PDsph[{3, -$CellContext`sph}][
                    $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                    False], ")"}]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           
           Annotation[#, {
             2} -> -$CellContext`r[]^(-1) $CellContext`V[{
                3, $CellContext`Osph}] - $CellContext`PDsph[{
              1, -$CellContext`sph}][
              $CellContext`V[{3, $CellContext`Osph}]] + Csc[
                $CellContext`\[Theta][]] $CellContext`r[]^(-1) \
$CellContext`PDsph[{3, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox[
              InterpretationBox[
               StyleBox[GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`V[{2, $CellContext`Osph}],
               Editable->False], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]], "+", 
             InterpretationBox[
              StyleBox[
               RowBox[{
                SubscriptBox[
                 StyleBox["\[ScriptCapitalD]",
                  FontColor->RGBColor[1., 0., 0.]], 
                 StyleBox["1",
                  FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                  {"V", 
                   StyleBox[GridBox[{
                    {
                    StyleBox["2",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                 },
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`PDsph[{1, -$CellContext`sph}][
               $CellContext`V[{2, $CellContext`Osph}]],
              Editable->False], "-", 
             FractionBox[
              InterpretationBox[
               StyleBox[
                RowBox[{
                 SubscriptBox[
                  StyleBox["\[ScriptCapitalD]",
                   FontColor->RGBColor[1., 0., 0.]], 
                  StyleBox["2",
                   FontColor->RGBColor[1., 0., 0.]]], GridBox[{
                   {"V", 
                    StyleBox[GridBox[{
                    {
                    StyleBox["1",
                    FontColor->RGBColor[0., 0., 1.]]},
                    {" "}
                    },
                    GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                    Offset[0.]}}, "RowsIndexed" -> {}}],
                    FontSize->Rational[39, 4]]}
                  },
                  
                  GridBoxAlignment->{
                   "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {{Center}}, "RowsIndexed" -> {}},
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                    "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}]}],
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`PDsph[{2, -$CellContext`sph}][
                $CellContext`V[{1, $CellContext`Osph}]],
               Editable->False], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              RowBox[{
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`V[{2, $CellContext`Osph}], Editable -> False], 
                 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]], "+", 
                InterpretationBox[
                 StyleBox[
                  RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"1\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"2\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`PDsph[{1, -$CellContext`sph}][
                  $CellContext`V[{2, $CellContext`Osph}]], Editable -> False],
                 "-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                   RowBox[{
                    SubscriptBox[
                    "\!\(\*StyleBox[\"\[ScriptCapitalD]\",FontColor->RGBColor[\
1., 0., 0.]]\)", "\!\(\*StyleBox[\"2\",FontColor->RGBColor[1., 0., 0.]]\)"], 
                    GridBox[{{"V", 
                    StyleBox[
                    
                    GridBox[{{
                    "\!\(\*StyleBox[\"1\",FontColor->RGBColor[0., 0., \
1.]]\)"}, {" "}}, RowSpacings -> 0, ColumnSpacings -> 0.05, 
                    GridFrameMargins -> {{0, 0}, {0, 0}}], FontSize -> 
                    Rational[39, 4]]}}, ColumnSpacings -> 0.05, RowAlignments -> 
                    Center]}], AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`PDsph[{2, -$CellContext`sph}][
                   $CellContext`V[{1, $CellContext`Osph}]], Editable -> 
                  False], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           
           Annotation[#, {
             3} -> $CellContext`r[]^(-1) $CellContext`V[{
                2, $CellContext`Osph}] + $CellContext`PDsph[{
               1, -$CellContext`sph}][
               $CellContext`V[{
                2, $CellContext`Osph}]] - $CellContext`r[]^(-1) \
$CellContext`PDsph[{2, -$CellContext`sph}][
               $CellContext`V[{1, $CellContext`Osph}]], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`V[{
       3, $CellContext`Osph}] + $CellContext`r[]^(-1) $CellContext`PDsph[{
       2, -$CellContext`sph}][
       $CellContext`V[{3, $CellContext`Osph}]] - Csc[
      $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`PDsph[{
      3, -$CellContext`sph}][
      $CellContext`V[{
       2, $CellContext`Osph}]], -$CellContext`r[]^(-1) $CellContext`V[{
       3, $CellContext`Osph}] - $CellContext`PDsph[{1, -$CellContext`sph}][
     $CellContext`V[{3, $CellContext`Osph}]] + Csc[
       $CellContext`\[Theta][]] $CellContext`r[]^(-1) $CellContext`PDsph[{
       3, -$CellContext`sph}][
       $CellContext`V[{
        1, $CellContext`Osph}]], $CellContext`r[]^(-1) $CellContext`V[{
       2, $CellContext`Osph}] + $CellContext`PDsph[{1, -$CellContext`sph}][
      $CellContext`V[{
       2, $CellContext`Osph}]] - $CellContext`r[]^(-1) $CellContext`PDsph[{
      2, -$CellContext`sph}][
      $CellContext`V[{1, $CellContext`Osph}]]}, {$CellContext`Osph}, 
   0][$CellContext`i],
  Editable->False]], "Output"]
}, Open  ]],

Cell["Compare to:", "Text",
 ExpressionUUID -> "1c367519-ecc6-42a9-8157-0f406d2fb9af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Curl", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"v1", "[", 
        RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
       RowBox[{"v2", "[", 
        RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
       RowBox[{"v3", "[", 
        RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     "\"\<Spherical\>\""}], "]"}], "//", "Expand"}], "//", 
  "MatrixForm"}]], "Input",
 ExpressionUUID -> "6b142e0c-a2c9-48ec-bc16-ccba4b6b8cec"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           InterpretationBox[
            StyleBox["Cot",
             ShowAutoStyles->False,
             AutoSpacing->False],
            Cot,
            Editable->False], "[", "\[Theta]", "]"}], " ", 
          RowBox[{"v3", "[", 
           RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "-", 
        
        FractionBox[
         RowBox[{
          RowBox[{
           InterpretationBox[
            StyleBox["Csc",
             ShowAutoStyles->False,
             AutoSpacing->False],
            Csc,
            Editable->False], "[", "\[Theta]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v2", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "+", 
        
        FractionBox[
         RowBox[{
          SuperscriptBox["v3", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"v3", "[", 
           RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"]}], "+", 
        
        FractionBox[
         RowBox[{
          RowBox[{
           InterpretationBox[
            StyleBox["Csc",
             ShowAutoStyles->False,
             AutoSpacing->False],
            Csc,
            Editable->False], "[", "\[Theta]", "]"}], " ", 
          RowBox[{
           SuperscriptBox["v1", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "r"], "-", 
        
        RowBox[{
         SuperscriptBox["v3", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"v2", "[", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["v1", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "r"], "+", 
        RowBox[{
         SuperscriptBox["v2", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 ExpressionUUID -> "fff41dfb-6bb3-41f2-99de-b7d4f3b74634"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extrinsic Curvature", "Subsection",
 ExpressionUUID -> "38a75ee1-6bdc-4afe-ae3c-d8ce44ceffd4"],

Cell["The unit normal vector is the radial one", "Text",
 ExpressionUUID -> "0e3b1f18-f2ce-46c9-a4dc-1870ef87be5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Nv", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{
    RowBox[{"CTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", "Osph", "}"}]}], "]"}], ",", 
    RowBox[{"{", "sph", "}"}]}], "]"}]}]], "Input",
 ExpressionUUID -> "2b446aea-2064-46d4-b588-caaf0f1a6c4d"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "0a883eaf-1828-47f2-8ef7-0040d1cad46d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CD", "[", "i", "]"}], "@", 
  RowBox[{"Nv", "[", 
   RowBox[{"-", "i"}], "]"}]}]], "Input",
 ExpressionUUID -> "16f0c11d-1508-41f3-81b2-2e5738680009"],

Cell[BoxData[
 FractionBox["2", 
  InterpretationBox[
   StyleBox["r",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`r[],
   Editable->False]]], "Output",
 ExpressionUUID -> "6c8f8a32-5da5-4c8f-a6eb-a515fab1d89b"]
}, Open  ]],

Cell["Projector onto the sphere", "Text",
 ExpressionUUID -> "8079ec6f-807d-4be6-ba8f-cc64261801ec"],

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"hm", "[", 
    RowBox[{"i", ",", "j"}], "]"}], ",", "R3"}], "]"}]], "Input",
 ExpressionUUID -> "62ae5947-60c1-4409-b263-29d59c5ef50d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IndexSet", "[", 
  RowBox[{
   RowBox[{"hm", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ",", 
   RowBox[{
    RowBox[{"g", "[", 
     RowBox[{"i", ",", "j"}], "]"}], "-", 
    RowBox[{
     RowBox[{"Nv", "[", "i", "]"}], 
     RowBox[{"Nv", "[", "j", "]"}]}]}]}], "]"}]], "Input",
 ExpressionUUID -> "2a8c7bc0-e9e4-41c6-aaa5-065848089ecc"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {2, 2} -> $CellContext`r[]^(-2), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {3, 3} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i", "j"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, $CellContext`r[]^(-2), 0}, {0, 0, Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2)}}, \
{$CellContext`sph, $CellContext`sph}, 0][$CellContext`i, $CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "6a389121-791e-4d91-b1df-6bc5c906db09"]
}, Open  ]],

Cell["Extrinsic curvature of spheres:", "Text",
 ExpressionUUID -> "8a4432cc-0f24-4b2b-b489-4f7005a0d96d"],

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"EK", "[", 
    RowBox[{"i", ",", "j"}], "]"}], ",", "R3"}], "]"}]], "Input",
 ExpressionUUID -> "d03e269a-71da-42c9-b9b5-d8ed9a8fe995"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IndexSet", "[", 
  RowBox[{
   RowBox[{"EK", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ",", 
   RowBox[{
    RowBox[{"hm", "[", 
     RowBox[{"i", ",", "a"}], "]"}], 
    RowBox[{"hm", "[", 
     RowBox[{"j", ",", "b"}], "]"}], 
    RowBox[{
     RowBox[{"TensorDerivative", "[", 
      RowBox[{"Nv", ",", "CD"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "b"}], ",", 
      RowBox[{"-", "a"}]}], "]"}]}]}], "]"}]], "Input",
 ExpressionUUID -> "90652388-01ca-4d6b-8e40-62c59271ff2c"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "3"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "3"]]}]],
           Annotation[#, {2, 2} -> $CellContext`r[]^(-3), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "3"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "3"]]}]],
           Annotation[#, {3, 3} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"j", "i"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, $CellContext`r[]^(-3), 0}, {0, 0, Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3)}}, \
{$CellContext`sph, $CellContext`sph}, 0][$CellContext`j, $CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "d7a349cc-c499-4ff6-baa1-f6f53ac01bee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EK", "[", 
  RowBox[{"i", ",", "j"}], "]"}]], "Input",
 ExpressionUUID -> "6096483a-a64b-4166-8973-b5a73a669ea5"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "3"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "3"]]}]],
           Annotation[#, {2, 2} -> $CellContext`r[]^(-3), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "3"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "3"]]}]],
           Annotation[#, {3, 3} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"j", "i"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, $CellContext`r[]^(-3), 0}, {0, 0, Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-3)}}, \
{$CellContext`sph, $CellContext`sph}, 0][$CellContext`j, $CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "b900497c-fdfb-4902-95bd-d53145410568"]
}, Open  ]],

Cell["\<\
Now with the name of this CTensor we can have it expressed in the orthonormal \
basis and Cartesian basis\
\>", "Text",
 ExpressionUUID -> "cd139bbc-55da-478c-a8b9-c79adefca14d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", 
  RowBox[{"ReplaceBases", "[", "Osph", "]"}]}]], "Input",
 ExpressionUUID -> "8c7e7431-5508-48cf-8f8e-80ae63dc6d72"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {2, 2} -> $CellContext`r[]^(-1), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False]]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^(-1), "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"j", "i"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, $CellContext`r[]^(-1), 0}, {
    0, 0, $CellContext`r[]^(-1)}}, {$CellContext`Osph, $CellContext`Osph}, 
   0][$CellContext`j, $CellContext`i],
  Editable->False]], "Output",
 ExpressionUUID -> "b921c198-6a2e-453e-8562-8c77e16922f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Helicity basis", "Subsection",
 ExpressionUUID -> "38a75ee1-6bdc-4afe-ae3c-d8ce44ceffd4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["1", 
        RowBox[{
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], " ", 
         SqrtBox["2"]}]], ",", 
       FractionBox["1", 
        RowBox[{
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], " ", 
         SqrtBox["2"]}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", 
        FractionBox["\[ImaginaryI]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            InterpretationBox[
             StyleBox["r",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`r[],
             Editable->False], " ", 
            RowBox[{
             InterpretationBox[
              StyleBox["Sin",
               ShowAutoStyles->False,
               AutoSpacing->False],
              Sin,
              Editable->False], "[", 
             InterpretationBox[
              StyleBox["\[Theta]",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`\[Theta][],
              Editable->False], "]"}]}], ")"}], " ", 
          SqrtBox["2"]}]]}], ",", 
       FractionBox["\[ImaginaryI]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            StyleBox["r",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`r[],
            Editable->False], " ", 
           RowBox[{
            InterpretationBox[
             StyleBox["Sin",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Sin,
             Editable->False], "[", 
            InterpretationBox[
             StyleBox["\[Theta]",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`\[Theta][],
             Editable->False], "]"}]}], ")"}], " ", 
         SqrtBox["2"]}]]}], "}"}]}], "}"}], "]"}], "]"}]], "Input",
 ExpressionUUID -> "61adeb51-ebd1-48d4-8e32-68c9a0d33c0c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      FractionBox["1", 
       RowBox[{
        SqrtBox["2"], " ", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          InterpretationBox[
           StyleBox["Csc",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Csc,
           Editable->False], "[", 
          InterpretationBox[
           StyleBox["\[Theta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Theta][],
           Editable->False], "]"}]}], 
        RowBox[{
         SqrtBox["2"], " ", 
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False]}]]}]},
     {"0", 
      FractionBox["1", 
       RowBox[{
        SqrtBox["2"], " ", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False]}]], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Csc",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Csc,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 ExpressionUUID -> "f78d43e0-2909-475e-bf8c-f01d9e2142a4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"DefBasis", "[", 
  RowBox[{"HB", ",", "TangentR3", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"BasisColor", "\[Rule]", "Blue"}]}], "]"}]], "Input",
 ExpressionUUID -> "a9c109d5-5a1d-427d-aa17-f5586b6e30f9"],

Cell["\<\
We relate it both to the sph basis, and the Osph (orthonormal basis) basis.\
\>", "Text"],

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", 
  RowBox[{
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"r", "[", "]"}]}], "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"r", "[", "]"}]}], "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", "[", "]"}], 
             RowBox[{"Sin", "[", 
              RowBox[{"\[Theta]", "[", "]"}], "]"}]}], ")"}]}], "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
         RowBox[{
          RowBox[{"I", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", "[", "]"}], 
             RowBox[{"Sin", "[", 
              RowBox[{"\[Theta]", "[", "]"}], "]"}]}], ")"}]}], "/", 
          RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sph", ",", 
       RowBox[{"-", "HB"}]}], "}"}]}], "]"}], ",", "sph"}], "]"}]], "Input",
 CellID->357834483,
 ExpressionUUID -> "c3928df2-6ff2-44f7-8b3f-6948b6e43207"],

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
        RowBox[{"1", "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"-", "I"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}], ",", 
        RowBox[{"I", "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Osph", ",", 
      RowBox[{"-", "HB"}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellID->1226547422,
 ExpressionUUID -> "c3928df2-6ff2-44f7-8b3f-6948b6e43207"],

Cell["Polarization vectors", "Text",
 ExpressionUUID -> "95c02ae4-20eb-4a82-9735-254d5c9f1980"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ep", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{
    RowBox[{"CTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", "HB", "}"}]}], "]"}], ",", 
    RowBox[{"{", "sph", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"em", "=", 
  RowBox[{"ToCTensor", "[", 
   RowBox[{
    RowBox[{"CTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", "HB", "}"}]}], "]"}], ",", 
    RowBox[{"{", "sph", "}"}]}], "]"}]}]}], "Input",
 ExpressionUUID -> "5b9d72f4-242c-40dd-93fe-e3cf760594f8"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", 
      RowBox[{
       SqrtBox["2"], " ", 
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Csc",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Csc,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}]}], 
       RowBox[{
        SqrtBox["2"], " ", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False]}]]}]}], "}"}], ",", 
   RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "873702d1-73b0-4507-8eee-1bd6914bb58f"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", 
      RowBox[{
       SqrtBox["2"], " ", 
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False]}]], ",", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{
        InterpretationBox[
         StyleBox["Csc",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Csc,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}]}], 
      RowBox[{
       SqrtBox["2"], " ", 
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False]}]]}], "}"}], ",", 
   RowBox[{"{", "sph", "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "873702d1-73b0-4507-8eee-1bd6914bb58f"]
}, Open  ]],

Cell["\<\
In Cartesian coordinates, these are the components of this orthonormal triad  \
:\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"ToCTensor", "[", 
    RowBox[{"Nv", ",", 
     RowBox[{"{", "cart", "}"}]}], "]"}], "/.", "cart2sphRules"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"ToCTensor", "[", 
    RowBox[{"ep", ",", 
     RowBox[{"{", "cart", "}"}]}], "]"}], "/.", "cart2sphRules"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"ToCTensor", "[", 
    RowBox[{"em", ",", 
     RowBox[{"{", "cart", "}"}]}], "]"}], "/.", "cart2sphRules"}], 
  "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["Cos",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Cos,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Phi][],
        Editable->False], "]"}], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Theta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Theta][],
        Editable->False], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Theta]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Theta][],
        Editable->False], "]"}], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Phi][],
        Editable->False], "]"}]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox["Cos",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Cos,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}]}], "}"}], ",", 
   RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Sin",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Sin,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}]}], 
      SqrtBox["2"]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}], "+", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Sin",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Sin,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}]}], 
      SqrtBox["2"]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        InterpretationBox[
         StyleBox["Sin",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Sin,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}], 
       SqrtBox["2"]]}]}], "}"}], ",", 
   RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Sin",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Sin,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}]}], 
      SqrtBox["2"]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}], "+", 
       RowBox[{
        RowBox[{
         InterpretationBox[
          StyleBox["Cos",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Cos,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Theta]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Theta][],
          Editable->False], "]"}], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Sin",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Sin,
          Editable->False], "[", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Phi][],
          Editable->False], "]"}]}]}], 
      SqrtBox["2"]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        InterpretationBox[
         StyleBox["Sin",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Sin,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}], 
       SqrtBox["2"]]}]}], "}"}], ",", 
   RowBox[{"{", "cart", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["The helicity vectors are null vectors :", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"ep", "[", "i", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"em", "[", "i", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ep", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"ep", "[", "i", "]"}]}]}], "Input",
 ExpressionUUID -> "509e460c-b069-41e4-b7e8-f470c4892e54"],

Cell[BoxData["1"], "Output",
 ExpressionUUID -> "fb6d0dd5-167a-4864-9da6-3260609ffebe"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "fb6d0dd5-167a-4864-9da6-3260609ffebe"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "fb6d0dd5-167a-4864-9da6-3260609ffebe"]
}, Open  ]],

Cell["They hve n\[LineSeparator]o variation in the radial direction", "Text",
 ExpressionUUID -> "f679e9a9-66e3-4b3c-b394-1051e9d9f17c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nv", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "@", 
   RowBox[{"ep", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nv", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "@", 
   RowBox[{"em", "[", "j", "]"}]}]}]}], "Input",
 ExpressionUUID -> "7a663693-b534-4f83-9a0a-84cf3f4690df"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "dd1787c0-5473-4c3a-adcb-9c70b3fe54ae"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "dd1787c0-5473-4c3a-adcb-9c70b3fe54ae"]
}, Open  ]],

Cell["\<\
However a covariant derivative in the tangential direction does not vanish.
We express the expression in the Helicity basis.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"em", "[", 
    RowBox[{"-", "i"}], "]"}], 
   RowBox[{
    RowBox[{"CD", "[", "i", "]"}], "@", 
    RowBox[{"em", "[", "j", "]"}]}]}], "//", 
  RowBox[{"ReplaceBases", "[", "HB", "]"}]}]], "Input",
 ExpressionUUID -> "29bfbb8a-9cc7-4179-80cb-741e422f45b6"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              InterpretationBox[
               StyleBox["Cot",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cot,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], 
             RowBox[{
              SqrtBox["2"], " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], Cot, Editable -> False], "[", 
                 InterpretationBox[
                  StyleBox[
                  "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                   False], 
                  $CellContext`\[Theta][], Editable -> False], "]"}], 
               RowBox[{
                 SqrtBox["2"], " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {3} -> 2^Rational[-1, 2] Cot[
               $CellContext`\[Theta][]]/$CellContext`r[], "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"j"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{0, 0, 2^Rational[-1, 2] Cot[
      $CellContext`\[Theta][]]/$CellContext`r[]}, {$CellContext`HB}, 
   0][$CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "4b9d4f68-0bc9-4b94-a757-acf1e1de7317"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ep", "[", 
    RowBox[{"-", "i"}], "]"}], 
   RowBox[{
    RowBox[{"CD", "[", "i", "]"}], "@", 
    RowBox[{"ep", "[", "j", "]"}]}]}], "//", 
  RowBox[{"ReplaceBases", "[", "HB", "]"}]}]], "Input",
 ExpressionUUID -> "78b11368-38b2-425d-be95-5f26fbbf9cea"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              InterpretationBox[
               StyleBox["Cot",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cot,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], 
             RowBox[{
              SqrtBox["2"], " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                   False], Cot, Editable -> False], "[", 
                 InterpretationBox[
                  StyleBox[
                  "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                   False], 
                  $CellContext`\[Theta][], Editable -> False], "]"}], 
               RowBox[{
                 SqrtBox["2"], " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {2} -> 2^Rational[-1, 2] Cot[
               $CellContext`\[Theta][]]/$CellContext`r[], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"j"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{0, 2^Rational[-1, 2] Cot[
      $CellContext`\[Theta][]]/$CellContext`r[], 0}, {$CellContext`HB}, 
   0][$CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "f41baeaa-e95e-4248-bccd-8b6ff2e5ab80"]
}, Open  ]],

Cell["Relation with extrinsic curvature", "Text",
 ExpressionUUID -> "450c996d-c2e7-4589-9b7f-b65f7e02efcb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"Nv", "[", 
   RowBox[{"-", "j"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "@", 
   RowBox[{"ep", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"-", 
   RowBox[{"EK", "[", 
    RowBox[{
     RowBox[{"-", "i"}], ",", 
     RowBox[{"-", "j"}]}], "]"}]}], 
  RowBox[{"em", "[", "i", "]"}], 
  RowBox[{"ep", "[", "j", "]"}]}]}], "Input",
 ExpressionUUID -> "0c9a085e-9d6f-4caf-ba0f-dcac7246f892"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]]}]], "Output",
 ExpressionUUID -> "f96bd0ec-33fc-439a-9cea-9953f3266aa1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]]}]], "Output",
 ExpressionUUID -> "f96bd0ec-33fc-439a-9cea-9953f3266aa1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "j"}], "]"}], 
  RowBox[{"ep", "[", "i", "]"}], 
  RowBox[{
   RowBox[{"CD", "[", 
    RowBox[{"-", "i"}], "]"}], "@", 
   RowBox[{"Nv", "[", "j", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EK", "[", 
   RowBox[{
    RowBox[{"-", "i"}], ",", 
    RowBox[{"-", "j"}]}], "]"}], 
  RowBox[{"em", "[", "i", "]"}], 
  RowBox[{"ep", "[", "j", "]"}]}]}], "Input",
 ExpressionUUID -> "863432fe-c509-443d-95f0-8af3bc184f1d"],

Cell[BoxData[
 FractionBox["1", 
  InterpretationBox[
   StyleBox["r",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`r[],
   Editable->False]]], "Output",
 ExpressionUUID -> "233e502d-cde0-492a-8fc5-74f1a2d2ad0d"],

Cell[BoxData[
 FractionBox["1", 
  InterpretationBox[
   StyleBox["r",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`r[],
   Editable->False]]], "Output",
 ExpressionUUID -> "233e502d-cde0-492a-8fc5-74f1a2d2ad0d"]
}, Open  ]],

Cell["\<\
The Levi - Civita on the sphere is expressed from the helicity basis. We \
check its expression\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"I", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"em", "[", 
       RowBox[{"-", "i"}], "]"}], 
      RowBox[{"ep", "[", 
       RowBox[{"-", "j"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"ep", "[", 
       RowBox[{"-", "i"}], "]"}], 
      RowBox[{"em", "[", 
       RowBox[{"-", "j"}], "]"}]}]}], ")"}]}], "//", 
  RowBox[{"ReplaceBases", "[", "Osph", "]"}]}]], "Input",
 ExpressionUUID -> "0f406c8c-7caf-413f-afb4-b3365924a282"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 3} -> 1, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"-", "1"}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{"-", "1"}]}]],
           Annotation[#, {3, 2} -> -1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"i", "j"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, 0, 1}, {0, -1, 
   0}}, {-$CellContext`Osph, -$CellContext`Osph}, 
   0][-$CellContext`i, -$CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "90bfd68f-c2a2-485f-98ac-39ed59096851"]
}, Open  ]],

Cell["\<\
The identity on the sphere (or the projector on the sphere) is also built \
from the helicity basis\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"em", "[", 
     RowBox[{"-", "i"}], "]"}], 
    RowBox[{"ep", "[", 
     RowBox[{"-", "j"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"ep", "[", 
     RowBox[{"-", "i"}], "]"}], 
    RowBox[{"em", "[", 
     RowBox[{"-", "j"}], "]"}]}]}], "//", 
  RowBox[{"ReplaceBases", "[", "Osph", "]"}]}]], "Input",
 ExpressionUUID -> "dacb3e53-22a4-4629-a6d5-5b4edf3f2615"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"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[{"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"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"i", "j"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {0, 1, 0}, {0, 0, 
   1}}, {-$CellContext`Osph, -$CellContext`Osph}, 
   0][-$CellContext`i, -$CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "012a2e39-9674-423f-9aa0-e0ac76880fea"]
}, Open  ]],

Cell["The basic rules for CovD of helicity vectors are", "Text",
 ExpressionUUID -> "54a5c29c-70d9-4f49-89b4-88b040807ceb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ep", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"ep", "[", 
   RowBox[{"-", "a"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "[", 
   RowBox[{"em", "[", "a", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"ep", "[", 
   RowBox[{"-", "a"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "[", 
   RowBox[{"em", "[", "a", "]"}], "]"}]}]}], "Input",
 ExpressionUUID -> "e474826b-e3b4-4293-87fc-b133fae3839e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    InterpretationBox[
     StyleBox["Cot",
      ShowAutoStyles->False,
      AutoSpacing->False],
     Cot,
     Editable->False], "[", 
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "]"}], 
   RowBox[{
    SqrtBox["2"], " ", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}]]}]], "Output"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   InterpretationBox[
    StyleBox["Cot",
     ShowAutoStyles->False,
     AutoSpacing->False],
    Cot,
    Editable->False], "[", 
   InterpretationBox[
    StyleBox["\[Theta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Theta][],
    Editable->False], "]"}], 
  RowBox[{
   SqrtBox["2"], " ", 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]}]]], "Output"]
}, Open  ]],

Cell["But these are 0", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"em", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"em", "[", 
   RowBox[{"-", "a"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "[", 
   RowBox[{"em", "[", "a", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ep", "[", 
   RowBox[{"-", "i"}], "]"}], 
  RowBox[{"em", "[", 
   RowBox[{"-", "a"}], "]"}], 
  RowBox[{
   RowBox[{"CD", "[", "i", "]"}], "[", 
   RowBox[{"em", "[", "a", "]"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
 ExpressionUUID -> "e474826b-e3b4-4293-87fc-b133fae3839e"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "98e10f8d-69a8-4758-a48d-e775ac29190e"],

Cell[BoxData["0"], "Output",
 ExpressionUUID -> "98e10f8d-69a8-4758-a48d-e775ac29190e"]
}, Open  ]],

Cell["\<\
Decomposition of Tensor on helicity basis. Let us assume it is diagonal in \
Cartesian coordinates\
\>", "Text",
 ExpressionUUID -> "6fde7558-c833-48bb-8ae4-48dd93731465"],

Cell[BoxData[{
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"T3", "[", 
    RowBox[{"i", ",", "j"}], "]"}], ",", "R3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintAs", "[", "T3", "]"}], "^=", "\"\<T\>\""}], ";"}]}], "Input",
 
 ExpressionUUID -> "c2bb8b0b-0297-4933-a987-86a38b47674a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DefConstantSymbol", "/@", 
   RowBox[{"{", 
    RowBox[{"t33", ",", "t11", ",", "t22"}], "}"}]}], ";"}]], "Input",
 ExpressionUUID -> "a6a0a613-2803-4fd3-9693-7a00c623f20e"],

Cell["\<\
We start by a tensor which is diagonal in Cartesian basis and which is \
constant and traceless\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CT3", "=", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"t11", ",", "t22", ",", 
       RowBox[{
        RowBox[{"-", "t22"}], "-", "t11"}]}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"cart", ",", "cart"}], "}"}]}], "]"}]}]], "Input",
 ExpressionUUID -> "93c40701-2a0f-46d6-a68a-7dfd4e78538c"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       InterpretationBox[
        StyleBox["t11",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`t11,
        Editable->False], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       InterpretationBox[
        StyleBox["t22",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`t22,
        Editable->False], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{
        RowBox[{"-", 
         InterpretationBox[
          StyleBox["t11",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`t11,
          Editable->False]}], "-", 
        InterpretationBox[
         StyleBox["t22",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`t22,
         Editable->False]}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"cart", ",", "cart"}], "}"}], ",", "0"}], "]"}]], "Output",
 ExpressionUUID -> "a95da2b0-ef27-4956-bb49-9a8bd120eb66"]
}, Open  ]],

Cell["Let us consider its projection the sphere.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"hm", "[", 
      RowBox[{"i", ",", 
       RowBox[{"-", "a"}]}], "]"}], 
     RowBox[{"hm", "[", 
      RowBox[{"j", ",", 
       RowBox[{"-", "b"}]}], "]"}], 
     RowBox[{"CT3", "[", 
      RowBox[{"a", ",", "b"}], "]"}]}], "/.", "cart2sphRules"}], ")"}], "//", 
  "Simplify"}]], "Input",
 ExpressionUUID -> "ff6d6463-8728-4e02-a342-dbbd2d0d98b0"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               InterpretationBox[
                StyleBox["t11",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t11,
                Editable->False]}], "-", 
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False]}], "+", 
              RowBox[{"6", " ", 
               RowBox[{"(", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["t11",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t11,
                  Editable->False], "+", 
                 InterpretationBox[
                  StyleBox["t22",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t22,
                  Editable->False]}], ")"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False]}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["t11",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t11,
                  Editable->False], "-", 
                 InterpretationBox[
                  StyleBox["t22",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t22,
                  Editable->False]}], ")"}], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False]}], "-", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}]}], "]"}]}], "+", 
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["t11",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t11,
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["\[Phi]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Phi][],
                  Editable->False]}], "]"}]}], "-", 
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["\[Phi]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Phi][],
                  Editable->False]}], "]"}]}], "+", 
              RowBox[{
               InterpretationBox[
                StyleBox["t11",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t11,
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "+", 
                   InterpretationBox[
                    StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Phi][],
                    Editable->False]}], ")"}]}], "]"}]}], "-", 
              RowBox[{
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "+", 
                   InterpretationBox[
                    StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Phi][],
                    Editable->False]}], ")"}]}], "]"}]}]}], 
             RowBox[{"8", " ", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "-", 
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], "+", 
                 RowBox[{"6", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                   " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}], 
                 "+", 
                 RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                   " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "-", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}]}], "]"}]}], 
                 "+", 
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}], "-", 
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}], "+", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], ")"}]}], 
                    "]"}]}], "-", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], ")"}]}], 
                    "]"}]}]}], 
               RowBox[{"8", " ", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]}]]}]],
           
           Annotation[#, {2, 2} -> 
            Rational[1, 8] ((-2) $CellContext`t11 - 2 $CellContext`t22 + 
              6 ($CellContext`t11 + $CellContext`t22) 
               Cos[2 $CellContext`\[Theta][]] + ($CellContext`t11 - \
$CellContext`t22) Cos[2 $CellContext`\[Theta][] - 2 $CellContext`\[Phi][]] + 
              2 $CellContext`t11 Cos[2 $CellContext`\[Phi][]] - 
              2 $CellContext`t22 
              Cos[2 $CellContext`\[Phi][]] + $CellContext`t11 
               Cos[2 ($CellContext`\[Theta][] + $CellContext`\[Phi][])] - \
$CellContext`t22 
              Cos[2 ($CellContext`\[Theta][] + $CellContext`\[Phi][])]) \
$CellContext`r[]^(-2), "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 InterpretationBox[
                  StyleBox["t11",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t11,
                  Editable->False]}], "+", 
                InterpretationBox[
                 StyleBox["t22",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`t22,
                 Editable->False]}], ")"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cot",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cot,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                 " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           
           Annotation[#, {2, 3} -> (-$CellContext`t11 + $CellContext`t22) 
             Cos[
               $CellContext`\[Phi][]] Cot[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 InterpretationBox[
                  StyleBox["t11",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t11,
                  Editable->False]}], "+", 
                InterpretationBox[
                 StyleBox["t22",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`t22,
                 Editable->False]}], ")"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cos",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cos,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Cot",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Cot,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Phi]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Phi][],
                Editable->False], "]"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                 " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Cot"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cot, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           
           Annotation[#, {3, 2} -> (-$CellContext`t11 + $CellContext`t22) 
             Cos[
               $CellContext`\[Phi][]] Cot[
               $CellContext`\[Theta][]] $CellContext`r[]^(-2) Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{
                InterpretationBox[
                 StyleBox["Csc",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Csc,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Theta]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Theta][],
                 Editable->False], "]"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 InterpretationBox[
                  StyleBox["t22",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t22,
                  Editable->False], " ", 
                 SuperscriptBox[
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Cos",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Cos,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Phi][],
                    Editable->False], "]"}], "2"]}], "+", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["t11",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`t11,
                  Editable->False], " ", 
                 SuperscriptBox[
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Phi][],
                    Editable->False], "]"}], "2"]}]}], ")"}]}], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 SuperscriptBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                 " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], "2"]}], 
                    "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], 
                    "2"]}]}], ")"}]}], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {3, 3} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) \
($CellContext`t22 Cos[
                  $CellContext`\[Phi][]]^2 + $CellContext`t11 Sin[
                  $CellContext`\[Phi][]]^2), "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 4 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i", "j"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {
    0, Rational[1, 8] ((-2) $CellContext`t11 - 2 $CellContext`t22 + 
      6 ($CellContext`t11 + $CellContext`t22) 
       Cos[2 $CellContext`\[Theta][]] + ($CellContext`t11 - $CellContext`t22) 
       Cos[2 $CellContext`\[Theta][] - 2 $CellContext`\[Phi][]] + 
      2 $CellContext`t11 Cos[2 $CellContext`\[Phi][]] - 2 $CellContext`t22 
      Cos[2 $CellContext`\[Phi][]] + $CellContext`t11 
       Cos[2 ($CellContext`\[Theta][] + $CellContext`\[Phi][])] - \
$CellContext`t22 
      Cos[2 ($CellContext`\[Theta][] + $CellContext`\[Phi][])]) \
$CellContext`r[]^(-2), (-$CellContext`t11 + $CellContext`t22) Cos[
       $CellContext`\[Phi][]] Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) Sin[
       $CellContext`\[Phi][]]}, {0, (-$CellContext`t11 + $CellContext`t22) Cos[
       $CellContext`\[Phi][]] Cot[
       $CellContext`\[Theta][]] $CellContext`r[]^(-2) Sin[
       $CellContext`\[Phi][]], Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2) ($CellContext`t22 Cos[
          $CellContext`\[Phi][]]^2 + $CellContext`t11 Sin[
          $CellContext`\[Phi][]]^2)}}, {$CellContext`sph, $CellContext`sph}, 
   0][$CellContext`i, $CellContext`j],
  Editable->False]], "Output"]
}, Open  ]],

Cell["\<\
We can have it expressed in the orthonormal basis or in the helicity basis\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"%", "//", 
   RowBox[{"ReplaceBases", "[", "Osph", "]"}]}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%%", "//", 
   RowBox[{"ReplaceBases", "[", "HB", "]"}]}], "//", 
  "FullSimplify"}]}], "Input",
 ExpressionUUID -> "ff6d6463-8728-4e02-a342-dbbd2d0d98b0"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"3", " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox["Cos",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Cos,
                    Editable->False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False]}], "]"}]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "-", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Cos",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Cos,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}]}]}], ")"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                FractionBox["1", "4"], " ", 
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}]}], 
                    ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}]}], 
                  ")"}]}]}]],
           
           Annotation[#, {2, 2} -> 
            Rational[
              1, 4] (($CellContext`t11 + $CellContext`t22) (-1 + 
                3 Cos[2 $CellContext`\[Theta][]]) + 
              2 ($CellContext`t11 - $CellContext`t22) Cos[
                  $CellContext`\[Theta][]]^2 Cos[2 $CellContext`\[Phi][]]), 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                InterpretationBox[
                 StyleBox["t11",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`t11,
                 Editable->False]}], "+", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False]}], ")"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           
           Annotation[#, {2, 3} -> (-$CellContext`t11 + $CellContext`t22) 
             Cos[
               $CellContext`\[Theta][]] Cos[
               $CellContext`\[Phi][]] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                InterpretationBox[
                 StyleBox["t11",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`t11,
                 Editable->False]}], "+", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False]}], ")"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Theta]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Theta][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Cos",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Cos,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["\[Phi]",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Phi][],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Phi][], Editable -> False], "]"}]}]}]],
           
           Annotation[#, {3, 2} -> (-$CellContext`t11 + $CellContext`t22) 
             Cos[
               $CellContext`\[Theta][]] Cos[
               $CellContext`\[Phi][]] Sin[
               $CellContext`\[Phi][]], "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["t22",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`t22,
               Editable->False], " ", 
              SuperscriptBox[
               RowBox[{
                InterpretationBox[
                 StyleBox["Cos",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Cos,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}], "2"]}], "+", 
             RowBox[{
              InterpretationBox[
               StyleBox["t11",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`t11,
               Editable->False], " ", 
              SuperscriptBox[
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["\[Phi]",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Phi][],
                 Editable->False], "]"}], "2"]}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], "2"]}], 
                "+", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False], "]"}], 
                   "2"]}]}]}]],
           Annotation[#, {3, 3} -> $CellContext`t22 Cos[
                 $CellContext`\[Phi][]]^2 + $CellContext`t11 Sin[
                 $CellContext`\[Phi][]]^2, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i", "j"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {
    0, Rational[
      1, 4] (($CellContext`t11 + $CellContext`t22) (-1 + 
        3 Cos[2 $CellContext`\[Theta][]]) + 
      2 ($CellContext`t11 - $CellContext`t22) Cos[
          $CellContext`\[Theta][]]^2 
       Cos[2 $CellContext`\[Phi][]]), (-$CellContext`t11 + $CellContext`t22) 
     Cos[
       $CellContext`\[Theta][]] Cos[
       $CellContext`\[Phi][]] Sin[
       $CellContext`\[Phi][]]}, {0, (-$CellContext`t11 + $CellContext`t22) Cos[
       $CellContext`\[Theta][]] Cos[
       $CellContext`\[Phi][]] Sin[
       $CellContext`\[Phi][]], $CellContext`t22 Cos[
         $CellContext`\[Phi][]]^2 + $CellContext`t11 Sin[
         $CellContext`\[Phi][]]^2}}, {$CellContext`Osph, $CellContext`Osph}, 
   0][$CellContext`i, $CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "d64704dc-2f22-44d4-b768-dbb9575ec904"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "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[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox["1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "-", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Cos",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Cos,
                    Editable->False], "[", 
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False]}], "]"}]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}]}], "-", 
               RowBox[{"6", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Sin,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"]}], "-", 
               RowBox[{"4", " ", "\[ImaginaryI]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "-", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Sin",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Sin,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}]}]}], ")"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                FractionBox["1", "8"], " ", 
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}], 
                    ")"}], " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}], "-", 
                    RowBox[{"6", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], "-", 
                    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}]}], 
                  ")"}]}]}]],
           
           Annotation[#, {2, 2} -> 
            Rational[
              1, 8] (($CellContext`t11 - $CellContext`t22) (3 + 
                Cos[2 $CellContext`\[Theta][]]) Cos[2 $CellContext`\[Phi][]] - 
              6 ($CellContext`t11 + $CellContext`t22) Sin[
                 $CellContext`\[Theta][]]^2 + 
              Complex[0, -4] ($CellContext`t11 - $CellContext`t22) Cos[
                 $CellContext`\[Theta][]] Sin[2 $CellContext`\[Phi][]]), 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox["1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox["t11",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t11,
                Editable->False], "+", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False], "+", 
               RowBox[{"3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False]}], "]"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   InterpretationBox[
                    StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`t11,
                    Editable->False]}], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Sin,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"]}]}], ")"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                FractionBox["1", "8"], " ", 
                RowBox[{"(", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}], 
                    "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}]}], ")"}]}]}]],
           
           Annotation[#, {2, 3} -> 
            Rational[1, 8] ($CellContext`t11 + $CellContext`t22 + 
              3 ($CellContext`t11 + $CellContext`t22) 
               Cos[2 $CellContext`\[Theta][]] + 
              2 (-$CellContext`t11 + $CellContext`t22) 
               Cos[2 $CellContext`\[Phi][]] Sin[
                  $CellContext`\[Theta][]]^2), "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox["1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               InterpretationBox[
                StyleBox["t11",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t11,
                Editable->False], "+", 
               InterpretationBox[
                StyleBox["t22",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`t22,
                Editable->False], "+", 
               RowBox[{"3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False]}], "]"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   InterpretationBox[
                    StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`t11,
                    Editable->False]}], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Sin,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"]}]}], ")"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{
                FractionBox["1", "8"], " ", 
                RowBox[{"(", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}], 
                    "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}]}], ")"}]}]}]],
           
           Annotation[#, {3, 2} -> 
            Rational[1, 8] ($CellContext`t11 + $CellContext`t22 + 
              3 ($CellContext`t11 + $CellContext`t22) 
               Cos[2 $CellContext`\[Theta][]] + 
              2 (-$CellContext`t11 + $CellContext`t22) 
               Cos[2 $CellContext`\[Phi][]] Sin[
                  $CellContext`\[Theta][]]^2), "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             FractionBox["1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "-", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "+", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Cos",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Cos,
                    Editable->False], "[", 
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False]}], "]"}]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}]}], "-", 
               RowBox[{"6", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "+", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   Sin,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Theta][],
                   Editable->False], "]"}], "2"]}], "+", 
               RowBox[{"4", " ", "\[ImaginaryI]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["t11",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t11,
                   Editable->False], "-", 
                  InterpretationBox[
                   StyleBox["t22",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`t22,
                   Editable->False]}], ")"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Cos",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Cos,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["\[Theta]",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Theta][],
                  Editable->False], "]"}], " ", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["Sin",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  Sin,
                  Editable->False], "[", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["\[Phi]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Phi][],
                   Editable->False]}], "]"}]}]}], ")"}]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              RowBox[{
                FractionBox["1", "8"], " ", 
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False]}], "]"}]}], 
                    ")"}], " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}], "-", 
                    RowBox[{"6", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "+", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], "+", 
                    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t11"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t11, Editable -> False], "-", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"t22"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`t22, Editable -> False]}], ")"}], 
                    " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Cos"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Cos, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], " ", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "\[Phi]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Phi][], Editable -> False]}], "]"}]}]}], 
                  ")"}]}]}]],
           
           Annotation[#, {3, 3} -> 
            Rational[
              1, 8] (($CellContext`t11 - $CellContext`t22) (3 + 
                Cos[2 $CellContext`\[Theta][]]) Cos[2 $CellContext`\[Phi][]] - 
              6 ($CellContext`t11 + $CellContext`t22) Sin[
                 $CellContext`\[Theta][]]^2 + 
              Complex[0, 4] ($CellContext`t11 - $CellContext`t22) Cos[
                 $CellContext`\[Theta][]] Sin[2 $CellContext`\[Phi][]]), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 4 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"i", "j"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 0, 0}, {
    0, Rational[
      1, 8] (($CellContext`t11 - $CellContext`t22) (3 + 
        Cos[2 $CellContext`\[Theta][]]) Cos[2 $CellContext`\[Phi][]] - 
      6 ($CellContext`t11 + $CellContext`t22) Sin[
         $CellContext`\[Theta][]]^2 + 
      Complex[0, -4] ($CellContext`t11 - $CellContext`t22) Cos[
         $CellContext`\[Theta][]] Sin[2 $CellContext`\[Phi][]]), 
     Rational[1, 8] ($CellContext`t11 + $CellContext`t22 + 
      3 ($CellContext`t11 + $CellContext`t22) Cos[2 $CellContext`\[Theta][]] + 
      2 (-$CellContext`t11 + $CellContext`t22) Cos[2 $CellContext`\[Phi][]] 
       Sin[
          $CellContext`\[Theta][]]^2)}, {
    0, Rational[1, 8] ($CellContext`t11 + $CellContext`t22 + 
      3 ($CellContext`t11 + $CellContext`t22) Cos[2 $CellContext`\[Theta][]] + 
      2 (-$CellContext`t11 + $CellContext`t22) Cos[2 $CellContext`\[Phi][]] 
       Sin[
          $CellContext`\[Theta][]]^2), 
     Rational[1, 
       8] (($CellContext`t11 - $CellContext`t22) (3 + 
        Cos[2 $CellContext`\[Theta][]]) Cos[2 $CellContext`\[Phi][]] - 
      6 ($CellContext`t11 + $CellContext`t22) Sin[
         $CellContext`\[Theta][]]^2 + 
      Complex[0, 4] ($CellContext`t11 - $CellContext`t22) Cos[
         $CellContext`\[Theta][]] 
       Sin[2 $CellContext`\[Phi][]])}}, {$CellContext`HB, $CellContext`HB}, 
   0][$CellContext`i, $CellContext`j],
  Editable->False]], "Output",
 ExpressionUUID -> "d64704dc-2f22-44d4-b768-dbb9575ec904"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1040, 723},
WindowMargins->{{171, Automatic}, {Automatic, 25}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
2016)",
StyleDefinitions->"Default.nb"
]