Bonnor-Melvin universe with a cosmological constant by Zofka.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[    380186,       9514]
NotebookOptionsPosition[    356734,       9170]
NotebookOutlinePosition[    357196,       9187]
CellTagsIndexPosition[    357153,       9184]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Bonnor-Melvin universe with a cosmological constant by Zofka\
\>", "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.826623908618338*^9, 3.8266239196496267`*^9}, {3.8267003367182827`*^9, 
   3.826700347914815*^9}, {3.826704518995591*^9, 3.826704523363399*^9}},
 TextAlignment->Center,ExpressionUUID->"e8db23c8-f68b-4493-a1af-0de00eefdd6a"],

Cell["\<\
Geoff Cope
University of Utah
April 6th, 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}, {
   3.826627862136405*^9, 3.826627862247403*^9}, {3.826704541475829*^9, 
   3.826704541674994*^9}},
 TextAlignment->Center,ExpressionUUID->"421336a2-31b1-47f4-9d09-d397e97cbf8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"0707e402-8148-4e4f-951c-\
a9e2a6a4b554"],

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->"ae482e5d-a3e5-4528-b8a0-104f140945b1"],

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.8265512317029943`*^9, 3.826624030487499*^9, 
   3.826624854112608*^9, 3.8267006451019506`*^9, 3.8267047543140707`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"95da176b-7cee-4ff7-8ad5-79237f2232b3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article (Change This)", "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, {
   3.826627887551609*^9, 
   3.826627890567271*^9}},ExpressionUUID->"3dc41d7e-438b-4ee1-a8b9-\
6a17881300d0"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Trace anomaly of a conformally invariant quantum field in curved \
spacetime - Wald\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.17.1477\>\""}],
   "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82640211824402*^9, 3.826402136642242*^9}, 
   3.8265341221634293`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"aa6e688d-485c-4598-8a34-5bcdd52fb3c7"],

Cell[BoxData[
 TemplateBox[{
  "\"Trace anomaly of a conformally invariant quantum field in curved \
spacetime - Wald\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.17.1477"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826402137028811*^9, 3.82653412216357*^9, 
  3.826551231846833*^9, 3.826624030526691*^9, 3.826624854239946*^9, 
  3.826700645143339*^9, 3.826704754505435*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"b975063d-f8af-4704-864d-dc7b8da660f9"],

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->"35b32ad4-157d-4f99-b1a4-80ea1a3c8812"],

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.8265512318652363`*^9, 3.826624030538879*^9, 3.8266248542670527`*^9, 
   3.826700645156609*^9, 3.826704754551639*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"c29edb33-25e8-48b8-8d77-9065b69318fc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"24871171-8728-4784-af0b-\
43c817c709f3"],

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->"4bc0a8e3-284b-4543-b0d5-88bb4998a23b"],

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.8265512319431553`*^9, 3.826624030692754*^9, 
   3.8266248543653193`*^9, 3.8267006453712597`*^9, 3.826704754635755*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"0b22d4a7-3a00-44e7-aad0-2e008065b535"],

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.8265512319431553`*^9, 3.826624030692754*^9, 
   3.8266248543653193`*^9, 3.8267006453712597`*^9, 3.826704754641774*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"ab7824b9-bf94-418f-a67a-ba0af07d84b8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"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.826551231946683*^9, 3.8266240306964493`*^9, 
   3.826624854369553*^9, 3.8267006453761*^9, 3.82670475464395*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"9d9ab63a-1523-4fc9-b70b-8d9dbb7c260c"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"f8e0327a-62ac-482e-84da-72779c6c93ed"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"73767daa-4f00-4520-9618-67eea9158c83"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"58c44c5b-d5eb-4995-9102-\
e79fbb7e27b0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], " ", "\[Rule]", " ", "d\[Chi]"}], 
     " ", ",", " ", "\[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", "[", "R", "]"}], " ", "\[Rule]", " ", "dR"}], "  ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826624049460711*^9, 3.8266240724916887`*^9}, {
   3.826624435195369*^9, 3.826624444299508*^9}, {3.826625284387315*^9, 
   3.8266253480511007`*^9}, {3.82662604015164*^9, 3.826626044551696*^9}, 
   3.826627909370517*^9, {3.8267084686495857`*^9, 
   3.82670847796522*^9}},ExpressionUUID->"f06af000-d9c6-4ae2-b70e-\
f0a8fb5e62c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "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, {3.8265516374608707`*^9, 3.826551651388385*^9}, {
   3.826552193743137*^9, 3.826552218824566*^9}, {3.826624622505231*^9, 
   3.826624637039587*^9}, {3.8266253560729427`*^9, 3.826625360830812*^9}, {
   3.8267084873738947`*^9, 
   3.826708492059516*^9}},ExpressionUUID->"f52ad0bd-b5c6-4860-8a80-\
88ded8c9dd17"]
}, 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->"b4b9e55a-1007-4ea9-84d8-\
ba337d6c8a8b"],

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[30]:=",ExpressionUUID->"b29ce23e-e8fc-4eb9-b60a-825fb779b206"],

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[32]:=",ExpressionUUID->"e7edbe11-6013-4a28-8414-5b5fa9465e3f"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Line Element and Metric 1 Bonner Melvin (Calculate these tensors and \
construct F)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8267009544749413`*^9, 3.82670098216304*^9}, {
  3.826708697764801*^9, 3.826708701260089*^9}, {3.826708777139052*^9, 
  3.826708793359441*^9}},ExpressionUUID->"f51cdb8c-42cd-4fe3-ac0e-\
2abd08e8ef55"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"we", " ", 
    RowBox[{"use", " ", "[", "esc", "]"}], 
    RowBox[{"scC", "[", "esc", "]"}], " ", "for", " ", "\[ScriptCapitalC]", 
    " ", "instead", " ", "of", " ", "\"\<C\>\"", " ", "which", " ", "is", " ",
     "reserved"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Alpha]", 
     RowBox[{"-", "2"}]], "(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", " ", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox["\[Alpha]", 
     RowBox[{"-", "5"}]], 
    SuperscriptBox["dr", "2"]}], "+", " ", 
   RowBox[{"\[Alpha]", " ", 
    SuperscriptBox["r", "2"], 
    SuperscriptBox["d\[Phi]", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8267005618048773`*^9, 3.826700626243287*^9}, 
   3.826700966449874*^9, {3.826704570684463*^9, 3.8267046034677687`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"0b0ba26b-2790-4ad4-bea0-ef97305c0b52"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["dr", "2"], 
   SuperscriptBox["\[Alpha]", "5"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "+", 
    SuperscriptBox["dz", "2"]}], 
   SuperscriptBox["\[Alpha]", "2"]], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["r", "2"], " ", "\[Alpha]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.826700646612877*^9, 3.826700966450206*^9, 
  3.826704756189996*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"06144b0c-ee07-4043-84c5-e6cf1363e0ff"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "dz", ",", "d\[Phi]"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Is", " ", "order", " ", "of", " ", "variables", " ", 
    RowBox[{"ok", "?"}]}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826700649076169*^9, 3.826700706011599*^9}, 
   3.826700966450436*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"434e6728-6a6e-4c4d-b7c3-64b969df1da7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["\[Alpha]", "2"]]}], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox["\[Alpha]", "5"]], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox["\[Alpha]", "2"]], "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", "\[Alpha]"}]}
    },
    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.826700675586479*^9, 3.826700706420889*^9, 
  3.826700966450769*^9, 3.8267047562112494`*^9},
 CellLabel->
  "Out[38]//MatrixForm=",ExpressionUUID->"a03c5259-7564-4b9a-8317-\
2f7ac2b0e451"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 6 Generalized Bonner Melvin", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82670850976446*^9, 3.826708528788559*^9}, {
  3.8267086940450163`*^9, 
  3.826708694431715*^9}},ExpressionUUID->"2cbb20b8-fc9c-4152-a647-\
6c339535df07"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq6", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"we", " ", 
    RowBox[{"use", " ", "[", "esc", "]"}], 
    RowBox[{"scC", "[", "esc", "]"}], " ", "for", " ", "\[ScriptCapitalC]", 
    " ", "instead", " ", "of", " ", "\"\<C\>\"", " ", "which", " ", "is", " ",
     "reserved"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"A", "[", "r", "]"}], "]"}]}], " ", 
    SuperscriptBox["dt", "2"]}], "+", " ", 
   SuperscriptBox["dr", "2"], "+", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"B", "[", "r", "]"}], "]"}], " ", 
    SuperscriptBox["dz", "2"]}], "+", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "]"}], " ", 
    SuperscriptBox["d\[Phi]", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8267046525882874`*^9, 3.826704654306933*^9}, 
   3.826708519489201*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"2471d628-87f4-4eda-ab63-40bfe183553a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"A", "[", "r", "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"B", "[", "r", "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.826704663161456*^9, 3.826704756268696*^9, 
  3.8267085194893436`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"1ab975af-1b41-4739-9e77-8f2feca8c3eb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq6", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "dz", ",", "d\[Phi]"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric6", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82670466582067*^9, 3.826704692468194*^9}, 
   3.8267085194895067`*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"aa13fe33-ac70-49a0-b67e-77a19c05e0ca"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"A", "[", "r", "]"}]]}], "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"B", "[", "r", "]"}]], "0"},
     {"0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]]}
    },
    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", 10006.},
 CellChangeTimes->{{3.826704674455594*^9, 3.826704692909356*^9}, 
   3.826704756286132*^9, 3.826708519489622*^9},
 CellLabel->
  "Out[43]//MatrixForm=",ExpressionUUID->"90fc876c-bae7-4cf2-87ef-\
b228002177e0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 6 Generalized Bonner Melvin", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8267009858442583`*^9, 3.826701016522895*^9}, {
  3.8267047063303967`*^9, 
  3.826704706514811*^9}},ExpressionUUID->"754d8521-3d8e-4237-9714-\
08e3e6f91801"],

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.8267007465891047`*^9, 
   3.826700753574957*^9}, 3.826700999471182*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"3662beca-4760-4fed-a4b1-f6ea14a87a12"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "3.17", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric6\>\"", ",", " ", "metric6", ",", " ", 
     "\"\<GeneralizedBonnorMelvin\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(gbm\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "z", ",", "\[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.8267007635099583`*^9, 
   3.8267008168673*^9}, 3.8267009994713593`*^9, {3.826704711139443*^9, 
   3.826704717268149*^9}, {3.826704769980818*^9, 
   3.826704772723661*^9}},ExpressionUUID->"a326397b-8105-43d1-a9f8-\
088f35b245a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.16746`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.826700801062532*^9, 3.826700999471493*^9, 
  3.826704759692417*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"a3ef8bda-4efa-482e-b2fc-76eb88493a83"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.826700819620677*^9, 3.826700820022853*^9}, 
   3.826700999471586*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"84a249f4-d3f7-436a-9a78-96fc04eb8d91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "gbm"], "\[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.826700820455781*^9, 3.826700999471884*^9, 
  3.826704759790401*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"cf1bb0bd-d4b5-4e86-93dc-4c0f9be88a39"],

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.826700999472105*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"4d6fade1-4343-4b6b-9080-fcf4881133d0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "gbm"], "\[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.826700831175686*^9, 
  3.826700999472247*^9, 3.826704759805162*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"f1c1b928-11ae-4043-842a-75f8d87dd8a9"],

Cell[BoxData["\<\"GeneralizedBonnorMelvin\"\>"], "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.826700831175686*^9, 
  3.826700999472247*^9, 3.8267047598089867`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"34fb9942-10cd-48eb-9354-4e04410aa982"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "(", "r", ")"}]]}], "0", "0", "0"},
      {"0", "1", "0", "0"},
      {"0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"B", "(", "r", ")"}]], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]]}
     },
     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.826700831175686*^9, 
  3.826700999472247*^9, 3.826704759811366*^9},
 CellLabel->
  "Out[50]//TraditionalForm=",ExpressionUUID->"76d93eaa-7c99-4d24-b6e1-\
ebef8a769583"],

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.826700999474861*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"b71ca9bb-8521-4768-8456-26ae8aa3867d"],

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.826700831267785*^9, 3.826700999474955*^9, 
   3.826704759838694*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"c62dfff0-d169-469b-8e74-54880305f88e"],

Cell[BoxData["\<\"ChristoffelSymbolGeneralizedBonnorMelvin\"\>"], "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.826700831267785*^9, 3.826700999474955*^9, 
   3.826704759842546*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"46e86db4-83f5-4265-aa38-16b28197bb74"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"A", "(", "r", ")"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"B", "(", "r", ")"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}
          },
          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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}
          },
          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["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"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.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.826700831267785*^9, 3.826700999474955*^9, 
   3.826704759847293*^9},
 CellLabel->
  "Out[53]//TraditionalForm=",ExpressionUUID->"55802944-32b3-4893-9497-\
61924ec01b9d"],

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.826700999475247*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"9a793d03-5d37-4ae8-83bf-edaee1a451ca"],

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.826700831320074*^9, 
  3.8267009994753304`*^9, 3.8267047598610287`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"f7a3f962-daf0-4a2b-8fef-06af04fc272b"],

Cell[BoxData["\<\"RiemannTensorGeneralizedBonnorMelvin\"\>"], "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.826700831320074*^9, 
  3.8267009994753304`*^9, 3.826704759864933*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"9a03fbe3-df37-43f3-8442-62e556af6ae6"],

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", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "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.826700831320074*^9, 
  3.8267009994753304`*^9, 3.826704759998207*^9},
 CellLabel->
  "Out[56]//TraditionalForm=",ExpressionUUID->"9342c2e7-7d19-4008-8852-\
efeab6e59f8e"],

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.826700999475605*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"604cf42b-6732-4ee9-9142-a391c9b9672c"],

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.826700831467024*^9, 
  3.826700999475698*^9, 3.8267047600189533`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"a275be13-6c5c-4704-b2b7-d41824a534a1"],

Cell[BoxData["\<\"RicciTensorGeneralizedBonnorMelvin\"\>"], "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.826700831467024*^9, 
  3.826700999475698*^9, 3.826704760023535*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"64c4b911-9f64-4b50-9978-28c09517c9bc"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0", 
       "0"},
      {"0", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "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.826700831467024*^9, 
  3.826700999475698*^9, 3.826704760056137*^9},
 CellLabel->
  "Out[59]//TraditionalForm=",ExpressionUUID->"cfcc6814-ae6f-4ef9-b3a3-\
8f5993c3e69a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[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.826700999475973*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"3dad5157-882f-4477-83d0-4f731e7fef8d"],

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.826700831515975*^9, 
  3.82670099947606*^9, 3.826704760066814*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"e9a09097-7761-44f7-a985-ae4ca323f8b5"],

Cell[BoxData["\<\"RicciScalarGeneralizedBonnorMelvin\"\>"], "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.826700831515975*^9, 
  3.82670099947606*^9, 3.826704760071486*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"81e0ba71-9884-47db-bc39-d7a128868539"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], ")"}]}]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"A", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "2"], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"B", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"B", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"B", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "2"], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "2"]}], ")"}]}],
   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.826700831515975*^9, 
  3.82670099947606*^9, 3.82670476009728*^9},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"33657d10-3e11-4951-8d06-\
849527787355"],

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.8267009994763613`*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"3e245bc9-884d-4b03-9ce5-7c9225dced8a"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826700831559846*^9, 3.826700999476451*^9, 
  3.826704760108589*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"910f7681-83bf-44ac-bb7d-6a87a5287bcc"],

Cell[BoxData["\<\"KretschmannScalarGeneralizedBonnorMelvin\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826700831559846*^9, 3.826700999476451*^9, 
  3.8267047601150217`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"b86b30ca-dae5-4617-b74b-91dcf3c21cd0"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "4"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"B", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "4"], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "4"]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.826700831559846*^9, 3.826700999476451*^9, 
  3.826704760142734*^9},
 CellLabel->
  "Out[65]//TraditionalForm=",ExpressionUUID->"109d582b-3574-48e6-88e5-\
b4f5f445b7a2"],

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.826700999476729*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"d37ce287-7d8e-4e8d-bec4-7e0a945a2ae9"],

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.826700831607724*^9, 3.826700999476828*^9, 
   3.8267047601549053`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"d1e50ff0-b965-486a-b5af-23d95e6569b6"],

Cell[BoxData["\<\"EinsteinTensorGeneralizedBonnorMelvin\"\>"], "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.826700831607724*^9, 3.826700999476828*^9, 
   3.826704760160205*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"8264dffd-0434-4e31-9270-10782b19bbe2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0", "0"},
      
      {"0", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "r", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"B", "(", "r", ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "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.826700831607724*^9, 3.826700999476828*^9, 
   3.826704760193717*^9},
 CellLabel->
  "Out[68]//TraditionalForm=",ExpressionUUID->"ed50f7a7-28b2-4964-bd61-\
9929c9eb60be"],

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.826700999477092*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"ae31d8f1-5e97-4a90-8de0-effe49f95d4f"],

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.826700831696157*^9, 3.826700999477174*^9, 
   3.826704760206162*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"9725e6b5-8df0-497c-a936-8b7074f891a7"],

Cell[BoxData["\<\"WeylTensorGeneralizedBonnorMelvin\"\>"], "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.826700831696157*^9, 3.826700999477174*^9, 
   3.826704760210081*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"805bdbf2-5955-47e9-98c1-ae4dd2c7d9d3"],

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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"A", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"B", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"B", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"A", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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[{
            RowBox[{"-", 
             FractionBox["1", "24"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "24"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"B", "(", "r", ")"}], "+", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"B", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"B", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "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.826700831696157*^9, 3.826700999477174*^9, 
   3.826704760706451*^9},
 CellLabel->
  "Out[71]//TraditionalForm=",ExpressionUUID->"00a731fb-4620-4ff4-81a0-\
9a80c0889264"],

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.8267009994774103`*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"f69a9d3b-f2d5-48b2-a6b4-c7cff58979ea"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.826700832170497*^9, 3.8267009994774933`*^9, 
  3.826704760795319*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"5e9bd5a6-7f79-46d1-89a0-9f9171322ab1"],

Cell[BoxData["\<\"CottonTensorGeneralizedBonnorMelvin\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.826700832170497*^9, 3.8267009994774933`*^9, 
  3.826704760799897*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"ad3f5def-baaf-4d4f-9706-da6a1edcdabb"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "24"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"A", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", "r", ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"8", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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[{
           {
            RowBox[{
             FractionBox["1", "24"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"A", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"8", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "24"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"B", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"8", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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["1", "24"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"B", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"8", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "3"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "24"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}]}
          },
          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["1", "24"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"B", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"B", "(", "r", ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"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.826700832170497*^9, 3.8267009994774933`*^9, 
  3.826704761030534*^9},
 CellLabel->
  "Out[74]//TraditionalForm=",ExpressionUUID->"6849cbd8-8868-4a3a-b0a0-\
48b13918e1e2"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Derivation of Vacuum Field Equations With Cosmological Constant\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705213963421*^9, 3.8267052319073133`*^9}, {
  3.826708629756803*^9, 
  3.8267086405485687`*^9}},ExpressionUUID->"2976995c-ddb6-4772-85d1-\
6010040a5be9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "can", " ", "use", " ", "these", " ", "as", " ", "a", " ", "check", " ", 
    "for", " ", "vacuum", " ", "solutions", " ", "with", " ", "zero", " ", 
    "cosmological", " ", "constant"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", "4"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826700926443903*^9, 3.826700947163279*^9}, {
   3.8267015860244417`*^9, 3.8267016008222227`*^9}, 3.8267016365925407`*^9, {
   3.826705235380487*^9, 
   3.826705259515708*^9}},ExpressionUUID->"05d6bb7c-cf68-4d0e-a19e-\
722158611cfc"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None]}]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8267048113499813`*^9, 3.8267052234308443`*^9},
 CellLabel->
  "Out[77]//TraditionalForm=",ExpressionUUID->"41be2f72-e7cc-4e09-b90c-\
cdb65e5adc04"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "can", " ", "use", " ", "these", " ", "as", " ", "a", " ", "check", " ", 
    "for", " ", "vacuum", " ", "solutions", " ", "with", " ", "zero", " ", 
    "cosmological", " ", "constant"}], " ", "*)"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "2"}], "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", "3"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"TensorValues", "[", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", "4"}], "]"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826700851115101*^9, 3.826700917803204*^9}, {
  3.826701605532469*^9, 3.8267016365930433`*^9}, {3.8267052668416843`*^9, 
  3.826705267435926*^9}},ExpressionUUID->"ca5b4d43-70f4-4a2c-8f9b-\
29c316119ab1"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], ")"}]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], ")"}]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[ScriptCapitalC]", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"A", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "r", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], ")"}]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "r", ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", "r", ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.826704813158465*^9, 3.826705223430943*^9},
 CellLabel->
  "Out[80]//TraditionalForm=",ExpressionUUID->"bf8b93dd-e0f5-4fee-9355-\
4659de9ef21c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Tomega", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Cosmolgical", " ", "constant", " ", "term"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Tomega", "  ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"MergeTensors", "[", 
   RowBox[{"MultiplyTensorScalar", "[", 
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalLambda]"}], "]"}], "]"}],
   " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.826705185163787*^9, 3.826708662303513*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"26f38965-a77b-4d7e-8565-b1409518604c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", "\[CapitalLambda]", ")"}], "\[CenterDot]", 
     SuperscriptBox["g", "gbm"]}], ")"}], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.826704872714864*^9, 3.8267051851641817`*^9, 
  3.82670866230365*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"775d2409-bf69-410f-a9ee-3738f88b9c6f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "vacuumFieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vacuumFieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}], "\[Equal]", "  ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"Tomega", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "]"}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vacuumFieldEquations", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826704881661252*^9, 3.826704987211773*^9}, {
   3.8267050175005198`*^9, 3.826705032674556*^9}, 3.826705223431119*^9, {
   3.826706588475829*^9, 3.826706602731471*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"e6dc2e17-1d9f-4d83-8aca-9abf86c688ea"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["B", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}], "\[Equal]", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"A", "[", "r", "]"}]]}], " ", "\[CapitalLambda]"}]}]},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["B", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}], "\[Equal]", "\[CapitalLambda]"}]},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["A", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}], "\[Equal]", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "[", "r", "]"}]], " ", "\[CapitalLambda]"}]}]},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["A", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["B", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}], "\[Equal]", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
        "\[CapitalLambda]"}]}]}
    },
    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", 10006.},
 CellChangeTimes->{{3.82670488973079*^9, 3.826704906440364*^9}, {
   3.826704942831839*^9, 3.826704948761002*^9}, 3.8267049882272673`*^9, 
   3.826705033060369*^9, 3.826705223431609*^9, 3.826706604067586*^9},
 CellLabel->
  "Out[189]//TableForm=",ExpressionUUID->"0f75725d-7ae3-47f6-8a5d-\
26e0dee3ba77"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq7", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "With", " ", "a", " ", "bit", " ", "of", " ", "rearranging", " ", "this", 
    " ", "is", " ", 
    RowBox[{"correct", ":", " ", 
     RowBox[{"note", " ", "sign", " ", "difference"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"vacuumFieldEquations", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705044276498*^9, 3.826705106373721*^9}, 
   3.826705223431723*^9, {3.8267052777581387`*^9, 3.82670532717134*^9}, {
   3.826706613611917*^9, 3.8267066144081306`*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"62ccf79f-2821-4691-93c7-0c04593d0c37"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "4"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"A", "[", "r", "]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["B", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["B", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["B", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"A", "[", "r", "]"}]]}], " ", "\[CapitalLambda]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8267051575418243`*^9, 3.8267052234318132`*^9, 
  3.826706631662039*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"7512bfe2-7aaf-4008-a37d-b1ded5a13b7e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq8", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "With", " ", "a", " ", "bit", " ", "of", " ", "rearranging", " ", "this", 
    " ", "is", " ", 
    RowBox[{"correct", ":", " ", 
     RowBox[{"note", " ", "sign", " ", "difference"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"vacuumFieldEquations", "[", 
   RowBox[{"[", "6", "]"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705044276498*^9, 3.82670512144228*^9}, 
   3.8267052234319153`*^9, 3.826705303497938*^9, 3.8267053374729633`*^9, {
   3.826706617931932*^9, 3.826706618376075*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"e0609e90-6f49-4a82-8a44-1696e6886353"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["B", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["A", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["B", "\[Prime]",
          MultilineFunction->None], "[", "r", "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", "\[CapitalLambda]"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.826705157606513*^9, 3.826705223432013*^9, 
  3.826706633712818*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"0ef509e0-4e03-4a8a-a204-5e8773f2116f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq9", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "With", " ", "a", " ", "bit", " ", "of", " ", "rearranging", " ", "this", 
    " ", "is", " ", 
    RowBox[{"correct", ":", " ", 
     RowBox[{"note", " ", "sign", " ", "difference"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq9", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"vacuumFieldEquations", "[", 
   RowBox[{"[", "11", "]"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705044276498*^9, 3.826705141697632*^9}, 
   3.826705223432117*^9, {3.8267053105858107`*^9, 3.826705340001409*^9}, {
   3.8267066223230543`*^9, 3.8267066232400827`*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"77b37cdf-2b00-4be9-8110-c40c31046edd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"B", "[", "r", "]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["A", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["A", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["A", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"B", "[", "r", "]"}]], " ", "\[CapitalLambda]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8267051576204967`*^9, 3.826705223432206*^9, 
  3.8267066362124357`*^9},
 CellLabel->
  "Out[195]=",ExpressionUUID->"b77534c5-2e22-43f0-a7a5-a7286bbdad65"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq10", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "With", " ", "a", " ", "bit", " ", "of", " ", "rearranging", " ", "this", 
    " ", "is", " ", 
    RowBox[{"correct", ":", " ", 
     RowBox[{"note", " ", "sign", " ", "difference"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq10", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"vacuumFieldEquations", "[", 
   RowBox[{"[", "16", "]"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705044276498*^9, 3.826705149491832*^9}, 
   3.8267052234323053`*^9, {3.8267053133605757`*^9, 3.826705342714191*^9}, {
   3.826706626611362*^9, 3.826706627047893*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"7052ac4e-4b50-4cde-8118-e72e0fffe789"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["A", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["A", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["B", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["B", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["A", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}], "+", 
        RowBox[{
         SuperscriptBox["B", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
  "\[Equal]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
   "\[CapitalLambda]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.826705042095017*^9, 3.826705079097061*^9}, 
   3.8267051576549*^9, 3.826705223432654*^9, 3.8267066385605516`*^9},
 CellLabel->
  "Out[197]=",ExpressionUUID->"9d4e802e-8c60-47a3-a11f-0348957ddf6b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Construction of Electromagnetic Stress Energy Tensor ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826703093811242*^9, 3.826703139050755*^9}, {
   3.826705185162773*^9, 3.8267051969553967`*^9}, 
   3.826708577881371*^9},ExpressionUUID->"335ffb72-a654-4630-8d71-\
b81b53b5d6a4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq11", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "0"},
      {"0", "0", "0", 
       RowBox[{"H", "[", "r", "]"}]},
      {"0", "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        RowBox[{"H", "[", "r", "]"}]}], "0", "0"}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq11", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.82670124681222*^9, 3.826701258427874*^9}, {
   3.826701368363069*^9, 3.826701414267398*^9}, 3.826703107243682*^9, 
   3.826705185162961*^9, {3.826705390851941*^9, 3.8267053934536533`*^9}, {
   3.826705521604773*^9, 3.826705522374892*^9}, 3.826708577881667*^9},
 CellLabel->
  "In[126]:=",ExpressionUUID->"d6ecdd98-da8a-4e1a-8254-7dbbf8e2d3d8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"H", "[", "r", "]"}]},
     {"0", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       RowBox[{"H", "[", "r", "]"}]}], "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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{
  3.826701414625939*^9, 3.826703107244063*^9, 3.826705185163082*^9, {
   3.826705515588619*^9, 3.826705522876482*^9}, 3.826708577881879*^9},
 CellLabel->
  "Out[128]//MatrixForm=",ExpressionUUID->"ea3d96ff-7308-424b-8b6d-\
f7bdaa078693"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalF]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalF]", " ", "=", " ", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalF]\>\"", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", " ", "eq11", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.82670122036215*^9, 3.826701243102375*^9}, {
   3.826701421036707*^9, 3.826701444966712*^9}, 3.826703107244197*^9, 
   3.826705185163166*^9, {3.826705526764824*^9, 3.826705527342848*^9}, 
   3.826708577882041*^9},
 CellLabel->
  "In[129]:=",ExpressionUUID->"8f73ced1-5de3-4ed4-96fd-e8f229ae41d8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalF]", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705527857706*^9, 3.826708577882164*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"247ac5f3-2027-4284-947f-3ec473883f43"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalF]", "[", 
   RowBox[{
    RowBox[{"-", "\[Mu]"}], ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}], 
  RowBox[{"\[ScriptCapitalF]", "[", 
   RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MergeTensors", "[", 
   RowBox[{
    RowBox[{"\[ScriptCapitalF]", "[", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "]"}], 
    RowBox[{"\[ScriptCapitalF]", "[", 
     RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq12", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq12", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", 
     RowBox[{
      RowBox[{"\[ScriptCapitalF]", "[", 
       RowBox[{
        RowBox[{"-", "\[Mu]"}], ",", 
        RowBox[{"-", "\[Nu]"}]}], "]"}], 
      RowBox[{"\[ScriptCapitalF]", "[", 
       RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "]"}], "]"}], " ", 
   "\[Equal]", " ", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"f", "[", "r", "]"}], "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826701447596147*^9, 3.826701520603174*^9}, 
   3.826703107244602*^9, 3.826705185163323*^9, {3.826705400940805*^9, 
   3.8267054042433453`*^9}, 3.826708577882346*^9},
 CellLabel->
  "In[131]:=",ExpressionUUID->"ef61f0ef-7812-4344-87ae-3f6b5c6b5864"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox["\[ScriptCapitalF]", "\[Mu]\[Nu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox["\[ScriptCapitalF]", "", "\[Mu]\[Nu]"],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826701463955484*^9, 3.8267015222957497`*^9}, 
   3.826703107244698*^9, 3.826705185163411*^9, {3.826705515668283*^9, 
   3.8267055359080048`*^9}, 3.826708577882462*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"360f7960-b256-4fb0-8b23-a224fc5cff7a"],

Cell[BoxData[
 TagBox["\<\"(\[ScriptCapitalF]\[CenterDot]\[ScriptCapitalF])\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826701463955484*^9, 3.8267015222957497`*^9}, 
   3.826703107244698*^9, 3.826705185163411*^9, {3.826705515668283*^9, 
   3.8267055359324093`*^9}, 3.8267085778825693`*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"15127a80-f1a2-445a-bc72-930234fdf0c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   SuperscriptBox[
    RowBox[{"H", "[", "r", "]"}], "2"]}], "\[Equal]", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826701463955484*^9, 3.8267015222957497`*^9}, 
   3.826703107244698*^9, 3.826705185163411*^9, {3.826705515668283*^9, 
   3.826705535941111*^9}, 3.826708577883424*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"b4539cfa-83e6-477d-8051-b7ca4d815ff4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{"eq12", " ", ",", " ", 
     RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705715556831*^9, 3.826705730813802*^9}, 
   3.826708577883563*^9},
 CellLabel->
  "In[157]:=",ExpressionUUID->"435238b3-7c7f-49de-90ce-8f2ccb1d4765"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H", "[", "r", "]"}], "\[Rule]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    FractionBox[
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "2"]], " ", 
   RowBox[{"f", "[", "r", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705724142438*^9, 3.8267057310790157`*^9}, 
   3.826708577884025*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"4727967b-ad93-40b6-8fc3-2f2c936ad04f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Tem", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Stress", " ", "Energy", " ", "Tensor", " ", "For", " ", "Electromagnetic",
     " ", "Field"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Tem", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"MultiplyTensorScalar", "[", 
   RowBox[{
    RowBox[{"AddTensors", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MergeTensors", "[", 
       RowBox[{
        RowBox[{"\[ScriptCapitalF]", "[", 
         RowBox[{
          RowBox[{"-", "\[Mu]"}], ",", "\[Lambda]"}], "]"}], " ", 
        RowBox[{"\[ScriptCapitalF]", "[", 
         RowBox[{
          RowBox[{"-", "\[Nu]"}], ",", 
          RowBox[{"-", "\[Lambda]"}]}], "]"}]}], "]"}], " ", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"MultiplyTensorScalar", "[", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"\[ScriptCapitalF]", "[", 
           RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], " ", 
          RowBox[{"\[ScriptCapitalF]", "[", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], ",", 
            RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], " ", ",", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "/", "4"}], ")"}]}], "]"}]}], "]"}], " ", ",", 
    " ", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", "\[Pi]"}]], ")"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.82670197279576*^9, 3.826702143955785*^9}, {
   3.826702197053534*^9, 3.8267022410211697`*^9}, 3.826703107245666*^9, {
   3.826705629388939*^9, 3.826705656386651*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"ae283613-e2f1-4186-8ace-04c1a6b1b831"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}], 
     RowBox[{
      SuperscriptBox["Pi", 
       RowBox[{"-", "1"}]], "\[CenterDot]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[ScriptCapitalF]", "\[CenterDot]", "\[ScriptCapitalF]"}], 
         ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "4"}], ")"}], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["g", "gbm"], "\[CenterDot]", 
              "\[ScriptCapitalF]"}], ")"}], "\[CenterDot]", 
            "\[ScriptCapitalF]"}], ")"}]}], ")"}]}], ")"}]}]}], ")"}], 
   "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705493998892*^9, 3.826705541348589*^9}, 
   3.82670565729031*^9, 3.826708577884141*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"46cb910e-c0c6-484c-8884-b8d667048b55"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq13", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq13", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Tem", "[", 
   RowBox[{
    RowBox[{"-", "t"}], ",", 
    RowBox[{"-", "t"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705551292931*^9, 3.826705574107377*^9}, 
   3.8267085778842697`*^9},
 CellLabel->
  "In[148]:=",ExpressionUUID->"3243fcd1-1a65-4dee-a39d-77076eef5244"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"A", "[", "r", "]"}], "-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   SuperscriptBox[
    RowBox[{"H", "[", "r", "]"}], "2"]}], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.82670556180888*^9, 3.826705574350621*^9}, 
   3.826705662045723*^9, 3.826708577884844*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"2ecc7462-b8df-4886-82cb-a1d68d584fae"],

Cell[BoxData[
 RowBox[{"eq13", " ", "/.", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq12", " ", ",", " ", 
      RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705743406589*^9, 3.8267057534251337`*^9}, 
   3.826708577885079*^9},
 CellLabel->
  "In[158]:=",ExpressionUUID->"a6c5249a-5a01-493a-b98b-c00733e92584"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"A", "[", "r", "]"}]], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705754068666*^9, 3.826708577885551*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"680a1557-5f50-4ff8-9a39-8658e07d25ab"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq14", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq14", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Tem", "[", 
   RowBox[{
    RowBox[{"-", "r"}], ",", 
    RowBox[{"-", "r"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705581579885*^9, 3.826705586643318*^9}, 
   3.8267085778856916`*^9},
 CellLabel->
  "In[150]:=",ExpressionUUID->"cbbc1e24-9c7e-49e9-afe5-c2c8067c9681"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   SuperscriptBox[
    RowBox[{"H", "[", "r", "]"}], "2"]}], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8267055870462027`*^9, 3.826705668333981*^9, 
  3.826708577886177*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"9d5cc836-1372-4149-bd1c-36b773a97680"],

Cell[BoxData[
 RowBox[{"eq14", " ", "/.", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq12", " ", ",", " ", 
      RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705766027807*^9, 3.826705766131248*^9}, 
   3.826708577886426*^9},
 CellLabel->
  "In[159]:=",ExpressionUUID->"d3edda9e-3431-4ef9-bc74-3c260af6a2d1"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"f", "[", "r", "]"}], "2"], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705766523731*^9, 3.826708577886821*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"24095cc4-dd76-4080-a4e2-2d83f177aa4f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq15", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq15", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Tem", "[", 
   RowBox[{
    RowBox[{"-", "z"}], ",", 
    RowBox[{"-", "z"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.82670559869207*^9, 3.826705604050783*^9}, 
   3.8267085778869553`*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"e4ea392d-528d-449e-9c21-77210df1a124"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"B", "[", "r", "]"}], "-", 
      RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
    SuperscriptBox[
     RowBox[{"H", "[", "r", "]"}], "2"]}], 
   RowBox[{"8", " ", "\[Pi]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705604546679*^9, 3.826705671846137*^9, 
  3.826708577887431*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"6c72b8b9-def7-4d19-9d68-5e6777fb9058"],

Cell[BoxData[
 RowBox[{"eq15", " ", "/.", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq12", " ", ",", " ", 
      RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705773523645*^9, 3.826705773619021*^9}, 
   3.82670857788756*^9},
 CellLabel->
  "In[160]:=",ExpressionUUID->"a55e1eb5-933d-4b20-bc34-21ad15569c6d"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"B", "[", "r", "]"}]], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", "r", "]"}], "2"]}], 
   RowBox[{"8", " ", "\[Pi]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705774051199*^9, 3.826708577887909*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"684c0564-e1e8-42ae-92a2-9ccd9b26306d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq16", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq16", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Tem", "[", 
   RowBox[{
    RowBox[{"-", "\[Phi]"}], ",", 
    RowBox[{"-", "\[Phi]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8267056133798933`*^9, 3.826705619991187*^9}, 
   3.8267085778880444`*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"32adfd0e-d9ba-49b5-a68c-92c06ca56808"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"H", "[", "r", "]"}], "2"], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8267056206840353`*^9, 3.826705675700315*^9, 
  3.826708577888566*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"85e71e24-0dcf-4320-a2fd-e6c142164c72"],

Cell[BoxData[
 RowBox[{"eq16", " ", "/.", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq12", " ", ",", " ", 
      RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705785763988*^9, 3.8267057858753357`*^9}, 
   3.8267085778887873`*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"54a3d6a5-29f1-4940-be3a-7e50f14d8bb0"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], 
  RowBox[{"8", " ", "\[Pi]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.826705786247316*^9, 3.8267085778892*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"da367b71-f7ef-4486-8ce3-bc2a3ee76baa"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalF]f", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalF]f", " ", "=", " ", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalF]f\>\"", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"Tem", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], " ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{"eq12", " ", ",", " ", 
          RowBox[{"H", "[", "r", "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], " ", ")"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826705916429165*^9, 3.8267059429234247`*^9}, {
   3.826706033965064*^9, 3.826706114389949*^9}, 3.826708577889379*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"4b8c2f39-b312-4b40-9133-27e4849e0e04"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalF]f", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8267059217502737`*^9, 3.826705943202573*^9}, 
   3.826706115078521*^9, 3.826708577889737*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"72e163c4-cb5c-48ae-a488-8670a22421d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"\[ScriptCapitalF]f", "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.826706119573*^9, 3.826706157847381*^9}, 
   3.826708577889864*^9},ExpressionUUID->"716a23ac-49e4-4ab4-81b2-\
605453656003"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "[", "r", "]"}]], " ", 
        SuperscriptBox[
         RowBox[{"f", "[", "r", "]"}], "2"]}], 
       RowBox[{"8", " ", "\[Pi]"}]], "0", "0", "0"},
     {"0", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"f", "[", "r", "]"}], "2"], 
       RowBox[{"8", " ", "\[Pi]"}]], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"B", "[", "r", "]"}]], " ", 
         SuperscriptBox[
          RowBox[{"f", "[", "r", "]"}], "2"]}], 
        RowBox[{"8", " ", "\[Pi]"}]]}], "0"},
     {"0", "0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
        SuperscriptBox[
         RowBox[{"f", "[", "r", "]"}], "2"]}], 
       RowBox[{"8", " ", "\[Pi]"}]]}
    },
    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", 10007.},
 CellChangeTimes->{{3.8267061295715446`*^9, 3.8267061489513397`*^9}, 
   3.8267085778903522`*^9},
 CellLabel->
  "Out[172]//MatrixForm=",ExpressionUUID->"6b42dfc9-0b8b-4641-bfea-\
6d80f34f2b55"]
}, Closed]],

Cell[CellGroupData[{

Cell["Field Equations", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826708586334393*^9, 
  3.826708622500703*^9}},ExpressionUUID->"a0b5a042-d91b-4754-8b5c-\
8ff7cd4dee6d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "fieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "7", "]"}], "]"}], "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "+", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"Tomega", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"8", "\[Pi]"}], ")"}], "*", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"\[ScriptCapitalF]f", "[", 
         RowBox[{
          RowBox[{"-", "\[Mu]"}], ",", 
          RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}]}]}], " ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"fieldEquations", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826706218915887*^9, 3.826706469836012*^9}, {
   3.826706530756855*^9, 3.826706538395722*^9}, {3.826706658893291*^9, 
   3.8267066766753607`*^9}, 3.826708611247485*^9},
 CellLabel->
  "In[198]:=",ExpressionUUID->"82ca82be-f5d8-449b-952f-432b9e7d7770"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "[", "r", "]"}]], " ", "\[CapitalLambda]"}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "[", "r", "]"}]], " ", 
        SuperscriptBox[
         RowBox[{"f", "[", "r", "]"}], "2"]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"A", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["B", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}]}], "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", "\[CapitalLambda]"}], "+", 
       SuperscriptBox[
        RowBox[{"f", "[", "r", "]"}], "2"], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             SuperscriptBox["B", "\[Prime]",
              MultilineFunction->None], "[", "r", "]"}]}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "-", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["B", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}]}], "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"B", "[", "r", "]"}]]}], " ", "\[CapitalLambda]"}], "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "[", "r", "]"}]], " ", 
        SuperscriptBox[
         RowBox[{"f", "[", "r", "]"}], "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"B", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["A", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]]}], " ", 
        "\[CapitalLambda]"}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
        SuperscriptBox[
         RowBox[{"f", "[", "r", "]"}], "2"]}], "-", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{
           RowBox[{
            SuperscriptBox["A", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], " ", 
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["B", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["A", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], "+", 
             RowBox[{
              SuperscriptBox["B", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
         ")"}]}]}]}
    },
    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", 10008.},
 CellChangeTimes->{
  3.826706234924139*^9, {3.826706265548667*^9, 3.826706340312451*^9}, {
   3.826706396495722*^9, 3.82670647030443*^9}, 3.826706541905766*^9, 
   3.826706676954096*^9, 3.826708611248151*^9},
 CellLabel->
  "Out[200]//MatrixForm=",ExpressionUUID->"1402a9b2-c3d2-4f48-ae71-\
98d13d32fd2f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq17", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"4", "*", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{"Expand", "[", 
        RowBox[{"fieldEquations", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], " ", ",", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"A", "[", "r", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand", 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826706687684874*^9, 3.826706698459351*^9}, {
   3.8267067337330236`*^9, 3.8267068485312443`*^9}, 3.8267086112483*^9},
 CellLabel->
  "In[211]:=",ExpressionUUID->"0814c654-c7fa-4a57-9421-7e313d8f176c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "\[CapitalLambda]"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8267067827725487`*^9, 3.826706815235272*^9}, 
   3.826706848827507*^9, 3.826708611248909*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"c526ff77-1977-4cae-9b46-ff764b8090b0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq18", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq18", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"-", "4"}], ")"}], "*", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{"fieldEquations", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "3"}], "]"}], "]"}], ",", 
       RowBox[{"Exp", "[", 
        RowBox[{"B", "[", "r", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand", 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826706927941423*^9, 3.826707003955365*^9}, 
   3.826708611249048*^9},
 CellLabel->
  "In[225]:=",ExpressionUUID->"2018ea6c-3d95-4afc-9233-f6c7d84cbdf4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "\[CapitalLambda]"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826706949567334*^9, 3.8267070049113693`*^9}, 
   3.826708611249398*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"480189a2-d8dd-4b40-9449-7ecf28acd84e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq19", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq19", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"-", "4"}], ")"}], "*", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{
       RowBox[{"fieldEquations", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", "4"}], "]"}], "]"}], ",", 
       RowBox[{"Exp", "[", 
        RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand", 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8267070141970167`*^9, 3.82670706427527*^9}, 
   3.826708611249535*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"1c63057f-f264-4f7f-943c-0788d6854452"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "\[CapitalLambda]"}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "2"], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["A", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826707018664524*^9, 3.826707065270673*^9}, 
   3.826708611249895*^9},
 CellLabel->
  "Out[232]=",ExpressionUUID->"a323ffc3-b02d-4a34-a7a8-6a4525fa4218"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq20", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq20", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"-", "4"}], ")"}], "*", 
    RowBox[{"fieldEquations", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8267068571719017`*^9, 3.826706882604031*^9}, {
   3.826706914828761*^9, 3.826706924203555*^9}, 3.826708611250022*^9},
 CellLabel->
  "In[217]:=",ExpressionUUID->"b348e418-80f2-4861-ad84-f36778994333"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "\[CapitalLambda]"}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", "r", "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826706858983767*^9, 3.826706882960535*^9}, 
   3.826706925013382*^9, 3.826708611250498*^9},
 CellLabel->
  "Out[218]=",ExpressionUUID->"26110657-9e11-4992-aefd-607130c89e1d"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq21", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq21", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", 
     RowBox[{"CovariantD", "[", 
      RowBox[{
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
       RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq21", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.82670710880415*^9, 3.826707187315522*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"291e773b-9f89-45c2-8df4-6b93e8388608"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"0"},
      {"0"},
      {"0"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
         RowBox[{"H", "[", "r", "]"}], " ", 
         RowBox[{
          SuperscriptBox["A", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
         RowBox[{"H", "[", "r", "]"}], " ", 
         RowBox[{
          SuperscriptBox["B", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
         RowBox[{
          SuperscriptBox["H", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
         RowBox[{"H", "[", "r", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.826707117394595*^9, 3.8267071483753767`*^9}, 
   3.826707188166717*^9},
 CellLabel->
  "Out[240]//MatrixForm=",ExpressionUUID->"8480b718-0187-4b59-adf7-\
213d423c87fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq21", "[", 
  RowBox[{"[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.826707190237053*^9, 3.826707193420825*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"70b46a09-63aa-4de9-8095-eef633a304ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   RowBox[{"H", "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["A", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   RowBox[{"H", "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   RowBox[{
    SuperscriptBox["H", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]}]], " ", 
   RowBox[{"H", "[", "r", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}]}]], "Output",
 CellChangeTimes->{3.82670719365831*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"3dc06941-5b24-4c4f-9ff1-27aaf4258ec3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"eq12", " ", ",", " ", 
    RowBox[{"H", "[", "r", "]"}]}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"eq12", " ", ",", " ", 
       RowBox[{"H", "[", "r", "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "r"}], " ", "]"}], 
  " "}]}], "Input",
 CellChangeTimes->{{3.826707209853815*^9, 3.826707256811823*^9}},
 CellLabel->
  "In[245]:=",ExpressionUUID->"33c59c29-eaa2-434b-a06b-1f18244c7763"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"H", "[", "r", "]"}], "\[Rule]", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "2"]], " ", 
    RowBox[{"f", "[", "r", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.826707210865209*^9, 3.826707257220353*^9}},
 CellLabel->
  "Out[245]=",ExpressionUUID->"1a23ece0-7b82-47b2-98d4-caecdfe35bef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["H", "\[Prime]",
     MultilineFunction->None], "[", "r", "]"}], "\[Rule]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "2"]], " ", 
     RowBox[{
      SuperscriptBox["f", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "2"]], " ", 
     RowBox[{"f", "[", "r", "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.826707210865209*^9, 3.826707257224065*^9}},
 CellLabel->
  "Out[246]=",ExpressionUUID->"a6bece4e-042c-45c3-8200-f13613e9d3a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq21", "[", 
      RowBox[{"[", "4", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"eq12", " ", ",", " ", 
        RowBox[{"H", "[", "r", "]"}]}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{"eq12", " ", ",", " ", 
         RowBox[{"H", "[", "r", "]"}]}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "r"}], " ", "]"}]}], 
   "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "equation", " ", "22", " ", "is", " ", "a", " ", "consequence", " ", "of", 
    " ", "this"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.82670726691567*^9, 3.826707286899293*^9}, {
  3.826707333732595*^9, 
  3.826707349195459*^9}},ExpressionUUID->"e61cac8d-191b-4e1d-b364-\
b63ef177e883"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "2"]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "r", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["A", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}], "+", 
       RowBox[{
        SuperscriptBox["B", "\[Prime]",
         MultilineFunction->None], "[", "r", "]"}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{
      SuperscriptBox["f", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.826707279523527*^9, 3.8267072872714233`*^9}},
 CellLabel->
  "Out[248]=",ExpressionUUID->"8038340b-b937-4689-9ca8-a6b3515186d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq28", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq28", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[ScriptCapitalC]", "''"}], "[", "r", "]"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", "2"], ")"}], " ", 
     SuperscriptBox[
      RowBox[{
       RowBox[{"\[ScriptCapitalC]", "'"}], "[", "r", "]"}], "2"]}], "+", " ", 
    
    RowBox[{"4", " ", "\[CapitalLambda]"}]}], " ", "\[Equal]", " ", "0", 
   " "}]}]}], "Input",
 CellChangeTimes->{{3.826707939828422*^9, 3.826707970009617*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"9da89412-2710-46b0-8c86-bc868e76ade6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"4", " ", "\[CapitalLambda]"}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["\[ScriptCapitalC]", "\[Prime]",
       MultilineFunction->None], "[", "r", "]"}], "2"]}], "+", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalC]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "r", "]"}]}], "\[Equal]", "0"}]], "Output",\

 CellChangeTimes->{3.8267079706743727`*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"f34308ab-a399-44fa-b2fc-e9ddcb716551"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq29", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Ugg", "..."}], " ", "this", " ", "gives", " ", "a", " ", 
     "Cosine", " ", "Function"}], " ", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
       "need", " ", "phase", " ", "shift", " ", "to", " ", "get", " ", 
        "Sine"}], " ", "..."}], ".", " ", 
      RowBox[{"doesn", "'"}]}], "t", " ", "want", " ", "to", " ", 
     "expand"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq29", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"DSolve", "[", " ", 
        RowBox[{"eq28", " ", ",", " ", 
         RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], " ", ",", " ", "r"}], 
        " ", "]"}], " ", "]"}], " ", "/.", " ", 
      RowBox[{
       RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", 
       RowBox[{"2", " ", 
        RowBox[{"Log", "[", "\[Sigma]", "]"}]}]}]}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"C", "[", "1", "]"}], "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        FractionBox["R", "2"], "-", 
        FractionBox["\[Pi]", "2"]}], ")"}]}]}], "   ", "//", " ", 
    "TrigExpand"}], " ", "//", " ", "FunctionExpand", " "}]}]}], "Input",
 CellChangeTimes->{{3.826707972867156*^9, 3.826708166520462*^9}, {
  3.826708386530891*^9, 3.826708386802477*^9}, {3.826708810713406*^9, 
  3.8267088136403522`*^9}},
 CellLabel->
  "In[295]:=",ExpressionUUID->"449ba60f-d566-4458-879f-ed3baed7f86b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}], "\[Rule]", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"Log", "[", "\[Sigma]", "]"}]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"Cos", "[", 
       RowBox[{
        SqrtBox["2"], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["\[Pi]", "2"]}], "+", 
             FractionBox["R", "2"]}], ")"}]}]}], ")"}], " ", 
        SqrtBox["\[CapitalLambda]"]}], "]"}], "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8267079817979918`*^9, 3.826707993893434*^9}, {
   3.826708028462241*^9, 3.826708114367202*^9}, {3.826708149650547*^9, 
   3.8267081667979307`*^9}, 3.826708387640568*^9, 3.826708814126671*^9},
 CellLabel->
  "Out[296]=",ExpressionUUID->"8f765d95-2642-4450-86bf-92b1509bcac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"eq6", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq30a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq30a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq6", "  ", "/.", " ", 
      RowBox[{
       RowBox[{"A", "[", "r", "]"}], "\[Rule]", " ", "0"}]}], " ", "/.", " ", 
     
     RowBox[{
      RowBox[{"B", "[", "r", "]"}], "\[Rule]", " ", "0"}]}], " ", "/.", " ", 
    "eq29"}], "  ", "/.", " ", 
   RowBox[{"R", "\[Rule]", " ", "0", " "}]}]}]}], "Input",
 CellChangeTimes->{{3.826708199409293*^9, 3.826708210351879*^9}, {
  3.826708241823431*^9, 3.826708269342445*^9}, {3.8267083643997297`*^9, 
  3.826708367766643*^9}},
 CellLabel->
  "In[291]:=",ExpressionUUID->"beee4543-8733-4ca8-b4d0-809d5aa87296"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"A", "[", "r", "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"B", "[", "r", "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ScriptCapitalC]", "[", "r", "]"}]]}]}]], "Output",
 CellChangeTimes->{{3.826708201379881*^9, 3.826708210662396*^9}, {
  3.826708249128558*^9, 3.826708270012446*^9}, {3.8267083680968637`*^9, 
  3.8267083893377953`*^9}},
 CellLabel->
  "Out[291]=",ExpressionUUID->"d21602fa-59c7-4566-b078-4bd6696bdd47"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "-", 
  SuperscriptBox["dt", "2"], "+", 
  SuperscriptBox["dz", "2"], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[Sigma]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     RowBox[{
      SqrtBox["2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Pi]", "+", "r"}], ")"}], " ", 
      SqrtBox["\[CapitalLambda]"]}], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{{3.826708201379881*^9, 3.826708210662396*^9}, {
  3.826708249128558*^9, 3.826708270012446*^9}, {3.8267083680968637`*^9, 
  3.826708389341517*^9}},
 CellLabel->
  "Out[293]=",ExpressionUUID->"96312168-f250-4279-90b2-8c9a3c4d45aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", 
      RowBox[{"eq30a", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "dr", ",", "dz", ",", "d\[Phi]"}], "}"}]}], "]"}], 
     " ", "//", " ", "Expand"}], " ", "//", " ", "TrigExpand"}], " ", "//", 
   " ", "Simplify"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.826708271503751*^9, 3.82670830082235*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"e63b2dfa-1689-427b-bc48-bacf96bcc29d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Sigma]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         RowBox[{
          SqrtBox["2"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Pi]", "+", "r"}], ")"}], " ", 
          SqrtBox["\[CapitalLambda]"]}], "]"}], "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",
 CellChangeTimes->{{3.8267082744410343`*^9, 3.8267083011024017`*^9}, {
  3.826708377397459*^9, 3.8267083918426113`*^9}},
 CellLabel->
  "Out[294]//MatrixForm=",ExpressionUUID->"f3562417-b912-4754-82df-\
e39b1c29b9c6"]
}, Open  ]]
},
WindowSize->{1280, 675},
WindowMargins->{{0, Automatic}, {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->"7d2ceb48-8d29-4cc8-bdfc-ced6d77da6c1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2310, 33, 159, "Title",ExpressionUUID->"e8db23c8-f68b-4493-a1af-0de00eefdd6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2893, 57, 1046, 18, 76, "Author",ExpressionUUID->"421336a2-31b1-47f4-9d09-d397e97cbf8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3976, 80, 228, 4, 69, "Section",ExpressionUUID->"0707e402-8148-4e4f-951c-a9e2a6a4b554",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4207, 86, 433, 9, 63, "Input",ExpressionUUID->"ae482e5d-a3e5-4528-b8a0-104f140945b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4643, 97, 1371, 21, 43, "Output",ExpressionUUID->"95da176b-7cee-4ff7-8ad5-79237f2232b3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6051, 123, 681, 11, 55, "Section",ExpressionUUID->"3dc41d7e-438b-4ee1-a8b9-6a17881300d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6735, 136, 503, 10, 63, "Input",ExpressionUUID->"aa6e688d-485c-4598-8a34-5bcdd52fb3c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7241, 148, 534, 10, 43, "Output",ExpressionUUID->"b975063d-f8af-4704-864d-dc7b8da660f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7778, 160, 583, 10, 84, "Input",ExpressionUUID->"35b32ad4-157d-4f99-b1a4-80ea1a3c8812",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8364, 172, 1416, 23, 43, "Output",ExpressionUUID->"c29edb33-25e8-48b8-8d77-9065b69318fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9817, 200, 251, 4, 55, "Section",ExpressionUUID->"24871171-8728-4784-af0b-43c817c709f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10071, 206, 1668, 45, 189, "Input",ExpressionUUID->"4bc0a8e3-284b-4543-b0d5-88bb4998a23b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11742, 253, 1641, 27, 24, "Print",ExpressionUUID->"0b22d4a7-3a00-44e7-aad0-2e008065b535",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13386, 282, 1653, 27, 24, "Print",ExpressionUUID->"ab7824b9-bf94-418f-a67a-ba0af07d84b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15042, 311, 1583, 24, 41, "Output",ExpressionUUID->"9d9ab63a-1523-4fc9-b70b-8d9dbb7c260c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16628, 337, 268, 4, 41, "Input",ExpressionUUID->"f8e0327a-62ac-482e-84da-72779c6c93ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16899, 343, 308, 5, 41, "Input",ExpressionUUID->"73767daa-4f00-4520-9618-67eea9158c83",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[17244, 353, 266, 5, 55, "Section",ExpressionUUID->"58c44c5b-d5eb-4995-9102-e79fbb7e27b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17513, 360, 2069, 46, 336, "Input",ExpressionUUID->"f06af000-d9c6-4ae2-b70e-f0a8fb5e62c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19585, 408, 766, 15, 41, "Input",ExpressionUUID->"f52ad0bd-b5c6-4860-8a80-88ded8c9dd17",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20388, 428, 362, 6, 55, "Section",ExpressionUUID->"b4b9e55a-1007-4ea9-84d8-ba337d6c8a8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[20753, 436, 1660, 41, 126, "Input",ExpressionUUID->"b29ce23e-e8fc-4eb9-b60a-825fb779b206",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22416, 479, 1056, 26, 84, "Input",ExpressionUUID->"e7edbe11-6013-4a28-8414-5b5fa9465e3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[23509, 510, 387, 8, 55, "Section",ExpressionUUID->"f51cdb8c-42cd-4fe3-ac0e-2abd08e8ef55",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23899, 520, 1157, 28, 86, "Input",ExpressionUUID->"0b0ba26b-2790-4ad4-bea0-ef97305c0b52",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25059, 550, 610, 17, 62, "Output",ExpressionUUID->"06144b0c-ee07-4043-84c5-e6cf1363e0ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25672, 569, 787, 16, 105, "Input",ExpressionUUID->"434e6728-6a6e-4c4d-b7c3-64b969df1da7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26462, 587, 1090, 32, 131, "Output",ExpressionUUID->"a03c5259-7564-4b9a-8317-2f7ac2b0e451",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27589, 624, 301, 5, 55, "Section",ExpressionUUID->"2cbb20b8-fc9c-4152-a647-6c339535df07",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[27893, 631, 1150, 28, 84, "Input",ExpressionUUID->"2471d628-87f4-4eda-ab63-40bfe183553a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[29046, 661, 695, 18, 41, "Output",ExpressionUUID->"1ab975af-1b41-4739-9e77-8f2feca8c3eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[29744, 681, 649, 13, 105, "Input",ExpressionUUID->"aa13fe33-ac70-49a0-b67e-77a19c05e0ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[30396, 696, 1086, 30, 109, "Output",ExpressionUUID->"90fc876c-bae7-4cf2-87ef-b228002177e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31519, 731, 310, 5, 55, "Section",ExpressionUUID->"754d8521-3d8e-4237-9714-08e3e6f91801",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[31832, 738, 5723, 130, 714, "Input",ExpressionUUID->"3662beca-4760-4fed-a4b1-f6ea14a87a12",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37558, 870, 1079, 23, 65, "Input",ExpressionUUID->"a326397b-8105-43d1-a9f8-088f35b245a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38640, 895, 306, 6, 41, "Output",ExpressionUUID->"a3ef8bda-4efa-482e-b2fc-76eb88493a83",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38949, 903, 262, 4, 41, "Input",ExpressionUUID->"84a249f4-d3f7-436a-9a78-96fc04eb8d91",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39214, 909, 1109, 34, 45, "Output",ExpressionUUID->"cf1bb0bd-d4b5-4e86-93dc-4c0f9be88a39",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40326, 945, 810, 18, 84, "Input",ExpressionUUID->"4d6fade1-4343-4b6b-9080-fcf4881133d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41139, 965, 581, 11, 45, "Output",ExpressionUUID->"f1c1b928-11ae-4043-842a-75f8d87dd8a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41723, 978, 516, 7, 41, "Output",ExpressionUUID->"34fb9942-10cd-48eb-9354-4e04410aa982",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42242, 987, 1351, 34, 108, "Output",ExpressionUUID->"76d93eaa-7c99-4d24-b6e1-ebef8a769583",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[43596, 1023, 813, 18, 84, "Input",ExpressionUUID->"b71ca9bb-8521-4768-8456-26ae8aa3867d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[44412, 1043, 703, 14, 45, "Output",ExpressionUUID->"c62dfff0-d169-469b-8e74-54880305f88e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45118, 1059, 616, 9, 41, "Output",ExpressionUUID->"46e86db4-83f5-4265-aa38-16b28197bb74",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45737, 1070, 12682, 372, 348, "Output",ExpressionUUID->"55802944-32b3-4893-9497-61924ec01b9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[58422, 1444, 810, 18, 84, "Input",ExpressionUUID->"9a793d03-5d37-4ae8-83bf-edaee1a451ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59235, 1464, 576, 10, 45, "Output",ExpressionUUID->"f7a3f962-daf0-4a2b-8fef-06af04fc272b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59814, 1476, 531, 7, 41, "Output",ExpressionUUID->"9a03fbe3-df37-43f3-8442-62e556af6ae6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60348, 1485, 27759, 709, 428, "Output",ExpressionUUID->"9342c2e7-7d19-4008-8852-efeab6e59f8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88110, 2196, 808, 18, 84, "Input",ExpressionUUID->"604cf42b-6732-4ee9-9142-a391c9b9672c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88921, 2216, 557, 10, 45, "Output",ExpressionUUID->"a275be13-6c5c-4704-b2b7-d41824a534a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[89481, 2228, 526, 7, 41, "Output",ExpressionUUID->"64c4b911-9f64-4b50-9978-28c09517c9bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[90010, 2237, 7575, 205, 160, "Output",ExpressionUUID->"cfcc6814-ae6f-4ef9-b3a3-8f5993c3e69a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[97588, 2444, 810, 18, 84, "Input",ExpressionUUID->"3dad5157-882f-4477-83d0-4f731e7fef8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98401, 2464, 519, 9, 41, "Output",ExpressionUUID->"e9a09097-7761-44f7-a985-ae4ca323f8b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98923, 2475, 527, 7, 41, "Output",ExpressionUUID->"81e0ba71-9884-47db-bc39-d7a128868539",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[99453, 2484, 3225, 92, 74, "Output",ExpressionUUID->"33657d10-3e11-4951-8d06-849527787355",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[102681, 2578, 743, 17, 84, "Input",ExpressionUUID->"3e245bc9-884d-4b03-9ce5-7c9225dced8a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[103427, 2597, 352, 7, 41, "Output",ExpressionUUID->"910f7681-83bf-44ac-bb7d-6a87a5287bcc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[103782, 2606, 368, 5, 41, "Output",ExpressionUUID->"b86b30ca-dae5-4617-b74b-91dcf3c21cd0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[104153, 2613, 4747, 138, 75, "Output",ExpressionUUID->"109d582b-3574-48e6-88e5-b4f5f445b7a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[108903, 2753, 792, 18, 84, "Input",ExpressionUUID->"d37ce287-7d8e-4e8d-bec4-7e0a945a2ae9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[109698, 2773, 494, 10, 45, "Output",ExpressionUUID->"d1e50ff0-b965-486a-b5af-23d95e6569b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[110195, 2785, 466, 7, 41, "Output",ExpressionUUID->"8264dffd-0434-4e31-9270-10782b19bbe2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[110664, 2794, 7608, 206, 156, "Output",ExpressionUUID->"ed50f7a7-28b2-4964-bd61-9929c9eb60be",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[118275, 3002, 857, 19, 84, "Input",ExpressionUUID->"ae31d8f1-5e97-4a90-8de0-effe49f95d4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[119135, 3023, 577, 11, 45, "Output",ExpressionUUID->"9725e6b5-8df0-497c-a936-8b7074f891a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[119715, 3036, 531, 8, 41, "Output",ExpressionUUID->"805bdbf2-5955-47e9-98c1-ae4dd2c7d9d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[120249, 3046, 92820, 2254, 428, "Output",ExpressionUUID->"00a731fb-4620-4ff4-81a0-9a80c0889264",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[213072, 5302, 719, 17, 84, "Input",ExpressionUUID->"f69a9d3b-f2d5-48b2-a6b4-c7cff58979ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[213794, 5321, 331, 7, 45, "Output",ExpressionUUID->"5e9bd5a6-7f79-46d1-89a0-9f9171322ab1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[214128, 5330, 295, 4, 41, "Output",ExpressionUUID->"ad3f5def-baaf-4d4f-9706-da6a1edcdabb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[214426, 5336, 54426, 1330, 354, "Output",ExpressionUUID->"6849cbd8-8868-4a3a-b0a0-48b13918e1e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[268889, 6671, 324, 7, 55, "Section",ExpressionUUID->"2976995c-ddb6-4772-85d1-6010040a5be9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[269216, 6680, 2141, 54, 189, "Input",ExpressionUUID->"05d6bb7c-cf68-4d0e-a19e-722158611cfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[271360, 6736, 6253, 181, 156, "Output",ExpressionUUID->"41be2f72-e7cc-4e09-b90c-cdb65e5adc04",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[277616, 6919, 2116, 53, 189, "Input",ExpressionUUID->"ca5b4d43-70f4-4a2c-8f9b-29c316119ab1",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[279735, 6974, 6367, 183, 156, "Output",ExpressionUUID->"bf8b93dd-e0f5-4fee-9355-4659de9ef21c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[286105, 7159, 674, 15, 84, "Input",ExpressionUUID->"26f38965-a77b-4d7e-8565-b1409518604c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[286782, 7176, 452, 11, 47, "Output",ExpressionUUID->"775d2409-bf69-410f-a9ee-3738f88b9c6f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[287237, 7189, 1047, 23, 105, "Input",ExpressionUUID->"e6dc2e17-1d9f-4d83-8aca-9abf86c688ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[288287, 7214, 6043, 170, 337, "Output",ExpressionUUID->"0f75725d-7ae3-47f6-8a5d-26e0dee3ba77",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[294333, 7386, 813, 18, 84, "Input",ExpressionUUID->"62ccf79f-2821-4691-93c7-0c04593d0c37",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[295149, 7406, 1475, 42, 57, "Output",ExpressionUUID->"7512bfe2-7aaf-4008-a37d-b1ded5a13b7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[296627, 7450, 806, 18, 84, "Input",ExpressionUUID->"e0609e90-6f49-4a82-8a44-1696e6886353",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[297436, 7470, 1052, 30, 57, "Output",ExpressionUUID->"0ef509e0-4e03-4a8a-a204-5e8773f2116f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[298491, 7502, 807, 18, 84, "Input",ExpressionUUID->"77b37cdf-2b00-4be9-8110-c40c31046edd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[299301, 7522, 1434, 40, 57, "Output",ExpressionUUID->"b77534c5-2e22-43f0-a7a5-a7286bbdad65",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[300738, 7564, 807, 18, 84, "Input",ExpressionUUID->"7052ac4e-4b50-4cde-8118-e72e0fffe789",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[301548, 7584, 1465, 41, 57, "Output",ExpressionUUID->"9d4e802e-8c60-47a3-a11f-0348957ddf6b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[303050, 7630, 328, 5, 55, "Section",ExpressionUUID->"335ffb72-a654-4630-8d71-b81b53b5d6a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[303381, 7637, 933, 20, 166, "Input",ExpressionUUID->"d6ecdd98-da8a-4e1a-8254-7dbbf8e2d3d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[304317, 7659, 956, 27, 103, "Output",ExpressionUUID->"ea3d96ff-7308-424b-8b6d-f7bdaa078693",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[305276, 7688, 814, 17, 63, "Input",ExpressionUUID->"8f73ced1-5de3-4ed4-96fd-e8f229ae41d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[306093, 7707, 311, 7, 45, "Output",ExpressionUUID->"247ac5f3-2027-4284-947f-3ec473883f43",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[306407, 7716, 1483, 39, 147, "Input",ExpressionUUID->"ef61f0ef-7812-4344-87ae-3f6b5c6b5864",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[307893, 7757, 546, 13, 45, "Output",ExpressionUUID->"360f7960-b256-4fb0-8b23-a224fc5cff7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[308442, 7772, 438, 8, 41, "Output",ExpressionUUID->"15127a80-f1a2-445a-bc72-930234fdf0c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[308883, 7782, 655, 16, 41, "Output",ExpressionUUID->"b4539cfa-83e6-477d-8051-b7ca4d815ff4",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[309541, 7800, 448, 11, 41, "Input",ExpressionUUID->"435238b3-7c7f-49de-90ce-8f2ccb1d4765",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[309992, 7813, 477, 12, 48, "Output",ExpressionUUID->"4727967b-ad93-40b6-8fc3-2f2c936ad04f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[310472, 7827, 1987, 50, 150, "Input",ExpressionUUID->"ae283613-e2f1-4186-8ace-04c1a6b1b831",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[312462, 7879, 1112, 33, 47, "Output",ExpressionUUID->"46cb910e-c0c6-484c-8884-b8d667048b55",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[313577, 7914, 475, 11, 84, "Input",ExpressionUUID->"3243fcd1-1a65-4dee-a39d-77076eef5244",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[314055, 7927, 546, 14, 61, "Output",ExpressionUUID->"2ecc7462-b8df-4886-82cb-a1d68d584fae",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[314604, 7943, 492, 12, 41, "Input",ExpressionUUID->"a6c5249a-5a01-493a-b98b-c00733e92584",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[315099, 7957, 424, 11, 61, "Output",ExpressionUUID->"680a1557-5f50-4ff8-9a39-8658e07d25ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[315526, 7970, 475, 11, 84, "Input",ExpressionUUID->"cbbc1e24-9c7e-49e9-afe5-c2c8067c9681",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[316004, 7983, 488, 13, 61, "Output",ExpressionUUID->"9d5cc836-1372-4149-bd1c-36b773a97680",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[316495, 7998, 490, 12, 41, "Input",ExpressionUUID->"d3edda9e-3431-4ef9-bc74-3c260af6a2d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[316988, 8012, 330, 8, 61, "Output",ExpressionUUID->"24095cc4-dd76-4080-a4e2-2d83f177aa4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[317321, 8022, 474, 11, 84, "Input",ExpressionUUID->"e4ea392d-528d-449e-9c21-77210df1a124",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[317798, 8035, 548, 15, 61, "Output",ExpressionUUID->"6c72b8b9-def7-4d19-9d68-5e6777fb9058",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[318349, 8052, 489, 12, 41, "Input",ExpressionUUID->"a55e1eb5-933d-4b20-bc34-21ad15569c6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[318841, 8066, 448, 12, 61, "Output",ExpressionUUID->"684c0564-e1e8-42ae-92a2-9ccd9b26306d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[319292, 8080, 487, 11, 84, "Input",ExpressionUUID->"32adfd0e-d9ba-49b5-a68c-92c06ca56808",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[319782, 8093, 357, 9, 61, "Output",ExpressionUUID->"85e71e24-0dcf-4320-a2fd-e6c142164c72",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[320142, 8104, 494, 12, 41, "Input",ExpressionUUID->"54a3d6a5-29f1-4940-be3a-7e50f14d8bb0",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[320639, 8118, 438, 11, 61, "Output",ExpressionUUID->"da367b71-f7ef-4486-8ce3-bc2a3ee76baa",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[321080, 8131, 1172, 28, 63, "Input",ExpressionUUID->"4b8c2f39-b312-4b40-9133-27e4849e0e04",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[322255, 8161, 364, 8, 45, "Output",ExpressionUUID->"72e163c4-cb5c-48ae-a488-8670a22421d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[322622, 8171, 405, 10, 41, "Input",ExpressionUUID->"716a23ac-49e4-4ab4-81b2-605453656003",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[323030, 8183, 1658, 49, 157, "Output",ExpressionUUID->"6b42dfc9-0b8b-4641-bfea-6d80f34f2b55",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[324725, 8237, 215, 4, 55, "Section",ExpressionUUID->"a0b5a042-d91b-4754-8b5c-8ff7cd4dee6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[324943, 8243, 1415, 36, 105, "Input",ExpressionUUID->"82ca82be-f5d8-449b-952f-432b9e7d7770",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[326361, 8281, 6603, 177, 133, "Output",ExpressionUUID->"1402a9b2-c3d2-4f48-ae71-98d13d32fd2f",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[332967, 8460, 844, 20, 84, "Input",ExpressionUUID->"0814c654-c7fa-4a57-9421-7e313d8f176c",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[333814, 8482, 1203, 33, 41, "Output",ExpressionUUID->"c526ff77-1977-4cae-9b46-ff764b8090b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[335020, 8517, 786, 21, 84, "Input",ExpressionUUID->"2018ea6c-3d95-4afc-9233-f6c7d84cbdf4",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[335809, 8540, 1181, 33, 41, "Output",ExpressionUUID->"480189a2-d8dd-4b40-9449-7ecf28acd84e",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[336993, 8575, 803, 21, 84, "Input",ExpressionUUID->"1c63057f-f264-4f7f-943c-0788d6854452",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[337799, 8598, 1131, 33, 41, "Output",ExpressionUUID->"a323ffc3-b02d-4a34-a7a8-6a4525fa4218",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[338933, 8633, 626, 14, 84, "Input",ExpressionUUID->"b348e418-80f2-4861-ad84-f36778994333",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[339562, 8649, 1101, 31, 41, "Output",ExpressionUUID->"26110657-9e11-4992-aefd-607130c89e1d",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Closed]],
Cell[CellGroupData[{
Cell[340700, 8685, 658, 15, 102, "Input",ExpressionUUID->"291e773b-9f89-45c2-8df4-6b93e8388608"],
Cell[341361, 8702, 2130, 60, 109, "Output",ExpressionUUID->"8480b718-0187-4b59-adf7-213d423c87fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[343528, 8767, 229, 5, 41, "Input",ExpressionUUID->"70b46a09-63aa-4de9-8095-eef633a304ae"],
Cell[343760, 8774, 1327, 39, 57, "Output",ExpressionUUID->"3dc06941-5b24-4c4f-9ff1-27aaf4258ec3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[345124, 8818, 611, 17, 63, "Input",ExpressionUUID->"33c59c29-eaa2-434b-a06b-1f18244c7763"],
Cell[345738, 8837, 423, 11, 54, "Output",ExpressionUUID->"1a23ece0-7b82-47b2-98d4-caecdfe35bef"],
Cell[346164, 8850, 911, 25, 56, "Output",ExpressionUUID->"a6bece4e-042c-45c3-8200-f13613e9d3a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347112, 8880, 993, 27, 41, "Input",ExpressionUUID->"e61cac8d-191b-4e1d-b364-b63ef177e883"],
Cell[348108, 8909, 865, 26, 56, "Output",ExpressionUUID->"8038340b-b937-4689-9ca8-a6b3515186d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[349010, 8940, 683, 18, 100, "Input",ExpressionUUID->"9da89412-2710-46b0-8c86-bc868e76ade6"],
Cell[349696, 8960, 561, 16, 57, "Output",ExpressionUUID->"f34308ab-a399-44fa-b2fc-e9ddcb716551"]
}, Open  ]],
Cell[CellGroupData[{
Cell[350294, 8981, 1576, 41, 100, "Input",ExpressionUUID->"449ba60f-d566-4458-879f-ed3baed7f86b"],
Cell[351873, 9024, 944, 25, 57, "Output",ExpressionUUID->"8f765d95-2642-4450-86bf-92b1509bcac9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352854, 9054, 805, 19, 126, "Input",ExpressionUUID->"beee4543-8733-4ca8-b4d0-809d5aa87296"],
Cell[353662, 9075, 721, 19, 41, "Output",ExpressionUUID->"d21602fa-59c7-4566-b078-4bd6696bdd47"],
Cell[354386, 9096, 689, 19, 44, "Output",ExpressionUUID->"96312168-f250-4279-90b2-8c9a3c4d45aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[355112, 9120, 517, 13, 41, "Input",ExpressionUUID->"e63b2dfa-1689-427b-bc48-bacf96bcc29d"],
Cell[355632, 9135, 1086, 32, 107, "Output",ExpressionUUID->"f3562417-b912-4754-82df-e39b1c29b9c6"]
}, Open  ]]
}
]
*)