Backscattering Caused by the Expansion of the Universe by Parker.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    223796,       5824]
NotebookOptionsPosition[    206317,       5566]
NotebookOutlinePosition[    206779,       5583]
CellTagsIndexPosition[    206736,       5580]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Backscattering Caused by the Expansion of the Universe by Parker\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.825843456962591*^9, 3.825843470538437*^9}, {
   3.82587531772775*^9, 3.825875324670994*^9}, {3.8260076306940603`*^9, 
   3.826007641918522*^9}, 3.826011839512066*^9, {3.8263801688919907`*^9, 
   3.82638019304388*^9}, {3.8263958589521112`*^9, 3.826395869887525*^9}, {
   3.826395931303625*^9, 3.826395939943798*^9}, {3.8263961522321043`*^9, 
   3.8263961649670258`*^9}, 3.8264576044436207`*^9, {3.826532680726181*^9, 
   3.8265326870531597`*^9}, 3.826532734543453*^9, {3.826533116450289*^9, 
   3.826533124873698*^9}, {3.826533177034293*^9, 3.826533177449621*^9}, {
   3.826533345354254*^9, 3.826533345712063*^9}, {3.826533447380822*^9, 
   3.82653350371865*^9}, {3.826533627028933*^9, 3.82653363935043*^9}, {
   3.826533707484222*^9, 3.82653371594044*^9}, {3.826533828077026*^9, 
   3.8265338284558773`*^9}, {3.826534072681231*^9, 3.826534075296845*^9}, {
   3.826534277005148*^9, 3.826534295116191*^9}, {3.8265344097890177`*^9, 
   3.82653441661204*^9}, {3.826534538309024*^9, 3.826534543164234*^9}, {
   3.826534621037068*^9, 3.826534629179826*^9}, {3.826534709420918*^9, 
   3.826534712612302*^9}},
 TextAlignment->Center,ExpressionUUID->"17806248-f256-40b1-a8f6-eaa48a805506"],

Cell["\<\
Geoff Cope
University of Utah
April 4th, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.826007696989152*^9, 3.8260076984430513`*^9}, {3.8263801504852552`*^9, 
   3.826380154467449*^9}, {3.8265330435150127`*^9, 3.826533045288892*^9}},
 TextAlignment->Center,ExpressionUUID->"a8c1ada7-1baa-4fcd-8f13-df4eceef3aeb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"c3b3ac36-eb47-499b-9e2d-\
bd8cf25104cf"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"9aa22d60-1221-4a16-bf91-a8096f21e10b"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.825843522027536*^9, 
   3.825875355898499*^9, 3.8260077681021748`*^9, 3.826380423345456*^9, 
   3.8263927978526917`*^9, 3.826553813481596*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"3a026641-0306-478a-921f-e191cb3dc563"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.8265327310118723`*^9, {
   3.826533163674143*^9, 3.826533167241699*^9}, 
   3.82653355805296*^9},ExpressionUUID->"dc277122-dad2-43b8-897c-\
ea0579a9692b"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Backscattering Caused by the Expansion of the Universe - Parker\>\"", 
   ",", "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.5.2905\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826401473431128*^9, 3.8264014916290417`*^9}, 
   3.826554998399466*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"cd805973-2f3b-40bf-a65b-b5ba805212d9"],

Cell[BoxData[
 TemplateBox[{
  "\"Backscattering Caused by the Expansion of the Universe - Parker\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.5.2905"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826401491970344*^9, 3.826554998399604*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"24984b2f-86c0-470e-ae69-00202d5f7ddf"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Plane Waves by Griffiths - Book\>\"", ",", 
   "\"\<ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%\
20plane%20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)\
(254s)_PGr_.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"2e65a106-fe07-4a25-bc36-15021b987fee"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823597528661324*^9, 3.823618495426402*^9, 
   3.8236834139074087`*^9, 3.82368384189923*^9, 3.8236847753002243`*^9, 
   3.823688794441139*^9, 3.823690777159783*^9, 3.823704572476899*^9, 
   3.8239670361242037`*^9, 3.82396751791289*^9, 3.823970038722382*^9, 
   3.8240256821512117`*^9, 3.825843522202795*^9, 3.8258753560695133`*^9, 
   3.826007768229539*^9, 3.8263804235091753`*^9, 3.826392798218032*^9, 
   3.8265538136230583`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"a228882e-68eb-4275-bcea-dd80202012d7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"c30f9bab-ad7f-4c5e-a36d-\
1d2913c32613"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.8252877782634068`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"878543b3-001b-4289-98ae-169bc27aee83"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.826553813683632*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"16113ebe-215a-4e46-80fe-04c035c54e64"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Kb\"\>"}],
  SequenceForm["  (CleanSlate) Approximate kernel memory recovered: ", "7 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.8265538136879683`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"9fcbc858-1e91-44c9-94fa-bb6e1cc5ccf9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.825287778263782*^9, 3.825843522304077*^9, 
   3.82587535617485*^9, 3.826007768422662*^9, 3.8263804236686697`*^9, 
   3.826392798332839*^9, 3.8265538136893*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"b33e5874-b9b2-4f55-8b75-f483116d814c"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"166ff019-0ce1-4cc4-83f0-e6c097c401be"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"13cbf010-d37d-4e1f-96a4-8074b47e935f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"c8c4ec99-f4d5-4a00-96a8-\
0cccb167ec3c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", " ", 
      "d\[CurlyRho]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", " ", "d\[Xi]"}], " ", ",",
      "  ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, 3.825287791153907*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"cf5e7197-ab71-4aeb-92a3-7efca0bffa7c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", "d\[CurlyRho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.823598254375844*^9, 3.823598877146447*^9, 
  3.823598911379983*^9, 3.823618495599228*^9, 3.823683414107848*^9, 
  3.823683842051852*^9, 3.823684775483016*^9, 3.82368879462633*^9, 
  3.823690777330206*^9, 3.823691323069952*^9, 3.823704572638439*^9, 
  3.823704791783836*^9, 3.823967036322558*^9, 3.8239675180766773`*^9, 
  3.823970038900818*^9, 3.824025682372151*^9, 3.8252877911540327`*^9, 
  3.825843522413425*^9, 3.825875356265313*^9, 3.826007768477283*^9, 
  3.82638042378487*^9, 3.826392798568123*^9, 3.8265538137816563`*^9},
 CellLabel->
  "Out[6]//TableForm=",ExpressionUUID->"52544e86-30f9-419e-a616-5aaadaaee7f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825287791154132*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"d3f7921a-4db6-486d-9542-084d631b2dff"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"59499d4d-31dd-4c30-a356-\
4bb0b06a4d6d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"782964ed-1e52-4a75-b108-de5df3b54bb3"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"e9027ac2-5177-4a24-8cab-2cbd099ef314"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826554018127779*^9, 
  3.826554033120178*^9}},ExpressionUUID->"38746246-bf2f-47f3-950e-\
222c5c48296a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq8", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["d\[Tau]", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", " ", 
       RowBox[{
        RowBox[{"(", 
         FractionBox["1", "4"], ")"}], "\[Epsilon]", " ", 
        SuperscriptBox["u", "2"]}]}], ")"}], 
     RowBox[{"-", "2"}]], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["du", "2"], "+", " ", 
      RowBox[{
       SuperscriptBox["u", "2"], "(", " ", 
       RowBox[{
        SuperscriptBox["d\[Theta]", "2"], "+", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
         SuperscriptBox["d\[Phi]", "2"]}]}], ")"}]}], " ", ")"}], 
    " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826553720819426*^9, 3.826553802664838*^9}, 
   3.826553992298399*^9, 3.826554025917076*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"6b727007-9519-4e8d-978c-fdcfe694aae6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["d\[Tau]", "2"]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["du", "2"], "+", 
    RowBox[{
     SuperscriptBox["u", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["d\[Theta]", "2"], "+", 
       RowBox[{
        SuperscriptBox["d\[Phi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"]}], ")"}], 
    "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.826553813839345*^9, 3.826553993293152*^9, 
  3.8265540259174843`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"5cb999eb-a02f-4905-816a-ab02e7ba98fc"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq8", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"d\[Tau]", ",", "du", ",", "d\[Theta]", ",", "d\[Phi]"}], 
      "}"}]}], "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric8", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826553817521606*^9, 3.826553855952072*^9}, 
   3.8265540259176903`*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"b052fbfa-7ccd-443c-90e9-61b73fe272a9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"]}], ")"}], 
        "2"]], "0", "0"},
     {"0", "0", 
      FractionBox[
       SuperscriptBox["u", "2"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"]}], ")"}], 
        "2"]], "0"},
     {"0", "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"]}], ")"}], 
        "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826553831207961*^9, 3.82655385669436*^9}, {
  3.826553995932534*^9, 3.826554025917989*^9}},
 CellLabel->
  "Out[56]//MatrixForm=",ExpressionUUID->"70d85174-795f-43b5-b442-\
858073bbe210"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.826554035966937*^9, 
  3.82655405445604*^9}},ExpressionUUID->"125ae80b-594d-486a-a471-\
62eb9b414892"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.826553889066464*^9, 
   3.826553896500691*^9}, 3.826554043875493*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"88f1aa9f-bbce-4665-bd78-8ff0adb91293"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "1.97", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric8\>\"", ",", " ", "metric8", ",", " ", "\"\<FRLW\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(frlw\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]", ",", "u", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], 
     ",", " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", 
   "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.826553907450439*^9, 
   3.826553952008567*^9}, 3.8265540438756437`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"5d56876c-88e9-4307-bf68-203adfdaf0d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.10171`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.826553940342093*^9, 3.826553954240438*^9}, 
   3.826554003927445*^9, 3.826554043875744*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"ad5ff4f0-acf3-451d-95e0-5dffd59d7e8c"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.826553941554434*^9, 3.826553941898735*^9}, 
   3.826554043875852*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"1268dca1-df82-41d7-b2ea-d3def50292ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "frlw"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.826553942446759*^9, 3.826554004062952*^9, 
  3.826554043875968*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"a0ea3b0d-143f-43b9-aaf8-62144029ede2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.826554043876089*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"fdc8dfa5-cae4-4f03-bbf1-c177bc9559a9"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "frlw"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826553971284374*^9, 
  3.826554004095373*^9, 3.826554043876173*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"b8028e56-fcac-4691-a35c-601293606e18"],

Cell[BoxData["\<\"FRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826553971284374*^9, 
  3.82655400409743*^9, 3.826554043876273*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"2286a653-96e7-479e-9c51-d6832f2982ce"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
          ")"}], "2"]], "0", "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["u", "2"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
          ")"}], "2"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["u", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
          ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826553971284374*^9, 
  3.826554004099365*^9, 3.8265540438763437`*^9},
 CellLabel->
  "Out[61]//TraditionalForm=",ExpressionUUID->"6c87f71c-e2a9-43f2-b618-\
ee6dbe8acf85"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.826554043876464*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"1b68331f-8c1a-45c0-a107-e319d68d1a77"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.8265539713735857`*^9, 3.8265540041104097`*^9, 
   3.826554043876545*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"f6ba3b7d-b331-449d-b0ba-e650a3335c51"],

Cell[BoxData["\<\"ChristoffelSymbolFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.8265539713735857`*^9, 3.826554004112356*^9, 
   3.826554043876628*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"2c2d9056-491c-4ddc-bbb6-51c0887d04e4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "\[Epsilon]"}], 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", 
               "4"}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"u", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
               ")"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"u", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
               ")"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"4", "-", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "3"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"4", " ", "u"}]}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"4", "-", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "3"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"4", " ", "u"}]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"4", "-", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "3"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"4", " ", "u"}]}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"4", "-", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "3"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"4", " ", "u"}]}]]},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.8265539713735857`*^9, 3.826554004147532*^9, 
   3.8265540438766947`*^9},
 CellLabel->
  "Out[64]//TraditionalForm=",ExpressionUUID->"e4430751-91a0-4a42-88d4-\
98ed6c1d46bb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.826554043876813*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"4308ee4a-1d69-45ad-ac51-3a0056b8bb79"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826553971424869*^9, 
  3.826554004159747*^9, 3.826554043876891*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"f03e54ef-6382-4752-978e-7d523f83a32c"],

Cell[BoxData["\<\"RiemannTensorFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826553971424869*^9, 
  3.826554004164095*^9, 3.826554043876974*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"40ce8de5-3dfb-4714-9c45-e7a6a6c16dc5"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "4"], " ", "\[Epsilon]", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "4"], " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["u", "4"], " ", "\[Epsilon]", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "4"]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["u", "4"], " ", "\[Epsilon]", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "4"]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826553971424869*^9, 
  3.826554004232555*^9, 3.826554043877041*^9},
 CellLabel->
  "Out[67]//TraditionalForm=",ExpressionUUID->"b48fab19-12b4-42b2-8360-\
4ff9e023ac34"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.826554043877158*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"7e7c942d-7c8d-4d38-9079-c817694a5b0a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8265539714733887`*^9, 
  3.826554004244125*^9, 3.8265540438772373`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"c3cf8f0b-11ea-4576-a549-8e3c2d203f23"],

Cell[BoxData["\<\"RicciTensorFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8265539714733887`*^9, 
  3.826554004247738*^9, 3.8265540438773203`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"5cca2112-5414-4f35-8d24-41444a34e743"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{"32", " ", "\[Epsilon]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}], 
         "2"]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"32", " ", 
         SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}], 
         "2"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"32", " ", 
         SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}], 
         "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8265539714733887`*^9, 
  3.826554004249856*^9, 3.826554043877391*^9},
 CellLabel->
  "Out[70]//TraditionalForm=",ExpressionUUID->"10225baf-7040-4cda-b5f9-\
2c96e56627f1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Our", " ", "sign", " ", "convention", " ", "is", " ", "different"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.826554043877509*^9, {
   3.82655408868503*^9, 3.826554096915868*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"607473e4-5e2d-4385-9692-cefd0d08172b"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8265539715081244`*^9, 
  3.8265540042755623`*^9, 3.82655404387759*^9, 3.826554098400116*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"3793c98f-57d6-48d1-8f2a-92dba89bd52e"],

Cell[BoxData["\<\"RicciScalarFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8265539715081244`*^9, 
  3.8265540042755623`*^9, 3.82655404387759*^9, 3.8265540984050093`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"a2782b2f-26c2-4660-985f-9ff9ee6f2225"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"6", " ", "\[Epsilon]"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8265539715081244`*^9, 
  3.8265540042755623`*^9, 3.82655404387759*^9, 3.8265540984077187`*^9},
 CellLabel->
  "Out[88]//TraditionalForm=",ExpressionUUID->"43c30d8c-28d1-4a8b-a7e3-\
4ea75d87f597"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.826554043877861*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"6d0a2157-2ad1-4768-8b02-4a7188bf46ac"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826553971526925*^9, 3.826554004291389*^9, 
  3.8265540438779497`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"a16a6e17-e7ad-4dda-847f-7cd0aefe009f"],

Cell[BoxData["\<\"KretschmannScalarFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826553971526925*^9, 3.826554004294986*^9, 
  3.8265540438780413`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"ccfe3f3f-337f-456e-be80-a0012245eb1c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"12", " ", 
    SuperscriptBox["\[Epsilon]", "2"]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826553971526925*^9, 3.826554004296455*^9, 
  3.8265540438781*^9},
 CellLabel->
  "Out[76]//TraditionalForm=",ExpressionUUID->"dc93302f-0e49-4ba6-a222-\
f0e6aa27c22d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.826554043878214*^9},
 CellLabel->"In[77]:=",ExpressionUUID->"c2380666-08f0-49ad-891b-0762471f6e1c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826553971559307*^9, 3.8265540043224983`*^9, 
   3.826554043878295*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"b5d388ed-217f-4e4b-87eb-7c4c4bd3e72b"],

Cell[BoxData["\<\"EinsteinTensorFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826553971559307*^9, 3.826554004326065*^9, 
   3.826554043878381*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"ae94a55b-e273-43e5-8db6-20e9a2c13123"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"3", " ", "\[Epsilon]"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", "\[Epsilon]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}],
           "2"]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}],
           "2"]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["u", "2"], " ", "\[Epsilon]", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], ")"}],
           "2"]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826553971559307*^9, 3.8265540043279676`*^9, 
   3.8265540438784447`*^9},
 CellLabel->
  "Out[79]//TraditionalForm=",ExpressionUUID->"8110fdc6-828d-4d85-b4e4-\
42df07f74a19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.826554043878559*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"93575dac-78fe-4f45-8beb-07f6f1507242"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826553971585025*^9, 3.8265540043364964`*^9, 
   3.826554043878641*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"66efcad1-f856-4c3a-be54-70a370bca91e"],

Cell[BoxData["\<\"WeylTensorFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826553971585025*^9, 3.8265540043413477`*^9, 
   3.826554043878731*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"57c5f509-6984-4eb8-ad4b-fc6c6ea34059"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826553971585025*^9, 3.826554004380522*^9, 
   3.826554043878787*^9},
 CellLabel->
  "Out[82]//TraditionalForm=",ExpressionUUID->"325945e0-320a-48e1-a330-\
3fca3edee5b5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.826554043878901*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"02d8a2b4-a023-49d0-8a4c-23936a64b9db"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8265539716321993`*^9, 3.826554004391168*^9, 
  3.826554043878992*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"27bf358f-51ac-426c-b4a3-562f53ba8e62"],

Cell[BoxData["\<\"CottonTensorFRLW\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8265539716321993`*^9, 3.8265540043947573`*^9, 
  3.826554043879078*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"8037575f-2710-41d9-96e7-e012e5227650"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8265539716321993`*^9, 3.826554004424272*^9, 
  3.82655404387914*^9},
 CellLabel->
  "Out[85]//TraditionalForm=",ExpressionUUID->"db391dc6-2ad9-4d90-8948-\
563e37dbae75"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq9", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"sign", " ", "convention", " ", "is", " ", "different"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq9", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"TensorValues", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.826554111508206*^9, 3.826554126667852*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"429461c6-d5e3-4334-89db-1719b6a70a56"],

Cell[BoxData[
 RowBox[{"6", " ", "\[Epsilon]"}]], "Output",
 CellChangeTimes->{{3.826554118000277*^9, 3.826554127134911*^9}},
 CellLabel->"Out[92]=",ExpressionUUID->"5190e542-7dee-4f48-bd4c-28a6be62aa58"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Scalar Wave Equation Derivation Taken From Documentation: REMEMBER!!! This is \
Just box phi -  need equation 3\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826554467447609*^9, 3.826554501367551*^9}, {
  3.8265548388938026`*^9, 
  3.826554847541265*^9}},ExpressionUUID->"818dabff-a445-4ba6-a7e9-\
9e32ca7bbf82"],

Cell[BoxData[
 RowBox[{"phi", "=", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[Phi]\>\""}], "}"}], ",", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"a", "[", "\[Tau]", "]"}], " ", 
     RowBox[{"\[Phi]", "[", 
      RowBox[{"\[Tau]", ",", "u"}], "]"}], 
     RowBox[{"Ylm", "[", 
      RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826554210481818*^9, 3.82655427829594*^9}, 
   3.826554474340021*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"192a7395-3bb0-41f6-bd03-643c6d8e1188"],

Cell[BoxData[
 TagBox["\<\"\[Phi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826554281627715*^9, 3.826554474340349*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"e21bb15a-4b70-4adf-bb4c-141489da9096"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8265544743404827`*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"c2712ada-280f-4e7e-a818-0ccdca55bae4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.022853`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "frlw"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[Phi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[Phi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826554284313242*^9, 3.8265544743407297`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"6ee6c0e0-8890-4f0b-beee-29e7052f575f"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"boxPhi1", "=", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{"waveScalar1", ",", 
     RowBox[{"ActWith", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Collect", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"_", "[", 
             RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
            RowBox[{"_", "[", 
             RowBox[{"t", ",", "r"}], "]"}]}], "}"}], ",", "Simplify"}], 
         "]"}], "&"}], ")"}]}]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8265544743408623`*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"21c0e8d8-dfcd-4554-b0d6-5b0fa79ddc5d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.203368`", ",", 
   TagBox["\<\"(((-1)\[CenterDot]((\\!\\(\\*SuperscriptBox[\\(g\\), \
\\(frlw\\)]\\)\[CenterDot]\[CapitalGamma])\[CenterDot](\[PartialD]\[Phi])))+(\
\\!\\(\\*SuperscriptBox[\\(g\\), \\(frlw\\)]\\)\[CenterDot](\[PartialD](\
\[PartialD]\[Phi]))))\"\>",
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826554297576219*^9, 3.826554474341095*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"27d96e01-e696-48d4-9660-7cb348072dab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"boxPhi1", "//", "TensorValues"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826554307617173*^9, 3.826554309303055*^9}, 
   3.82655447434121*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"74a16d13-f0c9-4cae-bf2a-c9e061c81ec2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"a", "(", "\[Tau]", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
       ")"}], "2"], " ", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Theta]", "2"]}],
      MultilineFunction->None]}], 
    SuperscriptBox["u", "2"]], "+", 
   RowBox[{
    RowBox[{"Ylm", "(", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"a", "(", "\[Tau]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"16", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{"8", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
            ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Phi]", "(", 
              RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}]}], ")"}]}], 
       RowBox[{"16", " ", "u"}]], "-", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"a", "(", "\[Tau]", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["\[Tau]", "2"]}],
        MultilineFunction->None], " ", 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"a", "(", "\[Tau]", ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Phi]", "(", 
          RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"a", "(", "\[Tau]", ")"}], " ", 
     RowBox[{
      SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
       ")"}], "2"], " ", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Phi]", "2"]}],
      MultilineFunction->None]}], 
    SuperscriptBox["u", "2"]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"a", "(", "\[Tau]", ")"}], " ", 
     RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "4"], "+", "1"}], 
       ")"}], "2"], " ", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Theta]"}],
      MultilineFunction->None]}], 
    SuperscriptBox["u", "2"]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8265543053997507`*^9, 3.826554309861834*^9}, 
   3.826554474341407*^9},
 CellLabel->
  "Out[97]//TraditionalForm=",ExpressionUUID->"eeb90e63-cb59-463c-8b39-\
635fbee1d69b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"d2thYRule", ",", "dphYRule"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2thYRule", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Derivative", "[", 
       RowBox[{
        RowBox[{"a_", "/;", 
         RowBox[{"a", "\[GreaterEqual]", "2"}]}], ",", "b_"}], "]"}], "[", 
      "Ylm", "]"}], "[", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "\[RuleDelayed]", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox["m", "2"], 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]], "-", 
          RowBox[{"l", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", "l"}], ")"}]}]}], ")"}], 
        RowBox[{"Ylm", "[", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "-", 
       RowBox[{
        FractionBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Ylm", "[", 
           RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", "\[Theta]"}], 
         "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"a", "-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "b"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dphYRule", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Derivative", "[", 
       RowBox[{"a_", ",", "b_"}], "]"}], "[", "Ylm", "]"}], "[", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "\[RuleDelayed]", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"I", " ", "m"}], ")"}], "b"], 
       RowBox[{"Ylm", "[", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "a"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"removeYlmDerivs", "[", "expr_", "]"}], ":=", 
   RowBox[{"expr", "//.", 
    RowBox[{"{", 
     RowBox[{"d2thYRule", ",", "dphYRule"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"collectAndSimp", "[", "expr_", "]"}], ":=", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"removeYlmDerivs", "@", "expr"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"_", "[", 
       RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"_", "[", 
       RowBox[{"t", ",", "r"}], "]"}]}], "}"}], ",", "Simplify"}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826554474341728*^9},
 CellLabel->"In[98]:=",
 CellID->540676942,
 $CellContext`ExpressionUUID -> 
 "cccbb277-a9b6-44c1-a27b-2cba810aea16",ExpressionUUID->"84f736ed-a0d1-4338-\
beff-2e7256ed3037"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"boxPhi2", "=", 
   RowBox[{"ActOnTensorValues", "[", 
    RowBox[{"collectAndSimp", ",", "boxPhi1"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8265544743418283`*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"b31038bf-3a0a-4c54-aa55-225f53d3595b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.091454`", ",", 
   TagBox["\<\"(((-1)\[CenterDot]((\\!\\(\\*SuperscriptBox[\\(g\\), \
\\(frlw\\)]\\)\[CenterDot]\[CapitalGamma])\[CenterDot](\[PartialD]\[Phi])))+(\
\\!\\(\\*SuperscriptBox[\\(g\\), \\(frlw\\)]\\)\[CenterDot](\[PartialD](\
\[PartialD]\[Phi]))))\"\>",
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826554350899151*^9, 3.826554474342013*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"ec9111af-a3bc-41e0-91a3-d9e670a5f27c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"boxPhi2", "//", "TensorValues"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8265543783131933`*^9, 3.826554380032271*^9}, 
   3.8265544743421173`*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"36cd61ed-636a-4d6a-90bb-49afa8b1eda1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"Ylm", "(", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"a", "(", "\[Tau]", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                   ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"16", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["\[Tau]", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], "+", 
            RowBox[{"8", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{"l", " ", 
          RowBox[{"(", 
           RowBox[{"l", "+", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
            ")"}], "2"], " ", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "2"]}]], "-", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"a", "(", "\[Tau]", ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["\[Tau]", "2"]}],
       MultilineFunction->None], " ", 
      RowBox[{"\[Phi]", "(", 
       RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
     RowBox[{"2", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"a", "(", "\[Tau]", ")"}]}], 
       RowBox[{"\[PartialD]", "\[Tau]"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Phi]", "(", 
         RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Tau]"}],
       MultilineFunction->None]}]}], ")"}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8265543738638563`*^9, 3.826554380523354*^9}, 
   3.826554474342249*^9},
 CellLabel->
  "Out[105]//TraditionalForm=",ExpressionUUID->"b00127a6-e85f-408b-83fb-\
fb57f7b957b8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Vector Wave Equation Derivation Taken From Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8265548504610777`*^9, 
  3.82655487485326*^9}},ExpressionUUID->"65e0ff3a-4b38-4db1-a98c-\
bfcb4a0abeed"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"AVecVals", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"At", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}], ",", 
        RowBox[{"Ar", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "}"}], 
      RowBox[{"Ylm", "[", 
       RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"AOdd", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}], 
       RowBox[{"TensorValues", "[", 
        RowBox[{
         RowBox[{"TensorSphericalHarmonic", "[", "\"\<XA\>\"", "]"}], "[", 
         "A", "]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"AEven", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}], 
       RowBox[{"TensorValues", "[", 
        RowBox[{
         RowBox[{"TensorSphericalHarmonic", "[", "\"\<YA\>\"", "]"}], "[", 
         "A", "]"}], "]"}]}]}]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8265545597541437`*^9, 3.8265545871284847`*^9}, 
   3.826554858569265*^9},
 CellLabel->"In[106]:=",
 CellID->2079018855,
 $CellContext`ExpressionUUID -> 
 "15695583-c759-4b16-ae0c-a7db71f45058",ExpressionUUID->"32ecba02-a848-46dd-\
845a-9e9a0689e8d5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"At", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}], " ", 
        RowBox[{"Ylm", "[", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]},
      {
       RowBox[{
        RowBox[{"Ar", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}], " ", 
        RowBox[{"Ylm", "[", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"AOdd", "[", 
           RowBox[{"\[Tau]", ",", "u"}], "]"}]}], " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Ylm", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"AEven", "[", 
          RowBox[{"\[Tau]", ",", "u"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["Ylm", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"AEven", "[", 
          RowBox[{"\[Tau]", ",", "u"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["Ylm", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"AOdd", "[", 
          RowBox[{"\[Tau]", ",", "u"}], "]"}], " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["Ylm", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554596511702*^9, 3.826554858569818*^9},
 CellLabel->"Out[106]//MatrixForm=",
 $CellContext`ExpressionUUID -> 
 "8845203e-09b2-4726-8cf0-181610ee2b74",ExpressionUUID->"79a45149-ca48-44d2-\
9c4e-5538a892fcf9"],

Cell[BoxData[
 RowBox[{"AVec", "=", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<AVector\>\"", ",", "\"\<A\>\""}], "}"}], ",", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", "AVecVals"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826554611532098*^9, 3.8265546140527353`*^9}, 
   3.826554858570054*^9},
 CellLabel->
  "In[108]:=",ExpressionUUID->"6e5208b8-6e7b-4e15-96b9-e0e80daceb7e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["A", "", "\[Alpha]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8265546076083527`*^9, 3.826554614298863*^9}, 
   3.826554858570485*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"5e7c2e38-fffc-4f56-a87b-b4437be39ef7"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveVector1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{
     RowBox[{"AVec", "[", "\[Alpha]", "]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", "\[Beta]", ",", 
     RowBox[{"ActWith", "\[Rule]", "collectAndSimp"}]}], "]"}]}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8265548585707407`*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"458b9203-f31f-4de0-b557-d622a7d7937f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.084919`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "frlw"], "", "\[Beta]\[Delta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       TagBox[
        SubsuperscriptBox["\[CapitalGamma]", 
         RowBox[{"  ", "\[CurlyEpsilon]\[Delta]"}], 
         RowBox[{"\[Alpha]", "    "}]],
        DisplayForm], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "A"}], ")"}], 
         RowBox[{"\[Beta]", "  "}], 
         RowBox[{"  ", "\[CurlyEpsilon]"}]],
        DisplayForm]}], "+", 
      RowBox[{
       TagBox[
        SubsuperscriptBox["\[CapitalGamma]", 
         RowBox[{"  ", "\[Gamma]\[Beta]"}], 
         RowBox[{"\[Alpha]", "    "}]],
        DisplayForm], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          TagBox[
           SubsuperscriptBox["A", "", "\[CurlyEpsilon]"],
           DisplayForm], " ", 
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[CurlyEpsilon]\[Delta]"}], 
            RowBox[{"\[Gamma]", "    "}]],
           DisplayForm]}], "+", 
         TagBox[
          SubsuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[PartialD]", "A"}], ")"}], 
           RowBox[{"\[Delta]", "  "}], 
           RowBox[{"  ", "\[Gamma]"}]],
          DisplayForm]}], ")"}]}], "-", 
      RowBox[{
       TagBox[
        SubsuperscriptBox["\[CapitalGamma]", 
         RowBox[{"  ", "\[Beta]\[Delta]"}], 
         RowBox[{"\[CurlyEpsilon]", "    "}]],
        DisplayForm], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "A"}], ")"}], 
         RowBox[{"\[CurlyEpsilon]", "  "}], 
         RowBox[{"  ", "\[Alpha]"}]],
        DisplayForm]}], "+", 
      RowBox[{
       TagBox[
        SubsuperscriptBox["A", "", "\[Gamma]"],
        DisplayForm], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           TagBox[
            SubsuperscriptBox["\[CapitalGamma]", 
             RowBox[{"  ", "\[Gamma]\[CurlyEpsilon]"}], 
             RowBox[{"\[Alpha]", "    "}]],
            DisplayForm]}], " ", 
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[Beta]\[Delta]"}], 
            RowBox[{"\[CurlyEpsilon]", "    "}]],
           DisplayForm]}], "+", 
         RowBox[{
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[CurlyEpsilon]\[Delta]"}], 
            RowBox[{"\[Alpha]", "    "}]],
           DisplayForm], " ", 
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[Gamma]\[Beta]"}], 
            RowBox[{"\[CurlyEpsilon]", "    "}]],
           DisplayForm]}], "-", 
         RowBox[{
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[CurlyEpsilon]\[Beta]"}], 
            RowBox[{"\[Alpha]", "    "}]],
           DisplayForm], " ", 
          TagBox[
           SubsuperscriptBox["\[CapitalGamma]", 
            RowBox[{"  ", "\[Gamma]\[Delta]"}], 
            RowBox[{"\[CurlyEpsilon]", "    "}]],
           DisplayForm]}], "+", 
         TagBox[
          SubsuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[PartialD]", "\[CapitalGamma]"}], ")"}], 
           RowBox[{"\[Delta]", "  ", "\[Gamma]\[Beta]"}], 
           RowBox[{"  ", "\[Alpha]", "    "}]],
          DisplayForm]}], ")"}]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], 
        RowBox[{"\[Delta]\[Beta]", "  "}], 
        RowBox[{"    ", "\[Alpha]"}]],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8265546237314777`*^9, 3.8265548585711193`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"a917c6a0-cbdd-40f5-a8b0-f30ea9c50e64"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveVector2", "=", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{"waveVector1", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<BoxVectorFRLW\>\"", ",", "\"\<\[Square]A\>\""}], "}"}], 
     ",", 
     RowBox[{"ActWith", "\[Rule]", "collectAndSimp"}]}], "]"}]}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826554637281641*^9, 3.826554641681888*^9}, 
   3.826554858571316*^9},
 CellLabel->
  "In[110]:=",ExpressionUUID->"6c0f1be3-bdd9-4679-91c8-8b4192cee248"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"17.023935`", ",", 
   TagBox[
    SubsuperscriptBox[
     RowBox[{"\[Square]", "A"}], "", "\[Alpha]"],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8265546608808727`*^9, 3.826554858571693*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"0a4fa865-36e3-4fc5-bd0f-53f342389d36"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveVector3", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{
     RowBox[{"AVec", "[", "\[Alpha]", "]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", "\[Beta]", ",", 
     RowBox[{"ActWith", "\[Rule]", "collectAndSimp"}], ",", 
     RowBox[{"Merge", "\[Rule]", "True"}]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.826554667591474*^9, {3.826554758678378*^9, 3.8265547657575703`*^9}, 
   3.8265548585719137`*^9},ExpressionUUID->"1f33e6e4-f745-48d6-af3a-\
c8b18a034e23"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveVector4", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{
     RowBox[{"AVec", "[", "\[Alpha]", "]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", "\[Beta]", ",", 
     RowBox[{"ActWith", "\[Rule]", "collectAndSimp"}], ",", 
     RowBox[{"MergeNested", "\[Rule]", "True"}]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.826554667591474*^9, {3.826554758678378*^9, 3.8265547657575703`*^9}, 
   3.826554858572053*^9},ExpressionUUID->"bbb763ea-8437-408a-88b1-\
90b1c300c2fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"15.5945923815`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", 
                    SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}]}], ")"}], "+", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", 
                    SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["g", "frlw"], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
               ")"}], "+", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", "2", ")"}], "\[CenterDot]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", 
                    SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
                    "\[CapitalGamma]"}], ")"}], "\[CenterDot]", 
                  "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", "2", ")"}], "\[CenterDot]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["g", "frlw"], "\[CenterDot]", 
                  "\[CapitalGamma]"}], ")"}], "\[CenterDot]", 
                RowBox[{"(", 
                 RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
           ")"}], "+", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "\[CenterDot]", 
              SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
            RowBox[{"(", 
             RowBox[{"\[PartialD]", "\[CapitalGamma]"}], ")"}]}], ")"}]}], 
         ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["g", "frlw"], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", 
            RowBox[{"(", 
             RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], ")"}], 
      "", "\[Alpha]"],
     DisplayForm], " ", 
    TagBox[
     SubsuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}], 
                  "+", 
                  RowBox[{"(", 
                   RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], 
                "\[CenterDot]", 
                SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
              "\[CapitalGamma]"}], ")"}]}], ")"}], "+", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "\[CenterDot]", 
              SuperscriptBox["g", "frlw"]}], ")"}], "\[CenterDot]", 
            "\[CapitalGamma]"}], ")"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["g", "frlw"], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}], "+", 
              RowBox[{"(", 
               RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "", "\[Alpha]"],
     DisplayForm]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764060071*^9, 3.8265548585722017`*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"dba98a39-9da6-444f-9866-696cd6e127fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"waveVector3", "//", "TensorValues"}], "  ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826554790230277*^9, 3.826554804149707*^9}, 
   3.8265548585723753`*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"6f378f19-59e2-46f2-a9c4-48b653c29ddc"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"l", " ", 
          RowBox[{"(", 
           RowBox[{"l", "+", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
            ")"}], "2"], " ", 
          RowBox[{"At", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                   ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"At", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"16", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"At", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["\[Tau]", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], "+", 
            RowBox[{"8", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"At", "(", 
                RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "2"]}]]}], ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "l", " ", 
          RowBox[{"(", 
           RowBox[{"l", "+", "1"}], ")"}], " ", "u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "-", "16"}], ")"}], " ", 
          RowBox[{"AEven", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["l", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "2"]}], "+", 
            RowBox[{"l", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "32"}], 
           ")"}], " ", 
          RowBox[{"Ar", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "+", 
         RowBox[{"4", " ", "u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "8"}], ")"}],
           " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Ar", "(", 
             RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          SuperscriptBox["u", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"Ar", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"16", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"Ar", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}]}], ")"}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "2"]}]]}], ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "3"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"Ylm", "(", 
           RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"u", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["l", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"]}], "+", 
              RowBox[{"l", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
                 ")"}], "2"]}]}], ")"}], " ", 
            RowBox[{"AEven", "(", 
             RowBox[{"\[Tau]", ",", "u"}], ")"}]}]}], "+", 
          RowBox[{
           SuperscriptBox["u", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["u", "4"], " ", 
                  SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                RowBox[{"8", " ", 
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
               ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"AEven", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"u", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                    ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"16", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"32", "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "4"], " ", 
              SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
           RowBox[{"Ar", "(", 
            RowBox[{"\[Tau]", ",", "u"}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "m", " ", "u", " ", 
        RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["l", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
             ")"}], "2"]}], "+", 
          RowBox[{"l", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
             ")"}], "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
             ")"}], "2"]}]}], ")"}], " ", 
        RowBox[{"AOdd", "(", 
         RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
        RowBox[{"Ylm", "(", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "m", " ", 
        SuperscriptBox["u", "2"], " ", 
        RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"Ylm", "(", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               SuperscriptBox["u", "4"], " ", 
               SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
            ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"AOdd", "(", 
              RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"AOdd", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"16", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"AOdd", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
    ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "3"]}]], 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"m", " ", "u", " ", 
            RowBox[{"Ylm", "(", 
             RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["u", "4"], " ", 
                   SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
                ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"AEven", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"u", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"16", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Ylm", "(", 
               RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["l", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"]}], "+", 
                 RowBox[{"l", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}],
                     ")"}], "2"]}]}], ")"}], " ", 
               RowBox[{"AOdd", "(", 
                RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
              RowBox[{"u", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["u", "4"], " ", 
                    SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", 
                    "64"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"u", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"16", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}], "-", 
        RowBox[{"m", " ", "u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["l", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "2"]}], "+", 
           RowBox[{"l", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
              ")"}], "2"]}]}], ")"}], " ", 
         RowBox[{"AEven", "(", 
          RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
         RowBox[{"Ylm", "(", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "-", 
        RowBox[{"2", " ", "m", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", "4"], " ", 
            SuperscriptBox["\[Epsilon]", "2"]}], "-", "16"}], ")"}], " ", 
         RowBox[{"Ar", "(", 
          RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
         RowBox[{"Ylm", "(", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}]}], ")"}]}]}]}], "}"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764129149*^9, 3.826554807661854*^9, 
  3.826554858572689*^9},
 CellLabel->
  "Out[118]//TraditionalForm=",ExpressionUUID->"b13382aa-3808-4a63-ae66-\
0d3c1ea54f4b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"waveVector4", "//", "TensorValues"}], " ", "//", " ", "Expand"}],
    " ", "//", " ", "Simplify"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826554808262559*^9, 3.826554820213443*^9}, 
   3.82655485857288*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"c639a2a2-76cf-49f3-a17f-e86328664f2a"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"l", " ", 
          RowBox[{"(", 
           RowBox[{"l", "+", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
            ")"}], "2"], " ", 
          RowBox[{"At", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                   ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"At", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"16", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"At", "(", 
                   RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["\[Tau]", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], "+", 
            RowBox[{"8", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"At", "(", 
                RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "2"]}]]}], ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"Ylm", "(", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "l", " ", 
          RowBox[{"(", 
           RowBox[{"l", "+", "1"}], ")"}], " ", "u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "-", "16"}], ")"}], " ", 
          RowBox[{"AEven", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["l", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "2"]}], "+", 
            RowBox[{"l", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
               ")"}], "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "32"}], 
           ")"}], " ", 
          RowBox[{"Ar", "(", 
           RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "+", 
         RowBox[{"4", " ", "u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "8"}], ")"}],
           " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Ar", "(", 
             RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          SuperscriptBox["u", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"Ar", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"16", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"Ar", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}]}], ")"}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "2"]}]]}], ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "3"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"Ylm", "(", 
           RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"u", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["l", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"]}], "+", 
              RowBox[{"l", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                 ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
                 ")"}], "2"]}]}], ")"}], " ", 
            RowBox[{"AEven", "(", 
             RowBox[{"\[Tau]", ",", "u"}], ")"}]}]}], "+", 
          RowBox[{
           SuperscriptBox["u", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["u", "4"], " ", 
                  SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                RowBox[{"8", " ", 
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
               ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"AEven", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"u", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                    ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"16", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"32", "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "4"], " ", 
              SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
           RowBox[{"Ar", "(", 
            RowBox[{"\[Tau]", ",", "u"}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "m", " ", "u", " ", 
        RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["l", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
             ")"}], "2"]}], "+", 
          RowBox[{"l", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
             ")"}], "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
             ")"}], "2"]}]}], ")"}], " ", 
        RowBox[{"AOdd", "(", 
         RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
        RowBox[{"Ylm", "(", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "m", " ", 
        SuperscriptBox["u", "2"], " ", 
        RowBox[{"csc", "(", "\[Theta]", ")"}], " ", 
        RowBox[{"Ylm", "(", 
         RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               SuperscriptBox["u", "4"], " ", 
               SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
            ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"AOdd", "(", 
              RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
                ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"AOdd", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"16", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"AOdd", "(", 
                 RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
    ",", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"16", " ", 
       SuperscriptBox["u", "3"]}]], 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"m", " ", "u", " ", 
            RowBox[{"Ylm", "(", 
             RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["u", "4"], " ", 
                   SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "64"}], 
                ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"AEven", "(", 
                  RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"u", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"16", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AEven", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Ylm", "(", 
               RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["l", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"]}], "+", 
                 RowBox[{"l", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}],
                     ")"}], "2"]}]}], ")"}], " ", 
               RowBox[{"AOdd", "(", 
                RowBox[{"\[Tau]", ",", "u"}], ")"}]}], "-", 
              RowBox[{"u", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["u", "4"], " ", 
                    SuperscriptBox["\[Epsilon]", "2"]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", 
                    "64"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"u", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}],
                     ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"16", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"AOdd", "(", 
                    RowBox[{"\[Tau]", ",", "u"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}], "-", 
        RowBox[{"m", " ", "u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["l", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "2"]}], "+", 
           RowBox[{"l", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", "4"}], 
              ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", "4"}], 
              ")"}], "2"]}]}], ")"}], " ", 
         RowBox[{"AEven", "(", 
          RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
         RowBox[{"Ylm", "(", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "-", 
        RowBox[{"2", " ", "m", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", "4"], " ", 
            SuperscriptBox["\[Epsilon]", "2"]}], "-", "16"}], ")"}], " ", 
         RowBox[{"Ar", "(", 
          RowBox[{"\[Tau]", ",", "u"}], ")"}], " ", 
         RowBox[{"Ylm", "(", 
          RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}]}], ")"}]}]}]}], "}"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764153335*^9, 3.8265548208453836`*^9, 
  3.826554858573069*^9},
 CellLabel->
  "Out[119]//TraditionalForm=",ExpressionUUID->"eae86e73-f73c-424f-84ba-\
17789eec6c52"],

Cell[BoxData[
 RowBox[{"vectorEquations1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{"#", ",", 
      RowBox[{"Ylm", "[", 
       RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "&"}], "/@", 
   RowBox[{"TensorValues", "[", "waveVector2", "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554858573185*^9},
 CellLabel->
  "In[114]:=",ExpressionUUID->"304ddb46-541f-49e1-afea-28fcca240189"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "l"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "l"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"], " ", 
      RowBox[{"At", "[", 
       RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
     RowBox[{"u", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{
            SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["At", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
        RowBox[{"u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"4", "+", 
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"], 
            " ", 
            RowBox[{
             SuperscriptBox["At", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
           RowBox[{"16", " ", 
            RowBox[{
             SuperscriptBox["At", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["u", "2"]}]], ",", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox["u", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "l", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "l"}], ")"}], " ", "u", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "16"}], "+", 
         RowBox[{
          SuperscriptBox["u", "4"], " ", 
          SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
       RowBox[{"AEven", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"32", "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["u", "4"], " ", 
          SuperscriptBox["\[Epsilon]", "2"]}], "+", 
         RowBox[{"l", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"4", "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}], 
         "+", 
         RowBox[{
          SuperscriptBox["l", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"4", "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
           "2"]}]}], ")"}], " ", 
       RowBox[{"Ar", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
      RowBox[{"u", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "8"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "+", 
            RowBox[{
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["Ar", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"],
              " ", 
             RowBox[{
              SuperscriptBox["Ar", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "2"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
            RowBox[{"16", " ", 
             RowBox[{
              SuperscriptBox["Ar", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox["u", "2"]}]], 
    RowBox[{"\[ImaginaryI]", " ", "m", " ", 
     RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}],
           "+", 
          RowBox[{"l", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}],
           "+", 
          RowBox[{
           SuperscriptBox["l", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
            "2"]}]}], ")"}], " ", 
        RowBox[{"AOdd", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"64", "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "4"], " ", 
              SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["AOdd", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
               "2"], " ", 
              RowBox[{
               SuperscriptBox["AOdd", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "2"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
             RowBox[{"16", " ", 
              RowBox[{
               SuperscriptBox["AOdd", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox["u", "3"]}]], 
    RowBox[{"\[ImaginaryI]", " ", "m", " ", 
     SuperscriptBox[
      RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}],
           "+", 
          RowBox[{"l", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}],
           "+", 
          RowBox[{
           SuperscriptBox["l", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{
               SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
            "2"]}]}], ")"}], " ", 
        RowBox[{"AEven", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"32", "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
        RowBox[{"Ar", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["u", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"64", "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "4"], " ", 
              SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["AEven", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
               "2"], " ", 
              RowBox[{
               SuperscriptBox["AEven", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "2"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
             RowBox[{"16", " ", 
              RowBox[{
               SuperscriptBox["AEven", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82655476420118*^9, 3.826554858573276*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"ff94ca87-3a47-4f1b-beda-d9af5da58581"],

Cell[BoxData[
 RowBox[{"vectorEquations2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{"#", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"1", ",", "0"}], "]"}], "[", "Ylm", "]"}], "[", 
       RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "&"}], "/@", 
   RowBox[{"TensorValues", "[", "waveVector2", "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554858573379*^9},
 CellLabel->
  "In[115]:=",ExpressionUUID->"8b41fb73-fb0f-4d63-ad65-f46b1f99c62a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"16", " ", 
      SuperscriptBox["u", "3"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4"}], "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}], 
         "+", 
         RowBox[{"l", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"4", "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"]}], 
         "+", 
         RowBox[{
          SuperscriptBox["l", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"4", "+", 
             RowBox[{
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
           "2"]}]}], ")"}], " ", 
       RowBox[{"AEven", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"32", "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["u", "4"], " ", 
          SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
       RowBox[{"Ar", "[", 
        RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["u", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"64", "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "4"], " ", 
             SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["AEven", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], "2"],
              " ", 
             RowBox[{
              SuperscriptBox["AEven", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "2"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
            RowBox[{"16", " ", 
             RowBox[{
              SuperscriptBox["AEven", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
             "2"]}], "+", 
           RowBox[{"l", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"4", "+", 
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
             "2"]}], "+", 
           RowBox[{
            SuperscriptBox["l", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"4", "+", 
               RowBox[{
                SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
             "2"]}]}], ")"}]}], " ", 
        RowBox[{"AOdd", "[", 
         RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"64", "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["u", "2"], " ", "\[Epsilon]"}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "4"], " ", 
              SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["AOdd", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 RowBox[{
                  SuperscriptBox["u", "2"], " ", "\[Epsilon]"}]}], ")"}], 
               "2"], " ", 
              RowBox[{
               SuperscriptBox["AOdd", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "2"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}], "-", 
             RowBox[{"16", " ", 
              RowBox[{
               SuperscriptBox["AOdd", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"\[Tau]", ",", "u"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["u", "2"]}]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764218604*^9, 3.826554858573477*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"2c7b31cf-d961-48ad-8120-e0c5038ee205"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"vectorEquations1", "[", 
     RowBox[{"[", "4", "]"}], "]"}], 
    RowBox[{"\[ImaginaryI]", " ", "m", " ", 
     SuperscriptBox[
      RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}]], "-", 
   RowBox[{"vectorEquations2", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "//", "Simplify"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554858573584*^9},
 CellLabel->
  "In[116]:=",ExpressionUUID->"4a69a106-a919-45a8-be72-5e4d89e7de31"],

Cell[BoxData["0"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764261595*^9, 3.82655485857368*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"51441bfc-9510-46b6-85cd-0e6cba6b10be"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"vectorEquations1", "[", 
      RowBox[{"[", "3", "]"}], "]"}], 
     RowBox[{"\[ImaginaryI]", " ", "m", " "}]]}], "-", 
   RowBox[{"vectorEquations2", "[", 
    RowBox[{"[", "4", "]"}], "]"}]}], "//", "Simplify"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554858573781*^9},
 CellLabel->
  "In[117]:=",ExpressionUUID->"248949ca-87c8-4a35-a2c9-e39fe2a0784e"],

Cell[BoxData["0"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826554764274013*^9, 3.826554858573955*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"5b9f6431-2536-4edd-92da-08859d7d0717"]
}, Closed]]
},
WindowSize->{1269, 675},
WindowMargins->{{Automatic, 2}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"d00d31d3-b5c4-4315-acfb-1a83ae7cb84c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2264, 33, 159, "Title",ExpressionUUID->"17806248-f256-40b1-a8f6-eaa48a805506",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2847, 57, 946, 16, 76, "Author",ExpressionUUID->"a8c1ada7-1baa-4fcd-8f13-df4eceef3aeb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3830, 78, 228, 4, 69, "Section",ExpressionUUID->"c3b3ac36-eb47-499b-9e2d-bd8cf25104cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4061, 84, 433, 9, 63, "Input",ExpressionUUID->"9aa22d60-1221-4a16-bf91-a8096f21e10b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4497, 95, 1273, 20, 43, "Output",ExpressionUUID->"3a026641-0306-478a-921f-e191cb3dc563",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5807, 120, 618, 10, 55, "Section",ExpressionUUID->"dc277122-dad2-43b8-897c-ea0579a9692b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6428, 132, 488, 10, 63, "Input",ExpressionUUID->"cd805973-2f3b-40bf-a65b-b5ba805212d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6919, 144, 399, 7, 43, "Output",ExpressionUUID->"24984b2f-86c0-470e-ae69-00202d5f7ddf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7321, 153, 583, 10, 84, "Input",ExpressionUUID->"2e65a106-fe07-4a25-bc36-15021b987fee",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7907, 165, 1322, 22, 43, "Output",ExpressionUUID->"a228882e-68eb-4275-bcea-dd80202012d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9266, 192, 251, 4, 55, "Section",ExpressionUUID->"c30f9bab-ad7f-4c5e-a36d-1d2913c32613",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[9520, 198, 1668, 45, 189, "Input",ExpressionUUID->"878543b3-001b-4289-98ae-169bc27aee83",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11191, 245, 1543, 26, 24, "Print",ExpressionUUID->"16113ebe-215a-4e46-80fe-04c035c54e64",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12737, 273, 1557, 26, 24, "Print",ExpressionUUID->"9fcbc858-1e91-44c9-94fa-bb6e1cc5ccf9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14297, 301, 1416, 22, 41, "Output",ExpressionUUID->"b33e5874-b9b2-4f55-8b75-f483116d814c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15716, 325, 268, 4, 41, "Input",ExpressionUUID->"166ff019-0ce1-4cc4-83f0-e6c097c401be",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15987, 331, 308, 5, 41, "Input",ExpressionUUID->"13cbf010-d37d-4e1f-96a4-8074b47e935f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16332, 341, 266, 5, 55, "Section",ExpressionUUID->"c8c4ec99-f4d5-4a00-96a8-0cccb167ec3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[16601, 348, 3865, 88, 630, "Input",ExpressionUUID->"cf5e7197-ab71-4aeb-92a3-7efca0bffa7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20469, 438, 3317, 101, 483, "Output",ExpressionUUID->"52544e86-30f9-419e-a616-5aaadaaee7f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23789, 541, 675, 16, 63, "Input",ExpressionUUID->"d3f7921a-4db6-486d-9542-084d631b2dff",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24501, 562, 362, 6, 55, "Section",ExpressionUUID->"59499d4d-31dd-4c30-a356-4bb0b06a4d6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24866, 570, 1659, 41, 126, "Input",ExpressionUUID->"782964ed-1e52-4a75-b108-de5df3b54bb3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26528, 613, 1056, 26, 84, "Input",ExpressionUUID->"e9027ac2-5177-4a24-8cab-2cbd099ef314",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27621, 644, 225, 4, 55, "Section",ExpressionUUID->"38746246-bf2f-47f3-950e-222c5c48296a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27849, 650, 1111, 30, 102, "Input",ExpressionUUID->"6b727007-9519-4e8d-978c-fdcfe694aae6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28963, 682, 849, 26, 76, "Output",ExpressionUUID->"5cb999eb-a02f-4905-816a-ab02e7ba98fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29815, 710, 666, 13, 105, "Input",ExpressionUUID->"b052fbfa-7ccd-443c-90e9-61b73fe272a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30484, 725, 1682, 53, 187, "Output",ExpressionUUID->"70d85174-795f-43b5-b442-858073bbe210",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[32203, 783, 230, 4, 55, "Section",ExpressionUUID->"125ae80b-594d-486a-a471-62eb9b414892",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[32436, 789, 5731, 130, 714, "Input",ExpressionUUID->"88f1aa9f-bbce-4665-bd78-8ff0adb91293",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38170, 921, 993, 21, 65, "Input",ExpressionUUID->"5d56876c-88e9-4307-bf68-203adfdaf0d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39166, 944, 331, 6, 41, "Output",ExpressionUUID->"ad5ff4f0-acf3-451d-95e0-5dffd59d7e8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39500, 952, 262, 4, 41, "Input",ExpressionUUID->"1268dca1-df82-41d7-b2ea-d3def50292ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39765, 958, 1110, 34, 45, "Output",ExpressionUUID->"a0ea3b0d-143f-43b9-aaf8-62144029ede2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40878, 994, 810, 18, 84, "Input",ExpressionUUID->"fdc8dfa5-cae4-4f03-bbf1-c177bc9559a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41691, 1014, 582, 11, 45, "Output",ExpressionUUID->"b8028e56-fcac-4691-a35c-601293606e18",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42276, 1027, 494, 7, 41, "Output",ExpressionUUID->"2286a653-96e7-479e-9c51-d6832f2982ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42773, 1036, 1975, 57, 184, "Output",ExpressionUUID->"6c87f71c-e2a9-43f2-b618-ee6dbe8acf85",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[44751, 1095, 813, 18, 84, "Input",ExpressionUUID->"1b68331f-8c1a-45c0-a107-e319d68d1a77",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45567, 1115, 707, 14, 45, "Output",ExpressionUUID->"f6ba3b7d-b331-449d-b0ba-e650a3335c51",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46277, 1131, 599, 9, 41, "Output",ExpressionUUID->"2c2d9056-491c-4ddc-bbb6-51c0887d04e4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46879, 1142, 12473, 369, 354, "Output",ExpressionUUID->"e4430751-91a0-4a42-88d4-98ed6c1d46bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59355, 1513, 810, 18, 84, "Input",ExpressionUUID->"4308ee4a-1d69-45ad-ac51-3a0056b8bb79",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60168, 1533, 572, 10, 45, "Output",ExpressionUUID->"f03e54ef-6382-4752-978e-7d523f83a32c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60743, 1545, 510, 7, 41, "Output",ExpressionUUID->"40ce8de5-3dfb-4714-9c45-e7a6a6c16dc5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61256, 1554, 14473, 381, 422, "Output",ExpressionUUID->"b48fab19-12b4-42b2-8360-4ff9e023ac34",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[75732, 1937, 808, 18, 84, "Input",ExpressionUUID->"7e7c942d-7c8d-4d38-9079-c817694a5b0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[76543, 1957, 559, 10, 45, "Output",ExpressionUUID->"c3cf8f0b-11ea-4576-a549-8e3c2d203f23",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77105, 1969, 511, 7, 41, "Output",ExpressionUUID->"5cca2112-5414-4f35-8d24-41444a34e743",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77619, 1978, 1973, 55, 154, "Output",ExpressionUUID->"10225baf-7040-4cda-b5f9-2c96e56627f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79595, 2035, 990, 23, 84, "Input",ExpressionUUID->"607473e4-5e2d-4385-9692-cefd0d08172b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80588, 2060, 545, 9, 41, "Output",ExpressionUUID->"3793c98f-57d6-48d1-8f2a-92dba89bd52e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81136, 2071, 536, 7, 41, "Output",ExpressionUUID->"a2782b2f-26c2-4660-985f-9ff9ee6f2225",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81675, 2080, 662, 14, 48, "Output",ExpressionUUID->"43c30d8c-28d1-4a8b-a7e3-4ea75d87f597",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[82340, 2096, 741, 17, 84, "Input",ExpressionUUID->"6d0a2157-2ad1-4768-8b02-4a7188bf46ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83084, 2115, 354, 7, 41, "Output",ExpressionUUID->"a16a6e17-e7ad-4dda-847f-7cd0aefe009f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83441, 2124, 349, 5, 41, "Output",ExpressionUUID->"ccfe3f3f-337f-456e-be80-a0012245eb1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83793, 2131, 492, 13, 53, "Output",ExpressionUUID->"dc93302f-0e49-4ba6-a222-f0e6aa27c22d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[84288, 2146, 792, 18, 84, "Input",ExpressionUUID->"c2380666-08f0-49ad-891b-0762471f6e1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85083, 2166, 494, 10, 45, "Output",ExpressionUUID->"b5d388ed-217f-4e4b-87eb-7c4c4bd3e72b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85580, 2178, 447, 7, 41, "Output",ExpressionUUID->"ae94a55b-e273-43e5-8db6-20e9a2c13123",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[86030, 2187, 2046, 59, 154, "Output",ExpressionUUID->"8110fdc6-828d-4d85-b4e4-42df07f74a19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88079, 2248, 857, 19, 84, "Input",ExpressionUUID->"93575dac-78fe-4f45-8beb-07f6f1507242",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88939, 2269, 579, 11, 45, "Output",ExpressionUUID->"66efcad1-f856-4c3a-be54-70a370bca91e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[89521, 2282, 514, 8, 41, "Output",ExpressionUUID->"57c5f509-6984-4eb8-ad4b-fc6c6ea34059",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[90038, 2292, 9662, 252, 308, "Output",ExpressionUUID->"325945e0-320a-48e1-a330-3fca3edee5b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[99703, 2546, 717, 17, 84, "Input",ExpressionUUID->"02d8a2b4-a023-49d0-8a4c-23936a64b9db",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100423, 2565, 331, 7, 45, "Output",ExpressionUUID->"27bf358f-51ac-426c-b4a3-562f53ba8e62",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100757, 2574, 278, 4, 41, "Output",ExpressionUUID->"8037575f-2710-41d9-96e7-e012e5227650",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101038, 2580, 9631, 296, 308, "Output",ExpressionUUID->"db391dc6-2ad9-4d90-8948-563e37dbae75",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[110706, 2881, 526, 11, 81, "Input",ExpressionUUID->"429461c6-d5e3-4334-89db-1719b6a70a56"],
Cell[111235, 2894, 204, 3, 41, "Output",ExpressionUUID->"5190e542-7dee-4f48-bd4c-28a6be62aa58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111476, 2902, 370, 8, 107, "Section",ExpressionUUID->"818dabff-a445-4ba6-a7e9-9e32ca7bbf82",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[111849, 2912, 696, 17, 41, "Input",ExpressionUUID->"192a7395-3bb0-41f6-bd03-643c6d8e1188",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[112548, 2931, 264, 5, 41, "Output",ExpressionUUID->"e21bb15a-4b70-4adf-bb4c-141489da9096",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[112815, 2938, 380, 8, 41, "Input",ExpressionUUID->"c2712ada-280f-4e7e-a818-0ccdca55bae4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[113198, 2948, 1068, 32, 49, "Output",ExpressionUUID->"6ee6c0e0-8890-4f0b-beee-29e7052f575f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[114269, 2982, 745, 19, 41, "Input",ExpressionUUID->"21c0e8d8-dfcd-4554-b0d6-5b0fa79ddc5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[115017, 3003, 544, 10, 45, "Output",ExpressionUUID->"27d96e01-e696-48d4-9660-7cb348072dab",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[115564, 3015, 334, 7, 41, "Input",ExpressionUUID->"74a16d13-f0c9-4cae-bf2a-c9e061c81ec2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[115901, 3024, 4887, 144, 158, "Output",ExpressionUUID->"eeb90e63-cb59-463c-8b39-635fbee1d69b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[120791, 3170, 2887, 88, 156, "Input",ExpressionUUID->"84f736ed-a0d1-4338-beff-2e7256ed3037",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->540676942],
Cell[123681, 3260, 359, 8, 41, "Input",ExpressionUUID->"b31038bf-3a0a-4c54-aa55-225f53d3595b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[124043, 3270, 548, 11, 45, "Output",ExpressionUUID->"ec9111af-a3bc-41e0-91a3-d9e670a5f27c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[124594, 3283, 343, 8, 41, "Input",ExpressionUUID->"36cd61ed-636a-4d6a-90bb-49afa8b1eda1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[124940, 3293, 3389, 94, 96, "Output",ExpressionUUID->"b00127a6-e85f-408b-83fb-fb57f7b957b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[128366, 3392, 257, 4, 55, "Section",ExpressionUUID->"65e0ff3a-4b38-4db1-a98c-bfcb4a0abeed",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[128626, 3398, 1287, 36, 84, "Input",ExpressionUUID->"32ecba02-a848-46dd-845a-9e9a0689e8d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->2079018855],
Cell[129916, 3436, 2914, 86, 109, "Output",ExpressionUUID->"79a45149-ca48-44d2-9c4e-5538a892fcf9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[132833, 3524, 498, 12, 41, "Input",ExpressionUUID->"6e5208b8-6e7b-4e15-96b9-e0e80daceb7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[133334, 3538, 323, 8, 43, "Output",ExpressionUUID->"5e7c2e38-fffc-4f56-a87b-b4437be39ef7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[133660, 3548, 485, 12, 41, "Input",ExpressionUUID->"458b9203-f31f-4de0-b557-d622a7d7937f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[134148, 3562, 4073, 119, 49, "Output",ExpressionUUID->"a917c6a0-cbdd-40f5-a8b0-f30ea9c50e64",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[138224, 3683, 557, 14, 41, "Input",ExpressionUUID->"6c0f1be3-bdd9-4679-91c8-8b4192cee248",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[138784, 3699, 384, 10, 44, "Output",ExpressionUUID->"0a4fa865-36e3-4fc5-bd0f-53f342389d36",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[139171, 3711, 582, 13, 41, "Input",ExpressionUUID->"1f33e6e4-f745-48d6-af3a-c8b18a034e23",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[139756, 3726, 586, 13, 41, "Input",ExpressionUUID->"bbb763ea-8437-408a-88b1-90b1c300c2fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[140345, 3741, 5655, 150, 92, "Output",ExpressionUUID->"dba98a39-9da6-444f-9866-696cd6e127fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[146003, 3893, 434, 11, 41, "Input",ExpressionUUID->"6f378f19-59e2-46f2-a9c4-48b653c29ddc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[146440, 3906, 19761, 524, 368, "Output",ExpressionUUID->"b13382aa-3808-4a63-ae66-0d3c1ea54f4b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166204, 4432, 426, 10, 41, "Input",ExpressionUUID->"c639a2a2-76cf-49f3-a17f-e86328664f2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166633, 4444, 19763, 524, 368, "Output",ExpressionUUID->"eae86e73-f73c-424f-84ba-17789eec6c52",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[186399, 4970, 477, 12, 41, "Input",ExpressionUUID->"304ddb46-541f-49e1-afea-28fcca240189",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[186879, 4984, 11229, 335, 242, "Output",ExpressionUUID->"ff94ca87-3a47-4f1b-beda-d9af5da58581",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[198111, 5321, 583, 15, 41, "Input",ExpressionUUID->"8b41fb73-fb0f-4d63-ad65-f46b1f99c62a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[198697, 5338, 6109, 182, 130, "Output",ExpressionUUID->"2c7b31cf-d961-48ad-8120-e0c5038ee205",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[204809, 5522, 537, 14, 63, "Input",ExpressionUUID->"4a69a106-a919-45a8-be72-5e4d89e7de31",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[205349, 5538, 229, 4, 41, "Output",ExpressionUUID->"51441bfc-9510-46b6-85cd-0e6cba6b10be",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[205581, 5544, 487, 13, 59, "Input",ExpressionUUID->"248949ca-87c8-4a35-a2c9-e39fe2a0784e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[206071, 5559, 230, 4, 41, "Output",ExpressionUUID->"5b9f6431-2536-4edd-92da-08859d7d0717",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}
]
*)