(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 194305, 5577] NotebookOptionsPosition[ 183253, 5410] NotebookOutlinePosition[ 183828, 5432] CellTagsIndexPosition[ 183739, 5427] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Simple coordinate change in 3 dimensions", "Subsection", CellChangeTimes->{{3.736784910567339*^9, 3.736784934621726*^9}},ExpressionUUID->"4030fb2d-be74-4ae5-b249-\ b6cb30221007"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.735876874214685*^9, 3.7358768851670713`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"51953597-753c-4e16-b454-8180c006f390"], Cell[CellGroupData[{ Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018770454*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"cf2002c5-9e4f-4fea-a49e-474145874a54"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Package xAct`xPerm` version \"\>", "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}], SequenceForm["Package xAct`xPerm` version ", "1.2.3", ", ", {2015, 8, 23}], Editable->False]], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018774057*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"92ff0122-2843-405f-b0b4-83c32b4bb9f7"], Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018777893*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"9340705e-5df3-4c86-9d11-163958d8f7a8"], Cell[BoxData["\<\"Connecting to external linux executable...\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018825881*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"a2e434c2-92f7-4958-aec3-88fe255f5d81"], Cell[BoxData["\<\"Connection established.\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.73587801886203*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"316ea42d-6129-4d44-8769-f7bd8194a051"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.7358780188635693`*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"18796b5c-51c3-4fa8-92ff-ce72d1883b3b"], 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", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018865131*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"453218b8-229b-43f6-94ac-0c1fa338ea7a"], Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \ General Public License.\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018868236*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"c6a33dd3-ed66-4957-947d-1366c15a55ec"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018964164*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"232528a5-645e-48ad-8786-ce2052c781fc"], 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", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.7358780189667892`*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"3f683488-aed6-4398-a462-fd3ee250491f"], Cell[BoxData["\<\"CopyRight (C) 2005-2018, David Yllanes and Jose M. \ Martin-Garcia, under the General Public License.\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.7358780189691277`*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"dfef83ad-c5e4-47f6-9aa4-4381c7260a53"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018971133*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"a472fd56-c4ff-44ba-bd9a-11e2f74e780d"], Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \ details type Disclaimer[]. This is free software, and you are welcome to \ redistribute it under certain conditions. See the General Public License for \ details.\"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.7358780189731827`*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"bbdd2060-f58e-4baa-b344-0a34ada41976"], Cell[BoxData["\<\"------------------------------------------------------------\ \"\>"], "Print", CellChangeTimes->{3.73587697289902*^9, 3.7358772349349337`*^9, 3.735877421895195*^9, 3.735878018974934*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"808e5c1e-3455-461c-99a8-1088959cf0e3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefManifold", "[", RowBox[{"M", ",", "3", ",", RowBox[{"IndexRange", "[", RowBox[{"a", ",", "c"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7358768905989323`*^9, 3.735876891184622*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"4c060f5b-34bf-4fd8-b8e2-a14746dcbbda"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefManifold, ": Defining ", "manifold ", $CellContext`M, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876974653479*^9, 3.73587723799485*^9, 3.735877428552313*^9, 3.7358780217581377`*^9}, CellLabel-> "During evaluation of \ In[2]:=",ExpressionUUID->"89a33c09-a4b6-4145-bec8-0bb372f26f20"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefVBundle, ": Defining ", "vbundle ", $CellContext`TangentM, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876974653479*^9, 3.73587723799485*^9, 3.735877428552313*^9, 3.735878021768124*^9}, CellLabel-> "During evaluation of \ In[2]:=",ExpressionUUID->"eb0d5281-e43a-4229-9e70-3d151a834128"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefChart", "[", RowBox[{"sph", ",", "M", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"r", "[", "]"}], ",", RowBox[{"\[Theta]", "[", "]"}], ",", RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", RowBox[{"ChartColor", "\[Rule]", "Blue"}]}], "]"}]], "Input", CellChangeTimes->{{3.735876896872322*^9, 3.7358768974001617`*^9}, { 3.735877410744665*^9, 3.735877413379032*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"7b511b19-a4a2-476c-8869-4b2b5b16ed3c"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "sph", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`sph, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022323531*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"1df3c21d-54a5-43ef-ae01-4a3f0fddda6a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"r", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`r[], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022326888*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"9a8a7b59-d1bc-4cb2-8a71-6a9a8257b708"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"\[Theta]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`\[Theta][], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022331396*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"9379ba30-7f10-478f-8cda-0e7bb0f7cdbd"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"\[Phi]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`\[Phi][], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022333989*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"49370426-782b-4311-aea2-b9c92c0622fc"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "sph", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`sph, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022336728*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"9227b8e5-e11c-4304-8cc7-9cb9b29c8241"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", "isph", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "inverse mapping ", $CellContext`isph, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022339266*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"480e574d-eb58-4f1b-813b-ddde8be856fa"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"disph", "[", RowBox[{ RowBox[{"-", "\[FormalA]"}], ",", "ispha"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`disph[-\[FormalA], $CellContext`ispha], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022341874*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"6e4a6d3b-aacc-4655-97d2-8406a3050b9d"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"dsph", "[", RowBox[{ RowBox[{"-", "a"}], ",", "sph\[FormalA]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`dsph[-$CellContext`a, $CellContext`sph\[FormalA]], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022345325*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"0d9c6d2c-26e6-4dee-9d45-7f132235e434"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "sph", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`sph, ". ", "Coordinated basis."], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.73587802234947*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"e345832b-0c5d-4bd4-a28a-8bd227035121"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", RowBox[{"PDsph", "[", RowBox[{"-", "a"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", $CellContext`PDsph[-$CellContext`a], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022351083*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"ae640929-163b-4f7b-a660-87139196e8af"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", "\[InvisibleSpace]", RowBox[{"TorsionPDsph", "[", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", $CellContext`TorsionPDsph[$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022352862*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"a61cc7ec-e1fd-4775-85a2-7fd21cb3b537"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDsph", "[", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Christoffel tensor ", $CellContext`ChristoffelPDsph[$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022355385*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"9bc5b0e1-bc75-4807-aa7c-587d7b385b27"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", "\[InvisibleSpace]", RowBox[{"RiemannPDsph", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", "c1"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", $CellContext`RiemannPDsph[-$CellContext`a, -$CellContext`b, \ -$CellContext`c, $CellContext`c1], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.7358780223679943`*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"f70b409a-d215-48b6-9646-e0f5feaf94bc"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", "\[InvisibleSpace]", RowBox[{"RicciPDsph", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", $CellContext`RicciPDsph[-$CellContext`a, -$CellContext`b], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022369597*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"93190614-6718-488b-8645-0d7778237087"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaUpsph", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", $CellContext`etaUpsph[$CellContext`a, $CellContext`b, $CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022370987*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"24bb98e1-9b43-484f-be28-99dd2e43e2a5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaDownsph", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", $CellContext`etaDownsph[-$CellContext`a, -$CellContext`b, -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735876975608857*^9, 3.735877239228571*^9, 3.7358774305542803`*^9, 3.735878022374627*^9}, CellLabel-> "During evaluation of \ In[3]:=",ExpressionUUID->"1874cff3-b067-4ca4-80e4-4d26ca5a8fff"] }, Open ]] }, Open ]], Cell[TextData[{ "We introduce another coordinate chart so we need to use ", StyleBox["DefChart", FontWeight->"Bold"], " instead of ", StyleBox["DefBasis", FontWeight->"Bold"], ":" }], "Text", CellChangeTimes->{{3.735877103313616*^9, 3.735877164551484*^9}},ExpressionUUID->"b0105e8e-4ac4-4563-88e1-\ 73a8b9797896"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DefChart", "[", RowBox[{"cart", ",", "M", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "]"}], ",", RowBox[{"y", "[", "]"}], ",", RowBox[{"z", "[", "]"}]}], "}"}], ",", RowBox[{"ChartColor", "\[Rule]", "Red"}]}], "]"}]], "Input", CellChangeTimes->{{3.735876928146475*^9, 3.7358769288204613`*^9}, { 3.735877061556753*^9, 3.7358770966209784`*^9}, {3.7358771844023647`*^9, 3.735877222619482*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"a8e4080b-615a-41b8-a266-bcbd67574638"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "cart", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`cart, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024068934*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"cc9d438e-b0c1-4895-a470-b318faebed5f"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"x", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`x[], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024071989*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"b68e9820-c3af-44b1-ac2d-4dfb9195af20"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"y", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`y[], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024073558*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"4ab2475e-f183-47ad-90f7-ce24c3bfe363"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", RowBox[{"z", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", $CellContext`z[], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.7358780240748034`*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"3b931970-42b7-4aaa-bdfb-62943136fdf2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "cart", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`cart, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024076063*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"9e80469f-d5a4-4ede-ba2f-e17060f95472"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", "icart", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefMapping, ": Defining ", "inverse mapping ", $CellContext`icart, ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.7358780240772667`*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"eceedab1-c123-43be-abd5-157a6feb149d"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"dicart", "[", RowBox[{ RowBox[{"-", "\[FormalA]"}], ",", "icarta"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`dicart[-\[FormalA], $CellContext`icarta], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.73587802410362*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"60282ad6-2934-424e-926f-9a8183b34c8a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", "\[InvisibleSpace]", RowBox[{"dcart", "[", RowBox[{ RowBox[{"-", "a"}], ",", "cart\[FormalA]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "mapping differential tensor ", $CellContext`dcart[-$CellContext`a, $CellContext`cart\[FormalA]], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024105068*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"28c56f3f-2015-4095-af7f-d6caaf7788c0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "cart", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}], SequenceForm[ "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`cart, ". ", "Coordinated basis."], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024106419*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"6cff597d-6742-45a4-a561-46f4e2980715"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", RowBox[{"PDcart", "[", RowBox[{"-", "a"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", $CellContext`PDcart[-$CellContext`a], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024107752*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"a9d1ba8a-92dc-415d-bc38-9e01d0ae1234"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", "\[InvisibleSpace]", RowBox[{"TorsionPDcart", "[", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", $CellContext`TorsionPDcart[$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.7358780241091137`*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"aa0b3fd7-7521-4201-be22-7b8943ccaa87"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDcart", "[", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Christoffel tensor ", $CellContext`ChristoffelPDcart[$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024113003*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"ba4e2f93-37e7-43dd-9700-dfabd86d2fbe"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", "\[InvisibleSpace]", RowBox[{"RiemannPDcart", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}], ",", "c1"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", $CellContext`RiemannPDcart[-$CellContext`a, -$CellContext`b, \ -$CellContext`c, $CellContext`c1], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024114682*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"a2ecd6f5-d20a-4291-95b6-04fa7de4c8f9"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", "\[InvisibleSpace]", RowBox[{"RicciPDcart", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", $CellContext`RicciPDcart[-$CellContext`a, -$CellContext`b], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024116108*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"8973e430-5fb7-4777-9ff8-b29e3748de99"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaUpcart", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", $CellContext`etaUpcart[$CellContext`a, $CellContext`b, $CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024117446*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"dabae8f2-9edb-4048-9f8a-bf134310d102"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", "\[InvisibleSpace]", RowBox[{"etaDowncart", "[", RowBox[{ RowBox[{"-", "a"}], ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm[ "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", $CellContext`etaDowncart[-$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735877199874501*^9, 3.735877245386153*^9, 3.735877435328353*^9, 3.735878024118874*^9}, CellLabel-> "During evaluation of \ In[4]:=",ExpressionUUID->"d8fcdac6-b560-4393-84f2-5a4b7b973808"] }, Open ]] }, Open ]], Cell["Relation between both coordinate systems:", "Text", CellChangeTimes->{{3.735877301639093*^9, 3.73587730871033*^9}},ExpressionUUID->"fd6424f7-b542-42eb-992e-\ 5ad7672e7120"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "]"}], "->", RowBox[{ RowBox[{"r", "[", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"y", "[", "]"}], "->", RowBox[{ RowBox[{"r", "[", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"z", "[", "]"}], "->", RowBox[{ RowBox[{"r", "[", "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}]}]}]}], "}"}]], "Input", CellChangeTimes->{{3.735876915597735*^9, 3.7358769224590673`*^9}, { 3.73587725740557*^9, 3.7358772852189703`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"eebbc52d-f3ab-4711-9242-c8766d6b8506"], 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", CellChangeTimes->{3.735877286324029*^9, 3.735877437139969*^9, 3.735878027737954*^9}, CellLabel->"Out[5]=",ExpressionUUID->"4230a91a-720a-4c31-b151-5a5a6d286866"] }, Open ]], Cell["Computation of the Jacobian matrix:", "Text", CellChangeTimes->{{3.735877917298661*^9, 3.735877922663661*^9}},ExpressionUUID->"7a8bef16-9a91-4081-86dd-\ 18928a9699ea"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{"PDsph", "[", RowBox[{"-", "a"}], "]"}], ",", "%", ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.735877330828227*^9, 3.735877361058652*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"4abb86f0-65ac-4915-b84d-d18f45e23e4a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, {"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`xTensor`Basis[-$CellContext`a, {1, $CellContext`cart}], Editable->False], "\[Rule]", 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[{"(", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {2, $CellContext`sph}], Editable->False], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {1, $CellContext`sph}], 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {3, $CellContext`sph}], 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["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "]"}]}]}]}], ",", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, {"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`xTensor`Basis[-$CellContext`a, {2, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {1, $CellContext`sph}], 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["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False], " ", RowBox[{"(", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {3, $CellContext`sph}], 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["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {2, $CellContext`sph}], 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], "[", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "]"}]}]}], ")"}]}]}]}], ",", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, {"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`xTensor`Basis[-$CellContext`a, {3, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {1, $CellContext`sph}], 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, {"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`xTensor`Basis[-$CellContext`a, {2, $CellContext`sph}], 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], "]"}]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.735877361651196*^9, 3.735877437768383*^9, 3.7358780331125174`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"09307398-a580-48a6-b7b3-a7cc2c53c4e7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{"ToBasis", "[", "sph", "]"}], ",", "%", ",", RowBox[{"{", "2", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.735877374670199*^9, 3.735877394400338*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"953755a5-ee00-4208-98cf-9603fa9f5923"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 1, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 2, $CellContext`sph}], 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], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], Editable->False]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 1, $CellContext`sph}], 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["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}], "-", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 3, $CellContext`sph}], 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["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "]"}]}]}]}], ",", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 2, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 3, $CellContext`sph}], 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[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}], "+", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 2, $CellContext`sph}], Editable->False], " ", 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[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 1, $CellContext`sph}], 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 3, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 1, $CellContext`sph}], 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { StyleBox["a", 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], xAct`xTensor`Basis[{-$CellContext`a, -$CellContext`sph}, { 2, $CellContext`sph}], 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], "]"}]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.735877395421139*^9, 3.735877440686707*^9, 3.735878035365252*^9}, CellLabel->"Out[7]=",ExpressionUUID->"81302ed7-3b3a-4ba8-8b23-bab9be8edf38"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ComponentArray", "@", "%"}]], "Input", CellChangeTimes->{{3.735877449920932*^9, 3.735877452540823*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"6bacd20c-8f82-43cc-89a5-44b81cf18ea2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {1, $CellContext`cart}], Editable->False], "\[Rule]", 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[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {2, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {2, $CellContext`cart}], 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], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {2, $CellContext`cart}], 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[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", "0"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.735877452970152*^9, 3.735878038309661*^9}, CellLabel->"Out[8]=",ExpressionUUID->"729e2e98-3bef-4c94-be10-2942673371be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"Rule", "\[Rule]", "ComponentValue"}]}]], "Input", CellChangeTimes->{{3.7358775136812353`*^9, 3.735877530123578*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"1e58e793-9e7c-48bd-82f1-eca595655767"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`sph}, {1, $CellContext`cart}] -> Cos[ $CellContext`\[Phi][]] Sin[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042038835*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"ebcc2f45-a074-4476-b0fc-d685136484fb"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", 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]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`sph}, {1, $CellContext`cart}] -> Cos[ $CellContext`\[Theta][]] Cos[ $CellContext`\[Phi][]] $CellContext`r[], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042062831*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"6588550d-38f2-4552-b3bf-b4cdbb29ea19"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {1, $CellContext`cart}], Editable->False], "\[Rule]", 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], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`sph}, { 1, $CellContext`cart}] -> -$CellContext`r[] Sin[ $CellContext`\[Theta][]] Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042110403*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"3d57d7cd-17be-471d-86ac-8790b5d12ccc"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {2, $CellContext`cart}], Editable->False], "\[Rule]", 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], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`sph}, {2, $CellContext`cart}] -> Sin[ $CellContext`\[Theta][]] Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042113964*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"ba3c9cc5-e25d-4378-9262-5531f7a55138"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {2, $CellContext`cart}], 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], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Phi]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Phi][], Editable->False], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`sph}, {2, $CellContext`cart}] -> Cos[ $CellContext`\[Theta][]] $CellContext`r[] Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.73587804215003*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"4d34bce5-7bd0-4374-a7d4-4aed9cd9eb39"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {2, $CellContext`cart}], 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], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`sph}, {2, $CellContext`cart}] -> Cos[ $CellContext`\[Phi][]] $CellContext`r[] Sin[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.7358780421869164`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"9418123f-9c44-4e10-a658-9ee246e797c5"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", RowBox[{ InterpretationBox[ StyleBox["Cos", ShowAutoStyles->False, AutoSpacing->False], Cos, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`sph}, {3, $CellContext`cart}] -> Cos[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042222765*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"a5554394-7ae6-45f7-a24d-f5c5b5d51b12"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", 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], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`sph}, { 3, $CellContext`cart}] -> -$CellContext`r[] Sin[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.7358780422567587`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"c0bed544-bcbb-4e3a-97fb-7a57c2b4dbc2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`sph}, {3, $CellContext`cart}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735877595961603*^9, 3.735878042291994*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"552632bd-deb7-4717-b303-8c255bc72d07"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {1, $CellContext`cart}], 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], "]"}], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {1, $CellContext`cart}], Editable->False], "\[Rule]", 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[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {2, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {2, $CellContext`cart}], 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], " ", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {2, $CellContext`cart}], 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[{"{", RowBox[{ RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", 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[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[1., 0., 0.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`sph}, {3, $CellContext`cart}], Editable->False], "\[Rule]", "0"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.735877589389257*^9, 3.735877596217649*^9}, 3.7358780423362837`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"1a1cf96e-acbf-455a-ba28-376bd4af3cd0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"jacobianmatrix", "=", RowBox[{"ToValues", "@", RowBox[{"ComponentArray", "@", RowBox[{"Basis", "[", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{"a", ",", "sph"}], "}"}]}], ",", RowBox[{"{", RowBox[{"b", ",", "cart"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.735877604744388*^9, 3.735877634929536*^9}, { 3.7358776789344893`*^9, 3.7358776840375557`*^9}, {3.73587793662433*^9, 3.7358779395826597`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"b661cd33-2025-4afc-8398-d9fc4ce6a214"], Cell[BoxData[ RowBox[{"{", 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[{"{", 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], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], 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], "]"}], " ", 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[{"-", 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[{ 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[{ 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], "]"}]}], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.735877636056488*^9, 3.735877685499097*^9, 3.735877940229109*^9, 3.7358780458741207`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"3d3d96c4-ce84-415f-8a1c-44f273064efd"] }, Open ]], Cell[TextData[{ "This is the correct ", StyleBox["BasisChange", FontWeight->"Bold"], ":" }], "Text", CellChangeTimes->{{3.7358777033751593`*^9, 3.735877719070936*^9}},ExpressionUUID->"102edec3-acee-443f-bda6-\ 86e06313fee8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BasisChange", "\[Rule]", RowBox[{"CTensor", "[", RowBox[{"jacobianmatrix", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "sph"}], ",", "cart"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.735877783143733*^9, 3.735877787135661*^9}, { 3.735877954758095*^9, 3.735877956174378*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"cdf23ee7-2ecf-45c9-ae2f-73ad35174a98"], Cell[BoxData[ RowBox[{"BasisChange", "\[Rule]", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", 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[{"{", 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], "]"}], " ", InterpretationBox[ StyleBox["r", ShowAutoStyles->False, AutoSpacing->False], $CellContext`r[], 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], "]"}], " ", 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[{"-", 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[{ 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[{ 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], "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "sph"}], ",", "cart"}], "}"}], ",", "0"}], "]"}]}]], "Output", CellChangeTimes->{{3.735877772413121*^9, 3.735877800982329*^9}, 3.735877956499279*^9, 3.7358780550364637`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"0e673ad2-c805-4e4d-9640-7ff4d22375c3"] }, Open ]], Cell[TextData[{ "We declare the basis change now using ", StyleBox["SetBasisChange", FontWeight->"Bold"], ". Take the spherical coordinates as the reference coordinate chart:" }], "Text", CellChangeTimes->{{3.735877805651469*^9, 3.7358778082822733`*^9}, { 3.7358778626539927`*^9, 3.735877874631792*^9}, {3.7358780742310343`*^9, 3.735878081015473*^9}, {3.736784972072558*^9, 3.736784976017308*^9}},ExpressionUUID->"5bdab8cd-4083-42c3-96ba-\ a4b3ce8584ac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SetBasisChange"}]], "Input", CellChangeTimes->{{3.735877810075244*^9, 3.7358778129381638`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"2bc7eb69-7689-48dc-8602-0186a5f79937"], Cell[BoxData["\<\"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.\"\>"], \ "Print", "PrintUsage", CellChangeTimes->{3.735877813389739*^9}, CellTags-> "Info193735885013-4218977",ExpressionUUID->"fd82b252-9f8e-4e96-b79e-\ f8fc3a4ca9a9"] }, Open ]], Cell["\<\ This computes the inverse Jacobian matrix, the Jacobian (determinant of the \ Jacobian matrix) and the partial derivatives of the Jacobian matrix \ components:\ \>", "Text", CellChangeTimes->{{3.735877895209321*^9, 3.73587789950562*^9}, { 3.735877971067453*^9, 3.735878008990452*^9}},ExpressionUUID->"6e0c7393-6253-4e61-94da-\ 01cbe42f1a27"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetBasisChange", "[", RowBox[{ RowBox[{"CTensor", "[", RowBox[{"jacobianmatrix", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "sph"}], ",", "cart"}], "}"}]}], "]"}], ",", "sph"}], "]"}]], "Input", CellChangeTimes->{{3.735877825837706*^9, 3.7358778593532553`*^9}, { 3.7358779600973682`*^9, 3.735877961562187*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"328ce938-8e6f-47cc-b481-a3b38e3d75a5"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`cart}, {1, $CellContext`sph}], 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], "]"}], " ", RowBox[{ InterpretationBox[ StyleBox["Sin", ShowAutoStyles->False, AutoSpacing->False], Sin, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`cart}, {1, $CellContext`sph}] -> Cos[ $CellContext`\[Phi][]] Sin[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093659197*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"031d74ae-dad5-4872-be5c-abd917f78455"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`cart}, {2, $CellContext`sph}], Editable->False], "\[Rule]", 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]]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`cart}, {2, $CellContext`sph}] -> Cos[ $CellContext`\[Theta][]] Cos[ $CellContext`\[Phi][]]/$CellContext`r[], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093683827*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"472bbadd-02d9-4443-b900-81aa18870511"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{1, -$CellContext`cart}, {3, $CellContext`sph}], Editable->False], "\[Rule]", 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]]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{1, -$CellContext`cart}, {3, $CellContext`sph}] -> - Csc[ $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093711783*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"f7fad44f-0651-48e5-beaf-aac440402f23"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`cart}, {1, $CellContext`sph}], Editable->False], "\[Rule]", 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], "]"}]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`cart}, {1, $CellContext`sph}] -> Sin[ $CellContext`\[Theta][]] Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093736163*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"b4a34f21-27d2-4d54-ab9d-7f2339310b2b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`cart}, {2, $CellContext`sph}], Editable->False], "\[Rule]", 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]]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`cart}, {2, $CellContext`sph}] -> Cos[ $CellContext`\[Theta][]] $CellContext`r[]^(-1) Sin[ $CellContext`\[Phi][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093762023*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"05b66fa5-22cd-444e-8724-749b82294dc0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{2, -$CellContext`cart}, {3, $CellContext`sph}], Editable->False], "\[Rule]", 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]]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{2, -$CellContext`cart}, {3, $CellContext`sph}] -> Cos[ $CellContext`\[Phi][]] Csc[ $CellContext`\[Theta][]]/$CellContext`r[], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093785356*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"b430ea1e-3ab9-44b1-9249-878d52532c4a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["1", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`cart}, {1, $CellContext`sph}], Editable->False], "\[Rule]", RowBox[{ InterpretationBox[ StyleBox["Cos", ShowAutoStyles->False, AutoSpacing->False], Cos, Editable->False], "[", InterpretationBox[ StyleBox["\[Theta]", ShowAutoStyles->False, AutoSpacing->False], $CellContext`\[Theta][], Editable->False], "]"}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`cart}, {1, $CellContext`sph}] -> Cos[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093811185*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"5b701ee1-f96b-48eb-989f-0b172ab76920"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["2", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`cart}, {2, $CellContext`sph}], Editable->False], "\[Rule]", 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]]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`cart}, { 2, $CellContext`sph}] -> -$CellContext`r[]^(-1) Sin[ $CellContext`\[Theta][]], " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093834311*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"27ce072c-566d-4061-af66-5bc8717d0fd8"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[GridBox[{ {"e", StyleBox[GridBox[{ {" ", StyleBox["3", FontColor->RGBColor[0., 0., 1.]]}, { 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], xAct`xTensor`Basis[{3, -$CellContext`cart}, {3, $CellContext`sph}], Editable->False], "\[Rule]", "0"}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}], SequenceForm[ "Added independent rule ", xAct`xTensor`Basis[{3, -$CellContext`cart}, {3, $CellContext`sph}] -> 0, " for tensor ", xAct`xTensor`Basis], Editable->False]], "Print", CellChangeTimes->{3.735878093860568*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"61e37d03-47cc-4a8c-b06a-e8716a8dabd7"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"\"\>", "\[InvisibleSpace]", RowBox[{"Jacobiancartsph", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "", $CellContext`Jacobiancartsph[], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735878093862577*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"a88b93b9-6ce3-4467-84ed-793f5efb1d60"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", RowBox[{ InterpretationBox[ StyleBox[ UnderscriptBox[ OverscriptBox["J", StyleBox["~", FontColor->RGBColor[1, 0, 0]]], StyleBox["~", FontColor->RGBColor[0, 0, 1]]], ShowAutoStyles->False, AutoSpacing->False], $CellContext`Jacobiancartsph[], Editable->False], "\[Rule]", InterpretationBox[ StyleBox[ UnderscriptBox[ OverscriptBox[ FractionBox[ RowBox[{ InterpretationBox[ StyleBox["Csc", ShowAutoStyles->False, AutoSpacing->False], Csc, 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], "2"]], StyleBox["~", FontColor->RGBColor[1., 0., 0.]]], StyleBox["~", FontColor->RGBColor[0., 0., 1.]]], ShowAutoStyles->False, AutoSpacing->False], xAct`xCoba`CTensor[Csc[ $CellContext`\[Theta][]] $CellContext`r[]^(-2), {}, $CellContext`cart - \ $CellContext`sph][], Editable->False]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Jacobiancartsph"}], SequenceForm[ "Added independent rule ", $CellContext`Jacobiancartsph[] -> xAct`xCoba`CTensor[Csc[ $CellContext`\[Theta][]] $CellContext`r[]^(-2), {}, $CellContext`cart - \ $CellContext`sph][], " for tensor ", $CellContext`Jacobiancartsph], Editable->False]], "Print", CellChangeTimes->{3.7358780938641453`*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"693b6a7a-5e1b-48b5-b368-7da55efdfba6"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", "\[InvisibleSpace]", "\<\": Defining \"\>", "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", RowBox[{"ChristoffelPDcartPDsph", "[", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}], SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", $CellContext`ChristoffelPDcartPDsph[$CellContext`a, -$CellContext`b, \ -$CellContext`c], ". ", ""], Editable->False]], "Print", CellChangeTimes->{3.735878094579582*^9}, CellLabel-> "During evaluation of \ In[12]:=",ExpressionUUID->"af19a890-6838-4f01-a011-cb44c8aa0cea"] }, Open ]] }, Open ]], Cell["Metric tensor in spherical coordinates:", "Text", CellChangeTimes->{{3.735878250670929*^9, 3.7358782575373096`*^9}, 3.735878292993155*^9},ExpressionUUID->"8fa55ffb-1495-4071-a493-\ d07fb80e06a8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"met", "=", RowBox[{"CTensor", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"r", "[", "]"}], "^", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "]"}], "^", "2"}], " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "]"}], "]"}], "^", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "sph"}], ",", RowBox[{"-", "sph"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.735876934121183*^9, 3.735876935922359*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"119adc27-9375-49d4-afa8-32dcbde77ddd"], 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", CellChangeTimes->{3.735878247014309*^9}, CellLabel->"Out[20]=",ExpressionUUID->"9f5129ea-c83d-401f-aed7-334b9403147d"] }, Open ]], Cell["Metric tensor in Cartesian coordinates:", "Text", CellChangeTimes->{{3.735878250670929*^9, 3.7358782575373096`*^9}, { 3.735878292993155*^9, 3.735878307070085*^9}},ExpressionUUID->"75a1d15b-0838-4c42-a1b9-\ c89aefaa74a4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToCTensor", "[", RowBox[{"met", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "cart"}], ",", RowBox[{"-", "cart"}]}], "}"}]}], "]"}]], "Input", CellLabel->"In[21]:=",ExpressionUUID->"61a2f3da-ad05-4c06-a518-1e22600bbac8"], 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", CellChangeTimes->{3.735878259175263*^9}, CellLabel->"Out[21]=",ExpressionUUID->"d9b50c7f-1f57-4546-a20d-0e20663b0e92"] }, Open ]] }, Open ]] }, WindowSize->{1437, 911}, WindowMargins->{{Automatic, 218}, {Automatic, 62}}, Magnification->1.5, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info193735885013-4218977"->{ Cell[152734, 4494, 542, 9, 140, "Print",ExpressionUUID->"fd82b252-9f8e-4e96-b79e-f8fc3a4ca9a9", CellTags->"Info193735885013-4218977"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info193735885013-4218977", 183575, 5421} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 188, 3, 81, "Subsection",ExpressionUUID->"4030fb2d-be74-4ae5-b249-b6cb30221007"], Cell[CellGroupData[{ Cell[793, 29, 222, 3, 51, "Input",ExpressionUUID->"51953597-753c-4e16-b454-8180c006f390"], Cell[CellGroupData[{ Cell[1040, 36, 312, 6, 36, "Print",ExpressionUUID->"cf2002c5-9e4f-4fea-a49e-474145874a54"], Cell[1355, 44, 584, 14, 36, "Print",ExpressionUUID->"92ff0122-2843-405f-b0b4-83c32b4bb9f7"], Cell[1942, 60, 333, 6, 36, "Print",ExpressionUUID->"9340705e-5df3-4c86-9d11-163958d8f7a8"], Cell[2278, 68, 292, 5, 36, "Print",ExpressionUUID->"a2e434c2-92f7-4958-aec3-88fe255f5d81"], Cell[2573, 75, 272, 5, 36, "Print",ExpressionUUID->"316ea42d-6129-4d44-8769-f7bd8194a051"], Cell[2848, 82, 314, 6, 36, "Print",ExpressionUUID->"18796b5c-51c3-4fa8-92ff-ce72d1883b3b"], Cell[3165, 90, 588, 14, 36, "Print",ExpressionUUID->"453218b8-229b-43f6-94ac-0c1fa338ea7a"], Cell[3756, 106, 333, 6, 36, "Print",ExpressionUUID->"c6a33dd3-ed66-4957-947d-1366c15a55ec"], Cell[4092, 114, 312, 6, 36, "Print",ExpressionUUID->"232528a5-645e-48ad-8786-ce2052c781fc"], Cell[4407, 122, 586, 14, 36, "Print",ExpressionUUID->"3f683488-aed6-4398-a462-fd3ee250491f"], Cell[4996, 138, 353, 6, 36, "Print",ExpressionUUID->"dfef83ad-c5e4-47f6-9aa4-4381c7260a53"], Cell[5352, 146, 312, 6, 36, "Print",ExpressionUUID->"a472fd56-c4ff-44ba-bd9a-11e2f74e780d"], Cell[5667, 154, 469, 8, 67, "Print",ExpressionUUID->"bbdd2060-f58e-4baa-b344-0a34ada41976"], Cell[6139, 164, 312, 6, 36, "Print",ExpressionUUID->"808e5c1e-3455-461c-99a8-1088959cf0e3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6500, 176, 306, 6, 47, "Input",ExpressionUUID->"4c060f5b-34bf-4fd8-b8e2-a14746dcbbda"], Cell[CellGroupData[{ Cell[6831, 186, 644, 14, 36, "Print",ExpressionUUID->"89a33c09-a4b6-4145-bec8-0bb372f26f20"], Cell[7478, 202, 652, 14, 36, "Print",ExpressionUUID->"eb0d5281-e43a-4229-9e70-3d151a834128"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8179, 222, 561, 13, 47, "Input",ExpressionUUID->"7b511b19-a4a2-476c-8869-4b2b5b16ed3c"], Cell[CellGroupData[{ Cell[8765, 239, 635, 14, 36, "Print",ExpressionUUID->"1df3c21d-54a5-43ef-ae01-4a3f0fddda6a"], Cell[9403, 255, 685, 15, 36, "Print",ExpressionUUID->"9a8a7b59-d1bc-4cb2-8a71-6a9a8257b708"], Cell[10091, 272, 699, 15, 36, "Print",ExpressionUUID->"9379ba30-7f10-478f-8cda-0e7bb0f7cdbd"], Cell[10793, 289, 695, 15, 36, "Print",ExpressionUUID->"49370426-782b-4311-aea2-b9c92c0622fc"], Cell[11491, 306, 645, 14, 36, "Print",ExpressionUUID->"9227b8e5-e11c-4304-8cc7-9cb9b29c8241"], Cell[12139, 322, 667, 15, 36, "Print",ExpressionUUID->"480e574d-eb58-4f1b-813b-ddde8be856fa"], Cell[12809, 339, 816, 19, 40, "Print",ExpressionUUID->"6e4a6d3b-aacc-4655-97d2-8406a3050b9d"], Cell[13628, 360, 825, 19, 40, "Print",ExpressionUUID->"0d9c6d2c-26e6-4dee-9d45-7f132235e434"], Cell[14456, 381, 674, 15, 36, "Print",ExpressionUUID->"e345832b-0c5d-4bd4-a28a-8bd227035121"], Cell[15133, 398, 733, 16, 36, "Print",ExpressionUUID->"ae640929-163b-4f7b-a660-87139196e8af"], Cell[15869, 416, 857, 20, 36, "Print",ExpressionUUID->"a61cc7ec-e1fd-4775-85a2-7fd21cb3b537"], Cell[16729, 438, 877, 21, 36, "Print",ExpressionUUID->"9bc5b0e1-bc75-4807-aa7c-587d7b385b27"], Cell[17609, 461, 909, 21, 36, "Print",ExpressionUUID->"f70b409a-d215-48b6-9646-e0f5feaf94bc"], Cell[18521, 484, 821, 19, 36, "Print",ExpressionUUID->"93190614-6718-488b-8645-0d7778237087"], Cell[19345, 505, 807, 18, 36, "Print",ExpressionUUID->"24bb98e1-9b43-484f-be28-99dd2e43e2a5"], Cell[20155, 525, 877, 21, 36, "Print",ExpressionUUID->"1874cff3-b067-4ca4-80e4-4d26ca5a8fff"] }, Open ]] }, Open ]], Cell[21059, 550, 326, 11, 54, "Text",ExpressionUUID->"b0105e8e-4ac4-4563-88e1-73a8b9797896"], Cell[CellGroupData[{ Cell[21410, 565, 602, 14, 47, "Input",ExpressionUUID->"a8e4080b-615a-41b8-a266-bcbd67574638"], Cell[CellGroupData[{ Cell[22037, 583, 635, 14, 36, "Print",ExpressionUUID->"cc9d438e-b0c1-4895-a470-b318faebed5f"], Cell[22675, 599, 683, 15, 36, "Print",ExpressionUUID->"b68e9820-c3af-44b1-ac2d-4dfb9195af20"], Cell[23361, 616, 683, 15, 36, "Print",ExpressionUUID->"4ab2475e-f183-47ad-90f7-ce24c3bfe363"], Cell[24047, 633, 685, 15, 36, "Print",ExpressionUUID->"3b931970-42b7-4aaa-bdfb-62943136fdf2"], Cell[24735, 650, 645, 14, 36, "Print",ExpressionUUID->"9e80469f-d5a4-4ede-ba2f-e17060f95472"], Cell[25383, 666, 669, 15, 36, "Print",ExpressionUUID->"eceedab1-c123-43be-abd5-157a6feb149d"], Cell[26055, 683, 817, 19, 40, "Print",ExpressionUUID->"60282ad6-2934-424e-926f-9a8183b34c8a"], Cell[26875, 704, 827, 19, 40, "Print",ExpressionUUID->"28c56f3f-2015-4095-af7f-d6caaf7788c0"], Cell[27705, 725, 675, 15, 36, "Print",ExpressionUUID->"6cff597d-6742-45a4-a561-46f4e2980715"], Cell[28383, 742, 733, 16, 36, "Print",ExpressionUUID->"a9d1ba8a-92dc-415d-bc38-9e01d0ae1234"], Cell[29119, 760, 859, 20, 36, "Print",ExpressionUUID->"aa0b3fd7-7521-4201-be22-7b8943ccaa87"], Cell[29981, 782, 877, 21, 36, "Print",ExpressionUUID->"ba4e2f93-37e7-43dd-9700-dfabd86d2fbe"], Cell[30861, 805, 907, 21, 36, "Print",ExpressionUUID->"a2ecd6f5-d20a-4291-95b6-04fa7de4c8f9"], Cell[31771, 828, 821, 19, 36, "Print",ExpressionUUID->"8973e430-5fb7-4777-9ff8-b29e3748de99"], Cell[32595, 849, 807, 18, 36, "Print",ExpressionUUID->"dabae8f2-9edb-4048-9f8a-bf134310d102"], Cell[33405, 869, 875, 21, 36, "Print",ExpressionUUID->"d8fcdac6-b560-4393-84f2-5a4b7b973808"] }, Open ]] }, Open ]], Cell[34307, 894, 182, 3, 54, "Text",ExpressionUUID->"fd6424f7-b542-42eb-992e-5ad7672e7120"], Cell[CellGroupData[{ Cell[34514, 901, 932, 27, 47, "Input",ExpressionUUID->"eebbc52d-f3ab-4711-9242-c8766d6b8506"], Cell[35449, 930, 2975, 112, 53, "Output",ExpressionUUID->"4230a91a-720a-4c31-b151-5a5a6d286866"] }, Open ]], Cell[38439, 1045, 177, 3, 54, "Text",ExpressionUUID->"7a8bef16-9a91-4081-86dd-18928a9699ea"], Cell[CellGroupData[{ Cell[38641, 1052, 310, 7, 47, "Input",ExpressionUUID->"4abb86f0-65ac-4915-b84d-d18f45e23e4a"], Cell[38954, 1061, 19204, 552, 97, "Output",ExpressionUUID->"09307398-a580-48a6-b7b3-a7cc2c53c4e7"] }, Open ]], Cell[CellGroupData[{ Cell[58195, 1618, 294, 6, 47, "Input",ExpressionUUID->"953755a5-ee00-4208-98cf-9603fa9f5923"], Cell[58492, 1626, 20068, 594, 97, "Output",ExpressionUUID->"81302ed7-3b3a-4ba8-8b23-bab9be8edf38"] }, Open ]], Cell[CellGroupData[{ Cell[78597, 2225, 206, 3, 47, "Input",ExpressionUUID->"6bacd20c-8f82-43cc-89a5-44b81cf18ea2"], Cell[78806, 2230, 17968, 528, 136, "Output",ExpressionUUID->"729e2e98-3bef-4c94-be10-2942673371be"] }, Open ]], Cell[CellGroupData[{ Cell[96811, 2763, 241, 4, 47, "Input",ExpressionUUID->"1e58e793-9e7c-48bd-82f1-eca595655767"], Cell[CellGroupData[{ Cell[97077, 2771, 2511, 73, 42, "Print",ExpressionUUID->"ebcc2f45-a074-4476-b0fc-d685136484fb"], Cell[99591, 2846, 2688, 80, 42, "Print",ExpressionUUID->"6588550d-38f2-4552-b3bf-b4cdbb29ea19"], Cell[102282, 2928, 2718, 81, 42, "Print",ExpressionUUID->"3d57d7cd-17be-471d-86ac-8790b5d12ccc"], Cell[105003, 3011, 2511, 73, 42, "Print",ExpressionUUID->"ba3c9cc5-e25d-4378-9262-5531f7a55138"], Cell[107517, 3086, 2683, 79, 42, "Print",ExpressionUUID->"4d34bce5-7bd0-4374-a7d4-4aed9cd9eb39"], Cell[110203, 3167, 2686, 79, 42, "Print",ExpressionUUID->"9418123f-9c44-4e10-a658-9ee246e797c5"], Cell[112892, 3248, 2104, 58, 42, "Print",ExpressionUUID->"a5554394-7ae6-45f7-a24d-f5c5b5d51b12"], Cell[114999, 3308, 2342, 67, 42, "Print",ExpressionUUID->"c0bed544-bcbb-4e3a-97fb-7a57c2b4dbc2"], Cell[117344, 3377, 1750, 45, 42, "Print",ExpressionUUID->"552632bd-deb7-4717-b303-8c255bc72d07"] }, Open ]], Cell[119109, 3425, 17998, 529, 136, "Output",ExpressionUUID->"1a1cf96e-acbf-455a-ba28-376bd4af3cd0"] }, Open ]], Cell[CellGroupData[{ Cell[137144, 3959, 576, 14, 47, "Input",ExpressionUUID->"b661cd33-2025-4afc-8398-d9fc4ce6a214"], Cell[137723, 3975, 6367, 232, 88, "Output",ExpressionUUID->"3d3d96c4-ce84-415f-8a1c-44f273064efd"] }, Open ]], Cell[144105, 4210, 233, 8, 54, "Text",ExpressionUUID->"102edec3-acee-443f-bda6-86e06313fee8"], Cell[CellGroupData[{ Cell[144363, 4222, 408, 9, 47, "Input",ExpressionUUID->"cdf23ee7-2ecf-45c9-ae2f-73ad35174a98"], Cell[144774, 4233, 7245, 239, 88, "Output",ExpressionUUID->"0e673ad2-c805-4e4d-9640-7ff4d22375c3"] }, Open ]], Cell[152034, 4475, 468, 10, 54, "Text",ExpressionUUID->"5bdab8cd-4083-42c3-96ba-a4b3ce8584ac"], Cell[CellGroupData[{ Cell[152527, 4489, 204, 3, 47, "Input",ExpressionUUID->"2bc7eb69-7689-48dc-8602-0186a5f79937"], Cell[152734, 4494, 542, 9, 140, "Print",ExpressionUUID->"fd82b252-9f8e-4e96-b79e-f8fc3a4ca9a9", CellTags->"Info193735885013-4218977"] }, Open ]], Cell[153291, 4506, 357, 8, 90, "Text",ExpressionUUID->"6e0c7393-6253-4e61-94da-01cbe42f1a27"], Cell[CellGroupData[{ Cell[153673, 4518, 447, 11, 47, "Input",ExpressionUUID->"328ce938-8e6f-47cc-b481-a3b38e3d75a5"], Cell[CellGroupData[{ Cell[154145, 4533, 2490, 73, 42, "Print",ExpressionUUID->"031d74ae-dad5-4872-be5c-abd917f78455"], Cell[156638, 4608, 2707, 81, 58, "Print",ExpressionUUID->"472bbadd-02d9-4443-b900-81aa18870511"], Cell[159348, 4691, 2768, 82, 59, "Print",ExpressionUUID->"f7fad44f-0651-48e5-beaf-aac440402f23"], Cell[162119, 4775, 2490, 73, 42, "Print",ExpressionUUID->"b4a34f21-27d2-4d54-ab9d-7f2339310b2b"], Cell[164612, 4850, 2708, 80, 59, "Print",ExpressionUUID->"05b66fa5-22cd-444e-8724-749b82294dc0"], Cell[167323, 4932, 2707, 81, 58, "Print",ExpressionUUID->"b430ea1e-3ab9-44b1-9249-878d52532c4a"], Cell[170033, 5015, 2083, 58, 42, "Print",ExpressionUUID->"5b701ee1-f96b-48eb-989f-0b172ab76920"], Cell[172119, 5075, 2335, 67, 59, "Print",ExpressionUUID->"27ce072c-566d-4061-af66-5bc8717d0fd8"], Cell[174457, 5144, 1729, 45, 42, "Print",ExpressionUUID->"61e37d03-47cc-4a8c-b06a-e8716a8dabd7"], Cell[176189, 5191, 604, 13, 36, "Print",ExpressionUUID->"a88b93b9-6ce3-4467-84ed-793f5efb1d60"], Cell[176796, 5206, 2033, 61, 70, "Print",ExpressionUUID->"693b6a7a-5e1b-48b5-b368-7da55efdfba6"], Cell[178832, 5269, 764, 17, 36, "Print",ExpressionUUID->"af19a890-6838-4f01-a011-cb44c8aa0cea"] }, Open ]] }, Open ]], Cell[179623, 5290, 206, 3, 54, "Text",ExpressionUUID->"8fa55ffb-1495-4071-a493-d07fb80e06a8"], Cell[CellGroupData[{ Cell[179854, 5297, 871, 26, 47, "Input",ExpressionUUID->"119adc27-9375-49d4-afa8-32dcbde77ddd"], Cell[180728, 5325, 1399, 45, 57, "Output",ExpressionUUID->"9f5129ea-c83d-401f-aed7-334b9403147d"] }, Open ]], Cell[182142, 5373, 232, 4, 54, "Text",ExpressionUUID->"75a1d15b-0838-4c42-a1b9-c89aefaa74a4"], Cell[CellGroupData[{ Cell[182399, 5381, 263, 7, 47, "Input",ExpressionUUID->"61a2f3da-ad05-4c06-a518-1e22600bbac8"], Cell[182665, 5390, 560, 16, 53, "Output",ExpressionUUID->"d9b50c7f-1f57-4546-a20d-0e20663b0e92"] }, Open ]] }, Open ]] } ] *)