Analytic example of critical behaviour in scalar field collapse by Brady.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    446391,      11122]
NotebookOptionsPosition[    423974,      10800]
NotebookOutlinePosition[    424437,      10817]
CellTagsIndexPosition[    424394,      10814]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Analytic example of critical behaviour in scalar field \
collapse by Brady\
\>", "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.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.82846914237554*^9, 3.828469146910945*^9}, {
   3.828471572443717*^9, 3.8284715890511923`*^9}, {3.828529438373527*^9, 
   3.8285294469068527`*^9}, {3.828533473276997*^9, 3.8285334845643597`*^9}, {
   3.828605529086955*^9, 3.828605544687042*^9}, {3.8286904376033077`*^9, 
   3.828690443890785*^9}, {3.8287894528609467`*^9, 3.828789480877036*^9}, {
   3.828799096740452*^9, 3.828799108533012*^9}, {3.828814117044565*^9, 
   3.8288141187243*^9}, {3.828858846895076*^9, 3.82885884811847*^9}, {
   3.829299358864893*^9, 3.829299370381713*^9}, {3.829312638420745*^9, 
   3.829312645507756*^9}, {3.829313700575865*^9, 3.8293137052390127`*^9}, {
   3.8466694721396637`*^9, 3.84666948094739*^9}, {3.846672790226967*^9, 
   3.846672793602828*^9}},
 TextAlignment->Center,ExpressionUUID->"26175c75-5e68-4770-afeb-755473cd726c"],

Cell["\<\
Geoff Cope
University of Utah
November 23rd, 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.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.828435825642728*^9, 3.828435825914054*^9}, {
   3.828529454210647*^9, 3.8285294546106777`*^9}, {3.828605611022828*^9, 
   3.828605614494376*^9}, {3.828789446589561*^9, 3.828789449005583*^9}, {
   3.8288141882697697`*^9, 3.828814193485182*^9}, {3.828858875623746*^9, 
   3.828858879278551*^9}, {3.829299396591107*^9, 3.829299401701507*^9}, {
   3.846669490378118*^9, 3.846669495250182*^9}},
 TextAlignment->Center,ExpressionUUID->"f73ed827-74ce-41d4-ba80-d2d2961bf093"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"4c7b30a4-9c47-4333-9e89-\
672a353d51bc"],

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[164]:=",ExpressionUUID->"940dcd45-7491-4a9a-8b0a-bf13293280ac"],

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.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.828469241787932*^9, 3.828471664239974*^9, 3.8284721155283823`*^9, 
   3.828530571609256*^9, 3.828533466311865*^9, 3.828605666606776*^9, 
   3.828611773790597*^9, 3.82861654226705*^9, 3.828690472516346*^9, 
   3.828693683718005*^9, 3.828696145626916*^9, 3.828697685976324*^9, 
   3.828789577672448*^9, 3.828799204299177*^9, 3.828803846851424*^9, 
   3.828806278746703*^9, 3.828814185433984*^9, 3.8288338117285624`*^9, 
   3.8288341327645693`*^9, 3.828858949744699*^9, 3.828859274913085*^9, 
   3.8288629564377623`*^9, 3.8288631705507107`*^9, 3.828864762563582*^9, 
   3.8288658476756067`*^9, 3.828867772240056*^9, 3.829299413938765*^9, 
   3.8293021022344007`*^9, 3.8293099812007*^9, 3.829310833854368*^9, 
   3.829311311489031*^9, 3.8293120684892673`*^9, 3.8293151357263403`*^9, 
   3.82931960558147*^9, 3.829390081799019*^9, 3.846635285745892*^9, 
   3.846669611763877*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"c77ab7ba-0402-4f3f-bd83-ea2b0685f92b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Paper and References", "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.828691206350932*^9, 
   3.828691209871169*^9}, {3.828703099384598*^9, 3.828703101328167*^9}, {
   3.829301169061263*^9, 3.8293011744851227`*^9}, {3.829310066800241*^9, 
   3.8293100704708567`*^9}},ExpressionUUID->"e95e4377-51fd-468f-aa4d-\
dddb0c316dda"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Simplified Mathematical Model for the Formation of Null Singularities \
Inside Black Holes by Ori and Gorbonos\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/0612136\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8293100150048923`*^9, 3.829310034414818*^9}, 
   3.829310064421151*^9, {3.846634997565154*^9, 3.846635013307523*^9}, {
   3.8466696387475567`*^9, 3.846669656898583*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"218fe0bc-f42c-48cd-b3ed-2ce92e585ae4"],

Cell[BoxData[
 TemplateBox[{
  "\"Simplified Mathematical Model for the Formation of Null Singularities \
Inside Black Holes by Ori and Gorbonos\"", 
   "https://arxiv.org/abs/gr-qc/0612136"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.82931063329873*^9, 3.829310775447266*^9, 3.829310833981859*^9, 
   3.829311311610034*^9, 3.829312068617078*^9, 3.829315135855575*^9, 
   3.829319605682448*^9, 3.829390081886033*^9, {3.846635000460825*^9, 
   3.8466350147355337`*^9}, 3.846635285782174*^9, 3.8466696118107443`*^9, 
   3.846669657169652*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"b536a608-e68e-4a25-9fd7-70801becaefb"],

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[166]:=",ExpressionUUID->"4d8b511e-83e7-4256-bf6d-94437788d71a"],

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.823423099506456*^9, 3.823432318651514*^9, 
   3.823435952067443*^9, 3.8234364867187634`*^9, 3.827953519196068*^9, 
   3.8279912531398478`*^9, 3.82799276981394*^9, 3.828435906604476*^9, 
   3.8284555319651403`*^9, 3.828459339728232*^9, 3.828469241841896*^9, 
   3.828471664397444*^9, 3.828472115564139*^9, 3.8285305717465467`*^9, 
   3.828533467524692*^9, 3.8286056666461067`*^9, 3.828611773832769*^9, 
   3.828616542410379*^9, 3.8286904727410803`*^9, 3.8286936838711443`*^9, 
   3.82869614578473*^9, 3.828697686909205*^9, 3.828789578026733*^9, 
   3.828799204647397*^9, 3.828803847272649*^9, 3.828806279147031*^9, 
   3.828814185773818*^9, 3.8288338121009283`*^9, 3.828834133036652*^9, 
   3.828858949902772*^9, 3.828859275450337*^9, 3.8288629570287933`*^9, 
   3.8288631709441347`*^9, 3.828864762809704*^9, 3.828865847932207*^9, 
   3.828867772487808*^9, 3.829299414247142*^9, 3.8293021025007973`*^9, 
   3.829309981539596*^9, 3.829310834001315*^9, 3.829311311639618*^9, 
   3.829312068636735*^9, 3.829315135888695*^9, 3.8293196057002707`*^9, 
   3.82939008191492*^9, 3.8466352857949963`*^9, 3.846669611824956*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"02a71c36-6396-4c40-8155-685dfaa8f5d7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.828806689104821*^9},ExpressionUUID->"14faca3f-16a2-4fce-b0d1-\
67fa25a28656"],

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.828806689105043*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"17a3c4c2-7fc8-4e02-9824-c47d3465bb27"],

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.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.828789578115527*^9, 3.828799204762722*^9, 
   3.8288038473503647`*^9, 3.828806280080041*^9, 3.828806689105138*^9, 
   3.8288141858769903`*^9, 3.828833812193956*^9, 3.828834133179943*^9, 
   3.828858950064399*^9, 3.828859275539399*^9, 3.828862957119445*^9, 
   3.828863171652452*^9, 3.828864762870928*^9, 3.828865847990973*^9, 
   3.828867772550511*^9, 3.829299414353211*^9, 3.829302102604865*^9, 
   3.829309981638513*^9, 3.829310834105756*^9, 3.829311311735836*^9, 
   3.829312068731707*^9, 3.82931513594729*^9, 3.829319605768126*^9, 
   3.8293900820415993`*^9, 3.846635285936921*^9, 3.846669611959429*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"2d158f17-6a3c-4d64-9b38-945c4f13f039"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"653 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "653 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.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.828789578115527*^9, 3.828799204762722*^9, 
   3.8288038473503647`*^9, 3.828806280080041*^9, 3.828806689105138*^9, 
   3.8288141858769903`*^9, 3.828833812193956*^9, 3.828834133179943*^9, 
   3.828858950064399*^9, 3.828859275539399*^9, 3.828862957119445*^9, 
   3.828863171652452*^9, 3.828864762870928*^9, 3.828865847990973*^9, 
   3.828867772550511*^9, 3.829299414353211*^9, 3.829302102604865*^9, 
   3.829309981638513*^9, 3.829310834105756*^9, 3.829311311735836*^9, 
   3.829312068731707*^9, 3.82931513594729*^9, 3.829319605768126*^9, 
   3.8293900820415993`*^9, 3.846635285936921*^9, 3.846669611965518*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"c2f53c17-bcca-450e-a52f-3707dbfd7eb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"VariationalMethods`\"\>",
    ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"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.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.828469241964273*^9, 3.828471664461882*^9, 
   3.828472115727516*^9, 3.8285305718886538`*^9, 3.82853346772556*^9, 
   3.8286056667871323`*^9, 3.828611773929594*^9, 3.828616542519825*^9, 
   3.828690472858699*^9, 3.828693683944024*^9, 3.82869614585636*^9, 
   3.828697687001523*^9, 3.8287895781234426`*^9, 3.828799204770609*^9, 
   3.828803847356839*^9, 3.828806280086404*^9, 3.828806689105328*^9, 
   3.828814185882605*^9, 3.828833812202352*^9, 3.828834133188683*^9, 
   3.828858950068405*^9, 3.828859275549589*^9, 3.828862957127707*^9, 
   3.828863171659013*^9, 3.8288647628760147`*^9, 3.82886584799824*^9, 
   3.8288677725571413`*^9, 3.829299414359625*^9, 3.829302102611664*^9, 
   3.8293099816447563`*^9, 3.8293108341160803`*^9, 3.829311311740574*^9, 
   3.829312068735985*^9, 3.8293151359518538`*^9, 3.829319605773438*^9, 
   3.8293900820467*^9, 3.8466352859451637`*^9, 3.846669611968392*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"2d791c1b-b559-4807-8d91-9e114265b6a3"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.828806689105419*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"58e8a461-4e77-4905-ab62-d3555e699f7a"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8287882026748323`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"11a822f7-3c8b-4ab7-916c-7487a26ea170"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"2053d907-d3e3-42b2-b67d-\
fe6b54471272"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", " ", "dy"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", "  ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.828606009159594*^9, 3.828606024422215*^9}, {3.828701721392323*^9, 
  3.828701725375505*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"be5eba0d-5a0d-4e50-8d97-e3db35aeaa8f"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.8279912532863617`*^9, 
   3.827992770095962*^9, 3.828435906737782*^9, 3.828455532145804*^9, 
   3.82845933986725*^9, 3.8284692420170603`*^9, 3.828471664529696*^9, 
   3.82847211575672*^9, 3.828530571960513*^9, 3.828533469228689*^9, 
   3.828605666816091*^9, 3.8286060250588503`*^9, 3.8286117739948387`*^9, 
   3.828616542589233*^9, 3.828690472957294*^9, 3.828693684019373*^9, 
   3.828694593299365*^9, 3.828696145930181*^9, 3.8286976871734247`*^9, 
   3.828701726000832*^9, 3.8287895781937857`*^9, 3.828799204839447*^9, 
   3.828803847429542*^9, 3.828806280308897*^9, 3.828814185992796*^9, 
   3.8288338122924232`*^9, 3.8288341333989553`*^9, 3.828858950097949*^9, 
   3.828859275654873*^9, 3.8288629572392063`*^9, 3.828863171871059*^9, 
   3.828864762961931*^9, 3.8288658488547573`*^9, 3.8288677726704407`*^9, 
   3.829299414475087*^9, 3.829302102706841*^9, 3.8293099817508583`*^9, 
   3.829310834216914*^9, 3.8293113118342047`*^9, 3.829312068825485*^9, 
   3.8293151360398397`*^9, 3.829319605871409*^9, 3.829390082097287*^9, 
   3.846635285988722*^9, 3.846669612022496*^9},
 CellLabel->
  "Out[6]//TableForm=",ExpressionUUID->"94bb6eac-fde4-4209-b28f-1b3d41b7c2ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"H", " ", "/:", " ", 
    RowBox[{"Dt", "[", "H", "]"}], " ", "=", " ", "0"}], " ", ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Treat", " ", "Hubble", " ", "Constant", " ", "as", " ", "a", " ", 
    "constant"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A0", " ", "/:", " ", 
    RowBox[{"Dt", "[", "A0", "]"}], " ", "=", " ", "0"}], " ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Equations", " ", "24"}], " ", "&"}], " ", "25"}], " ", "*)"}], 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82869475118476*^9, 3.828694761903348*^9}, 
   3.828695041652215*^9, {3.828697403799129*^9, 3.8286974141262493`*^9}, {
   3.8293007011361237`*^9, 3.829300716742711*^9}, {3.829301514586925*^9, 
   3.8293015451702003`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"d12bd3f6-10e4-476d-83cb-034ad35e639a"]
}, 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->"041c631d-49aa-403e-bdac-\
04264e58370e"],

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

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"e4b54225-542b-4580-be2f-0f1f755b57ba"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293150875013857`*^9, 
  3.8293151004696074`*^9}},ExpressionUUID->"46112c7e-4ba3-472e-aca9-\
13ce136982e8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", "2"}], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Sigma]"}], "]"}], " ", "du", " ", "dv"}], " ", "+", " ", 
   
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829312688448722*^9, 3.829312718366893*^9}, {
   3.829313750272643*^9, 3.8293137865197268`*^9}, 3.829315094073558*^9, {
   3.846669564611274*^9, 3.84666959903511*^9}, {3.846672835094769*^9, 
   3.846672847563818*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"a45b7e61-5c9a-41d1-be09-715a38bba670"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Sigma]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.829315136098878*^9, 3.829315306467032*^9, 
  3.829319605931438*^9, 3.8293900821513968`*^9, 3.846635286044512*^9, 
  3.846669612087949*^9, 3.846669720694622*^9, 3.846672849769319*^9},
 CellLabel->
  "Out[323]=",ExpressionUUID->"39c4c847-bf93-480f-921a-bdf09053c459"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
   " ", "]"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.846672928019245*^9, 3.846672930859108*^9}, 
   3.8466741591866903`*^9},
 CellLabel->
  "In[368]:=",ExpressionUUID->"ede6f715-2432-401d-a6d9-4720aa2b9f3c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Sigma]"}]]}], "0", "0"},
     {
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Sigma]"}]]}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox["r", "2"], "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.846672926256681*^9, 3.8466729311043453`*^9}, 
   3.8466741591884727`*^9},
 CellLabel->
  "Out[368]//MatrixForm=",ExpressionUUID->"ff5b2dce-6e6f-44c9-8547-\
e2dbce01211c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "->", " ", 
      RowBox[{"r", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Sigma]", "->", " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.846672899946534*^9, 3.84667291740298*^9}, 
   3.846674159189105*^9},
 CellLabel->
  "In[364]:=",ExpressionUUID->"b465065f-2f25-4d0b-9db3-852aabb38a1b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"r", "\[Rule]", 
       RowBox[{"r", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]},
     {
      RowBox[{"\[Sigma]", "\[Rule]", 
       RowBox[{"\[Sigma]", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.846672917664116*^9, 3.8466741591907387`*^9},
 CellLabel->
  "Out[366]//TableForm=",ExpressionUUID->"b2455e4d-4964-4e58-868b-\
3fe55a2afce0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
     " ", "]"}], "  ", "/.", " ", "eq1a"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829312719751947*^9, 3.829312746262765*^9}, 
   3.82931509407366*^9, {3.829315161145639*^9, 3.829315162983738*^9}, {
   3.846669699703031*^9, 3.846669705854195*^9}, {3.8466729368359327`*^9, 
   3.8466729382272587`*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"74cae112-bbf6-4d4c-a5d6-9692be3b22a7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0", "0"},
      {"0", "0", 
       SuperscriptBox[
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "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", 10004.},
 CellChangeTimes->{{3.829315136132999*^9, 3.829315163633297*^9}, 
   3.829315306467211*^9, 3.829319605955947*^9, 3.829390082183235*^9, 
   3.846635286079118*^9, 3.846669612125688*^9, {3.846669706509042*^9, 
   3.8466697222943077`*^9}, 3.846672854272916*^9, 3.846672938466411*^9},
 CellLabel->
  "Out[371]//TraditionalForm=",ExpressionUUID->"2ded41a9-1202-46fe-b6b1-\
752b69aa4b7f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", " ", "metric1", " ", "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293150434887877`*^9, 3.829315094073752*^9}},
 CellLabel->
  "In[372]:=",ExpressionUUID->"636f0b03-df11-4761-803a-73181dbb4f7e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0", "0"},
      {"0", "0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "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", 10004.},
 CellChangeTimes->{{3.8293151368366947`*^9, 3.829315165594783*^9}, 
   3.829315306467339*^9, 3.829319605982161*^9, 3.829390082212021*^9, 
   3.846635286115982*^9, 3.8466696122306013`*^9, 3.84666972409188*^9, 
   3.846672856658449*^9, 3.846672941053234*^9},
 CellLabel->
  "Out[374]//TraditionalForm=",ExpressionUUID->"07444e09-29e0-4262-b2bc-\
5659289e9a19"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", " ", ".", " ", "inverse1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293150665834703`*^9, 3.829315094073844*^9}},
 CellLabel->
  "In[330]:=",ExpressionUUID->"6c349f87-10b9-4674-9074-5c9ae4687876"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    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.82931513696773*^9, 3.829315168769466*^9, 
  3.829315306467473*^9, 3.8293196059940853`*^9, 3.829390082224286*^9, 
  3.846635286131103*^9, 3.846669612246907*^9, 3.846669726515854*^9, 
  3.846672858509956*^9},
 CellLabel->
  "Out[330]//MatrixForm=",ExpressionUUID->"c9e101a2-f73d-46d1-9145-\
8904d424faac"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", " ", ".", " ", "metric1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293150766551123`*^9, 3.829315094073978*^9}},
 CellLabel->
  "In[331]:=",ExpressionUUID->"7b4bac33-f7a3-44d5-8f87-e38a9bbbc138"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    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.829315137001094*^9, 3.8293151705281067`*^9, 
  3.8293153064676027`*^9, 3.829319606018754*^9, 3.829390082252296*^9, 
  3.846635286166767*^9, 3.8466696122838917`*^9, 3.846669728033209*^9, 
  3.846672860000189*^9},
 CellLabel->
  "Out[331]//MatrixForm=",ExpressionUUID->"f1ccf36a-637b-4859-8d59-\
08899ead0196"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Tensors Associated With Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, 3.829312850378148*^9, 3.829315326329612*^9, {
   3.8293195975544043`*^9, 
   3.829319598065454*^9}},ExpressionUUID->"2d654137-0cf0-46a3-899b-\
0fd235738920"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, 3.829312850378317*^9, 
   3.829315326329836*^9},
 CellLabel->
  "In[375]:=",ExpressionUUID->"7dbe918a-f5e8-47bb-9011-896b26be1b15"],

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.829312780168996*^9, 
   3.8293127865623302`*^9}, 3.829312850378406*^9, 3.829315326330243*^9},
 CellLabel->
  "In[376]:=",ExpressionUUID->"1d81cf88-9194-4d93-b90c-46a7e6dbacaa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "2.01", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<DoubleNull\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(dn\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.8293127892312326`*^9, 3.829312812286583*^9}, 
   3.829312850378495*^9, {3.829315176481666*^9, 3.829315189911882*^9}, 
   3.8293153263304033`*^9, {3.846670262208056*^9, 3.846670268319096*^9}, {
   3.846670317071411*^9, 3.846670318335127*^9}},
 CellLabel->
  "In[378]:=",ExpressionUUID->"4d0d3bf1-07b4-4fb4-b3d5-d486f7574349"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.744344`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.829315179563561*^9, 3.829315227197109*^9, 
  3.829315326330525*^9, 3.829319610404661*^9, 3.829390083903352*^9, 
  3.8466352877145157`*^9, 3.846670275364891*^9, 3.8466703141342907`*^9, 
  3.846672877184452*^9, 3.846672952487791*^9},
 CellLabel->
  "Out[378]=",ExpressionUUID->"9c7d8f64-29d4-4035-bb2a-b230e55590d3"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.829312850378681*^9, 3.829315326330624*^9},
 CellLabel->
  "In[379]:=",ExpressionUUID->"cf1372ea-b5f0-4fb3-aa63-afbac368089a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "dn"], "\[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.820932775365534*^9, 3.820933447849365*^9, 
  3.8209374922039557`*^9, 3.821110229351309*^9, 3.824381620902643*^9, 
  3.824381850166397*^9, 3.824382314366207*^9, 3.8245118421618633`*^9, 
  3.824514167829878*^9, 3.8278786350256853`*^9, 3.8278814012293863`*^9, 
  3.8279088611347723`*^9, 3.827912744356597*^9, 3.829312850378758*^9, 
  3.829315137099065*^9, 3.8293151971305304`*^9, 3.82931522728694*^9, 
  3.829315326330721*^9, 3.8293196105105677`*^9, 3.8293900839628477`*^9, 
  3.8466352877771893`*^9, 3.846670275449213*^9, 3.846670314193639*^9, 
  3.8466728772385817`*^9, 3.846672952537038*^9},
 CellLabel->
  "Out[379]=",ExpressionUUID->"852bb499-eead-4fcf-8c4e-88d1446906ed"],

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.829312850378826*^9, 
   3.829315326330858*^9},
 CellLabel->
  "In[380]:=",ExpressionUUID->"ac5a73b5-7880-4427-a0c1-6c1a2c54aad4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "dn"], "\[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.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.829312850378901*^9, 3.829315137113389*^9, 3.829315197185212*^9, 
  3.8293152273054028`*^9, 3.829315326330956*^9, 3.829319610535121*^9, 
  3.829390083987492*^9, 3.8466352877939157`*^9, 3.846670275464162*^9, 
  3.846670314209818*^9, 3.846672877254468*^9, 3.846672952553356*^9},
 CellLabel->
  "Out[380]=",ExpressionUUID->"c015e172-f06c-4e91-8316-f71e281ddd98"],

Cell[BoxData["\<\"DoubleNull\"\>"], "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.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.829312850378901*^9, 3.829315137113389*^9, 3.829315197185212*^9, 
  3.8293152273054028`*^9, 3.829315326330956*^9, 3.829319610535121*^9, 
  3.829390083987492*^9, 3.8466352877939157`*^9, 3.846670275464162*^9, 
  3.846670314209818*^9, 3.846672877254468*^9, 3.846672952559168*^9},
 CellLabel->
  "Out[381]=",ExpressionUUID->"346cc637-99f2-40cd-8c50-543f7519d990"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0", "0"},
      {"0", "0", 
       SuperscriptBox[
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.829312850378901*^9, 3.829315137113389*^9, 3.829315197185212*^9, 
  3.8293152273054028`*^9, 3.829315326330956*^9, 3.829319610535121*^9, 
  3.829390083987492*^9, 3.8466352877939157`*^9, 3.846670275464162*^9, 
  3.846670314209818*^9, 3.846672877254468*^9, 3.846672952563649*^9},
 CellLabel->
  "Out[382]//TraditionalForm=",ExpressionUUID->"f1d8ff5c-8669-4174-af18-\
7bb83df6da4a"],

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.8293128503791027`*^9, 
   3.829315326331264*^9},
 CellLabel->
  "In[383]:=",ExpressionUUID->"435ec455-c1da-4595-8941-f82c526f960a"],

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.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.829312850379175*^9, 
   3.829315137168219*^9, 3.8293152273638697`*^9, 3.829315326331352*^9, 
   3.829319610605789*^9, 3.829390084002479*^9, 3.846635287831725*^9, 
   3.846670275497841*^9, 3.846670314259164*^9, 3.8466728772990227`*^9, 
   3.846672952593574*^9},
 CellLabel->
  "Out[383]=",ExpressionUUID->"99a6a5f5-60d3-4ad8-8e1b-41cc906568ed"],

Cell[BoxData["\<\"ChristoffelSymbolDoubleNull\"\>"], "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.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.829312850379175*^9, 
   3.829315137168219*^9, 3.8293152273638697`*^9, 3.829315326331352*^9, 
   3.829319610605789*^9, 3.829390084002479*^9, 3.846635287831725*^9, 
   3.846670275497841*^9, 3.846670314259164*^9, 3.8466728772990227`*^9, 
   3.846672952600762*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"6cf33d21-dfb5-409e-acca-cd0f09189ae9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              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[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              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[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              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[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              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"},
           {
            RowBox[{
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              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[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"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[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.829312850379175*^9, 
   3.829315137168219*^9, 3.8293152273638697`*^9, 3.829315326331352*^9, 
   3.829319610605789*^9, 3.829390084002479*^9, 3.846635287831725*^9, 
   3.846670275497841*^9, 3.846670314259164*^9, 3.8466728772990227`*^9, 
   3.8466729526087523`*^9},
 CellLabel->
  "Out[385]//TraditionalForm=",ExpressionUUID->"b29a5109-ea5e-46d8-b319-\
3d10bc5ecf5c"],

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.8293128503793707`*^9, 
   3.829315326331621*^9},
 CellLabel->
  "In[386]:=",ExpressionUUID->"1cdf0e82-1f5a-48cc-9114-0380dafe01a8"],

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.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.829312850379437*^9, 3.82931513720238*^9, 3.8293153263317137`*^9, 
  3.829319610705536*^9, 3.829390084077434*^9, 3.846635287885886*^9, 
  3.846670275532877*^9, 3.846670314290123*^9, 3.846672877324974*^9, 
  3.846672952625093*^9},
 CellLabel->
  "Out[386]=",ExpressionUUID->"ac59d6b8-e59d-4710-b2b9-57ed618e4ebe"],

Cell[BoxData["\<\"RiemannTensorDoubleNull\"\>"], "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.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.829312850379437*^9, 3.82931513720238*^9, 3.8293153263317137`*^9, 
  3.829319610705536*^9, 3.829390084077434*^9, 3.846635287885886*^9, 
  3.846670275532877*^9, 3.846670314290123*^9, 3.846672877324974*^9, 
  3.84667295263136*^9},
 CellLabel->
  "Out[387]=",ExpressionUUID->"1eb3db0a-1179-4c54-8dc7-672ef0f7c2d2"],

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[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0", "0"},
          {
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "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[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "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", 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], "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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], "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[{"(", 
             RowBox[{
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0"},
          {
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], "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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0"},
          {"0", "0", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], "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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], ")"}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.829312850379437*^9, 3.82931513720238*^9, 3.8293153263317137`*^9, 
  3.829319610705536*^9, 3.829390084077434*^9, 3.846635287885886*^9, 
  3.846670275532877*^9, 3.846670314290123*^9, 3.846672877324974*^9, 
  3.8466729528397627`*^9},
 CellLabel->
  "Out[388]//TraditionalForm=",ExpressionUUID->"7bc5fe12-fded-419b-a5f1-\
6e6e3a011e9b"],

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.829312850379635*^9, 
   3.829315326332115*^9},
 CellLabel->
  "In[389]:=",ExpressionUUID->"e06b1190-ff8e-4a33-834a-6f4d864b365e"],

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.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.8293128503796997`*^9, 3.829315137255097*^9, 3.829315326332218*^9, 
  3.829319610989912*^9, 3.8293900842363253`*^9, 3.846635288029807*^9, 
  3.846670275795271*^9, 3.846670314547595*^9, 3.846672877391903*^9, 
  3.8466729528627234`*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"0618300c-6e9d-4751-a20d-69d0f05851f0"],

Cell[BoxData["\<\"RicciTensorDoubleNull\"\>"], "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.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.8293128503796997`*^9, 3.829315137255097*^9, 3.829315326332218*^9, 
  3.829319610989912*^9, 3.8293900842363253`*^9, 3.846635288029807*^9, 
  3.846670275795271*^9, 3.846670314547595*^9, 3.846672877391903*^9, 
  3.846672952869206*^9},
 CellLabel->
  "Out[390]=",ExpressionUUID->"296e2e98-8dd6-4f61-8359-3180545dc50f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None]}]}], 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]}
     },
     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.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.8293128503796997`*^9, 3.829315137255097*^9, 3.829315326332218*^9, 
  3.829319610989912*^9, 3.8293900842363253`*^9, 3.846635288029807*^9, 
  3.846670275795271*^9, 3.846670314547595*^9, 3.846672877391903*^9, 
  3.846672952905657*^9},
 CellLabel->
  "Out[391]//TraditionalForm=",ExpressionUUID->"5546727e-31ef-4612-a7e1-\
954aec9601eb"],

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.829312850379902*^9, 
   3.8293153263326397`*^9},
 CellLabel->
  "In[392]:=",ExpressionUUID->"8dba777a-2e2b-44fc-8641-b5f9a6f1b052"],

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.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8293128503799667`*^9, 3.82931513729604*^9, 3.829315326332732*^9, 
  3.829319611044052*^9, 3.829390084250854*^9, 3.846635288065673*^9, 
  3.846670275888916*^9, 3.846670314608564*^9, 3.846672877433956*^9, 
  3.846672952920883*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"a1bfbaa6-f385-4cad-b188-76a7397de52e"],

Cell[BoxData["\<\"RicciScalarDoubleNull\"\>"], "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.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8293128503799667`*^9, 3.82931513729604*^9, 3.829315326332732*^9, 
  3.829319611044052*^9, 3.829390084250854*^9, 3.846635288065673*^9, 
  3.846670275888916*^9, 3.846670314608564*^9, 3.846672877433956*^9, 
  3.846672952927209*^9},
 CellLabel->
  "Out[393]=",ExpressionUUID->"b0ae6565-701f-48c9-b959-d6072aca4b98"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Sigma]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], "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.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.8293128503799667`*^9, 3.82931513729604*^9, 3.829315326332732*^9, 
  3.829319611044052*^9, 3.829390084250854*^9, 3.846635288065673*^9, 
  3.846670275888916*^9, 3.846670314608564*^9, 3.846672877433956*^9, 
  3.846672952931922*^9},
 CellLabel->
  "Out[394]//TraditionalForm=",ExpressionUUID->"9ab2a2d2-020d-4e87-a4f6-\
cb0020fd953c"],

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.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, {
   3.829312834111224*^9, 3.829312850380171*^9}, 3.8293153263331537`*^9},
 CellLabel->
  "In[395]:=",ExpressionUUID->"6ae533f8-af96-4c33-a34a-c61b8bf9e7a7"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.829315137332974*^9, 3.82931522759663*^9, 
  3.829315326333246*^9, 3.829319611072382*^9, 3.829390084276555*^9, 
  3.84663528808934*^9, 3.846670275950832*^9, 3.8466703146596937`*^9, 
  3.846672877457856*^9, 3.846672952964816*^9},
 CellLabel->
  "Out[395]=",ExpressionUUID->"c360489c-bf45-44c3-b1cb-b6ee0b9c3f37"],

Cell[BoxData["\<\"KretschmannScalarDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.829315137332974*^9, 3.82931522759663*^9, 
  3.829315326333246*^9, 3.829319611072382*^9, 3.829390084276555*^9, 
  3.84663528808934*^9, 3.846670275950832*^9, 3.8466703146596937`*^9, 
  3.846672877457856*^9, 3.846672952971897*^9},
 CellLabel->
  "Out[396]=",ExpressionUUID->"d3201815-c3a5-4fb2-96fc-5bb5d4347323"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None], ")"}], "2"], "+", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["v", "2"]}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Sigma]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], "4"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.829315137332974*^9, 3.82931522759663*^9, 
  3.829315326333246*^9, 3.829319611072382*^9, 3.829390084276555*^9, 
  3.84663528808934*^9, 3.846670275950832*^9, 3.8466703146596937`*^9, 
  3.846672877457856*^9, 3.846672953003086*^9},
 CellLabel->
  "Out[397]//TraditionalForm=",ExpressionUUID->"d88bcbd7-d09d-432c-b4d3-\
83b89b65a730"],

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.8293128503802357`*^9, 3.829315326333673*^9},
 CellLabel->
  "In[398]:=",ExpressionUUID->"27b02e0a-bef9-4b3a-b4bf-506c12425869"],

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.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8293128503803043`*^9, 
   3.82931513738923*^9, 3.829315326333846*^9, 3.829319611125113*^9, 
   3.829390084289918*^9, 3.84663528812591*^9, 3.846670276048483*^9, 
   3.84667031472575*^9, 3.846672877498918*^9, 3.846672953019245*^9},
 CellLabel->
  "Out[398]=",ExpressionUUID->"31f10117-ea86-4f5c-886d-7096f2efa9e0"],

Cell[BoxData["\<\"EinsteinTensorDoubleNull\"\>"], "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.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8293128503803043`*^9, 
   3.82931513738923*^9, 3.829315326333846*^9, 3.829319611125113*^9, 
   3.829390084289918*^9, 3.84663528812591*^9, 3.846670276048483*^9, 
   3.84667031472575*^9, 3.846672877498918*^9, 3.846672953025875*^9},
 CellLabel->
  "Out[399]=",ExpressionUUID->"93a45b58-070f-47be-a009-8690337aebb7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]], 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}]}
     },
     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.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.8293128503803043`*^9, 
   3.82931513738923*^9, 3.829315326333846*^9, 3.829319611125113*^9, 
   3.829390084289918*^9, 3.84663528812591*^9, 3.846670276048483*^9, 
   3.84667031472575*^9, 3.846672877498918*^9, 3.8466729530668287`*^9},
 CellLabel->
  "Out[400]//TraditionalForm=",ExpressionUUID->"10f3c6c0-7bf8-4101-82dc-\
adba5062a008"],

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.829312850380493*^9, 3.829315326334337*^9},
 CellLabel->
  "In[401]:=",ExpressionUUID->"695de17d-213e-4b1d-ad44-e1a7b3efe308"],

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.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.829312850380561*^9, 
   3.829315138630117*^9, 3.829315326334437*^9, 3.8293196111725492`*^9, 
   3.829390084318289*^9, 3.846635288150865*^9, 3.846670276131625*^9, 
   3.846670314800061*^9, 3.84667287752243*^9, 3.846672953081381*^9},
 CellLabel->
  "Out[401]=",ExpressionUUID->"91cf2433-50e1-4159-b754-3b52d17ce0f2"],

Cell[BoxData["\<\"WeylTensorDoubleNull\"\>"], "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.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.829312850380561*^9, 
   3.829315138630117*^9, 3.829315326334437*^9, 3.8293196111725492`*^9, 
   3.829390084318289*^9, 3.846635288150865*^9, 3.846670276131625*^9, 
   3.846670314800061*^9, 3.84667287752243*^9, 3.846672953088031*^9},
 CellLabel->
  "Out[402]=",ExpressionUUID->"5f99b059-eab3-4159-8d5a-ecee5c76a922"],

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[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "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", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "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", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Sigma]", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "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.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.829312850380561*^9, 
   3.829315138630117*^9, 3.829315326334437*^9, 3.8293196111725492`*^9, 
   3.829390084318289*^9, 3.846635288150865*^9, 3.846670276131625*^9, 
   3.846670314800061*^9, 3.84667287752243*^9, 3.84667295341663*^9},
 CellLabel->
  "Out[403]//TraditionalForm=",ExpressionUUID->"89d57961-bf13-413f-bccc-\
202a6e79c350"],

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.827662867877706*^9, 3.827662872700079*^9}, {
   3.8293128280237293`*^9, 3.829312850380747*^9}, 3.829315326334807*^9},
 CellLabel->
  "In[404]:=",ExpressionUUID->"8b55eea4-c4bd-4ee6-947c-70be717c6617"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8293151387598333`*^9, 3.829315227761774*^9, 
  3.8293153263349037`*^9, 3.829319611349341*^9, 3.8293900844117727`*^9, 
  3.846635288293413*^9, 3.8466702767228193`*^9, 3.8466703153738317`*^9, 
  3.846672877607851*^9, 3.846672953443985*^9},
 CellLabel->
  "Out[404]=",ExpressionUUID->"28179b78-fade-4249-9238-5a3fe7f79741"],

Cell[BoxData["\<\"CottonTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8293151387598333`*^9, 3.829315227761774*^9, 
  3.8293153263349037`*^9, 3.829319611349341*^9, 3.8293900844117727`*^9, 
  3.846635288293413*^9, 3.8466702767228193`*^9, 3.8466703153738317`*^9, 
  3.846672877607851*^9, 3.846672953450531*^9},
 CellLabel->
  "Out[405]=",ExpressionUUID->"e322eebc-c620-4e5d-96e5-029a34691c7d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]},
           {"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[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}]]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}]]}]},
           {"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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]},
           {"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"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]},
           {"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[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]},
           {"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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]}
          },
          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[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}]},
           {"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.8293151387598333`*^9, 3.829315227761774*^9, 
  3.8293153263349037`*^9, 3.829319611349341*^9, 3.8293900844117727`*^9, 
  3.846635288293413*^9, 3.8466702767228193`*^9, 3.8466703153738317`*^9, 
  3.846672877607851*^9, 3.8466729540249662`*^9},
 CellLabel->
  "Out[406]//TraditionalForm=",ExpressionUUID->"da6393a7-0efe-41a6-a7e3-\
e4969286e833"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Derivation of Vacuum Field Equations For Metric 1.  These Look Correct so \
far. \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8254369680753117`*^9, 3.825436990178878*^9}, 
   3.829314887873857*^9, {3.846629127896845*^9, 3.846629139832855*^9}, {
   3.8466319567939262`*^9, 3.846631982714738*^9}, {3.846633170866317*^9, 
   3.8466331750027122`*^9}, {3.8466729895091763`*^9, 3.846672991332443*^9}, 
   3.846673393903866*^9},ExpressionUUID->"7f4c9a53-30cd-403f-8ea4-\
48ad5a1ccac9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.825436660198161*^9, 3.82543668318858*^9}, 
   3.825436978630314*^9, {3.8293142352845707`*^9, 3.829314258483284*^9}, {
   3.829314288908712*^9, 3.8293142905334187`*^9}, 3.829314887874201*^9, 
   3.846631956794463*^9, 3.846673393904375*^9},
 CellLabel->
  "In[407]:=",ExpressionUUID->"5cc8d6b9-d10d-4e01-945a-92f3a51e56ca"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None]}]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}]}
     },
     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.82931426935769*^9, 3.829314291971512*^9}, 
   3.829314887874308*^9, 3.846628641940956*^9, 3.846631956794773*^9, 
   3.84667300901159*^9, 3.8466733939046383`*^9},
 CellLabel->
  "Out[409]//TraditionalForm=",ExpressionUUID->"77a0c38a-537c-4812-aacc-\
96fcd88cc864"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8219578232615843`*^9, 3.821957851612896*^9}, {
   3.825436608887151*^9, 3.825436652548337*^9}, 3.825436978630838*^9, {
   3.829314243254552*^9, 3.829314283877627*^9}, 3.829314887874514*^9, 
   3.846631956795163*^9, 3.8466733939049892`*^9},
 CellLabel->
  "In[410]:=",ExpressionUUID->"6c1751da-a599-497f-90ca-9b3b52eb2256"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}]}
     },
     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.821957852273239*^9, 3.82543651685763*^9, {3.825436648841983*^9, 
   3.825436653104843*^9}, 3.825436978631048*^9, 3.8279997727798567`*^9, 
   3.828001876284539*^9, 3.829314206945223*^9, {3.829314275854516*^9, 
   3.8293142945951357`*^9}, 3.829314887874694*^9, 3.84662864204842*^9, 
   3.846631956795433*^9, 3.846673009108355*^9, 3.846673393905222*^9},
 CellLabel->
  "Out[412]//TraditionalForm=",ExpressionUUID->"52a85296-b963-4963-8336-\
82d694634ab0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3Vacuum", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3Vacuum", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "==", "0"}], " ", ",", 
        RowBox[{
         SuperscriptBox["r", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "  ", "//", " ", "Expand"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3Vacuum", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.846673155146632*^9, 3.846673222938326*^9}, {
   3.846673280153754*^9, 3.846673293056911*^9}, 3.846673393905445*^9},
 CellLabel->
  "In[446]:=",ExpressionUUID->"e571c379-e973-4fd8-924b-14f8804a99a9"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Sigma]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}]], 
      RowBox[{"2", " ", 
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.846673155909523*^9, 3.8466732231768923`*^9}, 
   3.846673293299328*^9, 3.84667339390569*^9},
 CellLabel->
  "Out[448]//TraditionalForm=",ExpressionUUID->"f549db93-6977-404c-a554-\
9549c8093fa7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4Vacuum", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4Vacuum", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"nonzeroEinstein", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "==", "0"}], " ", ",", "  ", 
           RowBox[{
            SuperscriptBox["\[Sigma]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", ")"}], " ", "/.", " ", 
      "eq3Vacuum"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4Vacuum", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.846673239842437*^9, 3.846673262450931*^9}, {
   3.846673302274644*^9, 3.846673343549591*^9}, 3.8466733939059057`*^9},
 CellLabel->
  "In[452]:=",ExpressionUUID->"2b5dafec-652f-472b-a71d-cba6b269bb07"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Sigma]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     SuperscriptBox[
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}], TraditionalForm]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8466732413495293`*^9, 3.846673262667716*^9}, {
   3.846673310124091*^9, 3.846673343975127*^9}, 3.846673393906137*^9},
 CellLabel->
  "Out[454]//TraditionalForm=",ExpressionUUID->"6d61d3b7-e7fc-4528-a3c9-\
1fd11b885f6f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5Vacuum", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5Vacuum", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "3", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        RowBox[{
         SuperscriptBox["r", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5Vacuum", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.846631891363564*^9, 3.846631956800758*^9}, {
  3.8466730404713573`*^9, 3.846673045373811*^9}, {3.8466733750340223`*^9, 
  3.846673393906355*^9}},ExpressionUUID->"dbf7c63a-0cd3-4da4-b2d3-\
7cc7aa2dd91f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["v", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "v"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Sigma]", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "v"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.84663191332979*^9, {3.8466319456946087`*^9, 3.8466319568016787`*^9}, 
   3.846673009278347*^9, 3.8466730461474733`*^9, 3.846673393906599*^9},
 CellLabel->
  "Out[430]//TraditionalForm=",ExpressionUUID->"584c9d90-9729-4fba-8009-\
83a90e7b5db5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6Vacuum", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6Vacuum", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        RowBox[{
         SuperscriptBox["r", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6Vacuum", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8466318023393373`*^9, 3.84663187415921*^9}, {
  3.846631925405756*^9, 3.846631956799493*^9}, {3.846673051919091*^9, 
  3.846673059150004*^9}, {3.846673382210327*^9, 
  3.846673393906933*^9}},ExpressionUUID->"20be06b4-664e-45cc-a772-\
a02b538b03eb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "u"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Sigma]", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "u"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.846631804586252*^9, 3.846631839479109*^9}, 
   3.846631875373519*^9, {3.846631938954877*^9, 3.846631956800376*^9}, 
   3.846673009260192*^9, 3.846673059791703*^9, 3.846673393907177*^9},
 CellLabel->
  "Out[433]//TraditionalForm=",ExpressionUUID->"6c224280-d028-4f19-85e3-\
5bb7a8eb3075"]
}, Closed]],

Cell[CellGroupData[{

Cell["Klein Gordon Equation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314175981791*^9, 3.829314187414817*^9}, 
   3.829314858825903*^9},ExpressionUUID->"6f7827b0-3c45-438e-afc4-\
3acde982f914"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"phi", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[CapitalPhi]\>\""}], "}"}], " ", 
    ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"\[CapitalPhi]", "[", 
     RowBox[{"u", ",", "v"}], "]"}]}], " ", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8293131000456657`*^9, 3.829313132755116*^9}, 
   3.8293141813417463`*^9, 3.82931485882617*^9},
 CellLabel->
  "In[455]:=",ExpressionUUID->"d825310c-3dbe-43f5-a8f9-16185aeff66c"],

Cell[BoxData[
 TagBox["\<\"\[CapitalPhi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314207093236*^9, 3.829314858826318*^9, 
  3.8466286422488194`*^9, 3.846629447654456*^9, 3.846673419301173*^9},
 CellLabel->
  "Out[456]=",ExpressionUUID->"311806b4-adbb-4b58-ad3d-35acecff7eb9"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314181341867*^9, 3.8293148588264627`*^9},
 CellLabel->
  "In[457]:=",ExpressionUUID->"7fc5204c-06dd-4ee1-a707-d2e1ef127507"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.020552`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "dn"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314207139422*^9, 3.8293148588266*^9, 
  3.8466286422808867`*^9, 3.8466294492200413`*^9, 3.846673419367695*^9},
 CellLabel->
  "Out[457]=",ExpressionUUID->"73de4fd1-f9d8-4abd-b5d5-f327d75286ce"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"TensorValues", "[", 
              RowBox[{"MergeTensors", "[", "waveScalar1", "]"}], " ", "]"}], 
             " ", "\[Equal]", "0"}], " ", ",", "  ", 
            RowBox[{
             SuperscriptBox["\[CapitalPhi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], " ", ")"}], " ", "//", 
      " ", "Expand"}], " ", "//", " ", "Apart"}], " ", "//", " ", 
    "Expand"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314405102365*^9, 3.8293145328412247`*^9}, 
   3.829314858826792*^9, {3.846673437730338*^9, 3.846673442176903*^9}},
 CellLabel->
  "In[461]:=",ExpressionUUID->"4a740838-7223-4aaf-bb93-dff1955e737e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[CapitalPhi]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314410466773*^9, 3.8293145333594513`*^9}, 
   3.829314858827038*^9, 3.8466286423970613`*^9, 3.8466294516564198`*^9, {
   3.846673419482547*^9, 3.846673443716161*^9}},
 CellLabel->
  "Out[463]//TraditionalForm=",ExpressionUUID->"a1242741-1ec6-4a51-89e0-\
8eb9565aa435"]
}, Closed]],

Cell[CellGroupData[{

Cell["Scalar Field Stress Energy Tensor ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829314736147303*^9, 3.8293147582183743`*^9}, 
   3.8466324612374163`*^9},ExpressionUUID->"241dcba4-f626-4bcb-a0e1-\
ad63e84033f1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Mu]"}]}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MergeTensors", "[", 
  RowBox[{
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Mu]"}]}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", 
     RowBox[{
      RowBox[{"CovariantD", "[", 
       RowBox[{"phi", ",", 
        RowBox[{"-", "\[Mu]"}]}], "]"}], 
      RowBox[{"CovariantD", "[", 
       RowBox[{"phi", ",", 
        RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], "]"}], " ", "//", " ", 
   "MatrixForm"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846632187778706*^9, 3.846632247437133*^9}, 
   3.846632461237802*^9},
 CellLabel->
  "In[464]:=",ExpressionUUID->"73b7f1ac-bfc9-4ea7-98d3-d83fee2a9874"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Mu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Nu]", ""],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8466321961429977`*^9, 3.846632247661995*^9}, {
   3.846632461238268*^9, 3.8466324660344467`*^9}, 3.846673483072933*^9},
 CellLabel->
  "Out[464]=",ExpressionUUID->"9102852a-976e-4bd9-aaf5-309c3e001f76"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[CenterDot]", 
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "\[Mu]\[Nu]", 
   ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8466321961429977`*^9, 3.846632247661995*^9}, {
   3.846632461238268*^9, 3.8466324660344467`*^9}, 3.846673483112727*^9},
 CellLabel->
  "Out[465]=",ExpressionUUID->"e3bbea89-a835-41e8-a4c2-b4c20cc9f787"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], 
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"], "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8466321961429977`*^9, 3.846632247661995*^9}, {
   3.846632461238268*^9, 3.8466324660344467`*^9}, 3.846673483120406*^9},
 CellLabel->
  "Out[466]//TraditionalForm=",ExpressionUUID->"c18d77e1-5046-420b-87ba-\
75d470d459d4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{
    RowBox[{"-", "\[Mu]"}], ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}], 
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Alpha]"}]}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Beta]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MergeTensors", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], 
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}]}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{
        RowBox[{"-", "\[Mu]"}], ",", 
        RowBox[{"-", "\[Nu]"}]}], "]"}], 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
      RowBox[{"CovariantD", "[", 
       RowBox[{"phi", ",", 
        RowBox[{"-", "\[Alpha]"}]}], "]"}], 
      RowBox[{"CovariantD", "[", 
       RowBox[{"phi", ",", 
        RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "]"}], " ", "//", " ", 
   "MatrixForm"}], "  ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846632268596939*^9, 3.846632339077127*^9}, 
   3.846632461239307*^9},
 CellLabel->
  "In[467]:=",ExpressionUUID->"be94fc25-335c-4d26-b008-4f92ff944f6c"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox[
    SuperscriptBox["g", "dn"], "", "\[Alpha]\[Beta]"],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    SuperscriptBox["g", "dn"], "\[Mu]\[Nu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Alpha]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Beta]", ""],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846632274517921*^9, 3.846632339347344*^9}, {
   3.846632461239627*^9, 3.846632466157213*^9}, 3.84667348318676*^9},
 CellLabel->
  "Out[467]=",ExpressionUUID->"9a80b2f8-6b34-44df-ba87-06020971f9f8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["g", "dn"], "\[CenterDot]", 
         SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
     "\[CenterDot]", 
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "\[Mu]\[Nu]", 
   ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846632274517921*^9, 3.846632339347344*^9}, {
   3.846632461239627*^9, 3.846632466157213*^9}, 3.8466734832602787`*^9},
 CellLabel->
  "Out[468]=",ExpressionUUID->"ed35f78b-83e7-4e4c-9d7f-0f57de1ab520"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], "0", "0"},
      {
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], "0", "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}]}
     },
     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", 10002.},
 CellChangeTimes->{{3.846632274517921*^9, 3.846632339347344*^9}, {
   3.846632461239627*^9, 3.846632466157213*^9}, 3.846673483360135*^9},
 CellLabel->
  "Out[469]//TraditionalForm=",ExpressionUUID->"835a89d8-edce-475d-bce3-\
f9b845765243"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Ts", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ts", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", "\[Pi]"}]], ")"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"MergeTensors", "[", 
        RowBox[{
         RowBox[{"CovariantD", "[", 
          RowBox[{"phi", ",", 
           RowBox[{"-", "\[Mu]"}]}], "]"}], 
         RowBox[{"CovariantD", "[", 
          RowBox[{"phi", ",", 
           RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], "]"}], "  ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        FractionBox["1", "2"], ")"}], 
       RowBox[{"(", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "[", 
            RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
           RowBox[{"CovariantD", "[", 
            RowBox[{"phi", ",", 
             RowBox[{"-", "\[Alpha]"}]}], "]"}], 
           RowBox[{"CovariantD", "[", 
            RowBox[{"phi", ",", 
             RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "]"}], ")"}]}]}], 
     ")"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ts", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829313143778439*^9, 3.829313215757373*^9}, 
   3.829314181341981*^9, {3.8293143551481123`*^9, 3.829314369826817*^9}, {
   3.8293146393332653`*^9, 3.82931468252326*^9}, {3.829314742326523*^9, 
   3.829314767178834*^9}, {3.8466295353226957`*^9, 3.846629545513722*^9}, {
   3.846629651991325*^9, 3.8466296653421926`*^9}, {3.8466324208462152`*^9, 
   3.846632422813562*^9}, 3.8466324612405787`*^9},
 CellLabel->
  "In[470]:=",ExpressionUUID->"e2419954-5c5b-4539-aa75-3697d2110e7d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"], 
        RowBox[{"4", " ", "\[Pi]"}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], ")"}], "2"], 
        RowBox[{"4", " ", "\[Pi]"}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        RowBox[{"4", " ", "\[Pi]"}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        RowBox[{"4", " ", "\[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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.829314207160973*^9, 3.829314370286921*^9, {3.829314665784196*^9, 
   3.8293146829700336`*^9}, {3.829314742326665*^9, 3.829314767743691*^9}, 
   3.846628642504694*^9, 3.846629457741424*^9, 3.846629546461246*^9, {
   3.8466296565534143`*^9, 3.846629665989387*^9}, 3.8466324234762783`*^9, {
   3.8466324612408333`*^9, 3.8466324664265137`*^9}, 3.846673483469417*^9},
 CellLabel->
  "Out[472]//TraditionalForm=",ExpressionUUID->"b00ecfca-fb75-4301-91b2-\
7fd201277d13"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalT]s", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalT]s", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalT]s\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "Ts", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8293147115636272`*^9, 3.829314742326844*^9}, 
   3.84663246124115*^9},
 CellLabel->
  "In[473]:=",ExpressionUUID->"41c0ad5a-d302-46dc-961b-bcb595b30ffe"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalT]s", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829314721829472*^9, 3.829314771202056*^9}, 
   3.8466286425194073`*^9, 3.846629461206113*^9, 3.8466295503772573`*^9, 
   3.846629669332313*^9, {3.846632461241448*^9, 3.84663246644144*^9}, 
   3.846673483484694*^9},
 CellLabel->
  "Out[474]=",ExpressionUUID->"41bd54e6-58b3-4119-9e56-a566a3945999"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Divergence", " ", "of", " ", "Stress", " ", "Energy", " ", "Tensor", " ", 
    "Should", " ", "Be", " ", "Zero"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "divergenceSETscalar", "]"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"divergenceSETscalar", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"MergeTensors", "[", 
       RowBox[{"CovariantD", "[", " ", 
        RowBox[{
         RowBox[{"\[ScriptCapitalT]s", "[", 
          RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "]"}]}], "  ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divergenceSETscalar", " ", "//", " ", "MatrixForm"}], " ", "//", 
    " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829314773469776*^9, 3.829314847204603*^9}, {
   3.846628835810802*^9, 3.846628870596855*^9}, {3.846628914089951*^9, 
   3.8466289155981293`*^9}, {3.846630176760909*^9, 3.846630202304263*^9}, 
   3.846632461241795*^9},
 CellLabel->
  "In[475]:=",ExpressionUUID->"827b9252-60bc-49bf-b5c1-b15ca2149455"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], 
          RowBox[{"2", " ", "\[Pi]"}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], ")"}], "2"]}], 
          RowBox[{"2", " ", "\[Pi]", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], 
          RowBox[{"2", " ", "\[Pi]", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}]},
       {
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], 
          RowBox[{"2", " ", "\[Pi]"}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}], 
          RowBox[{"2", " ", "\[Pi]", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], 
          RowBox[{"2", " ", "\[Pi]", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}]},
       {"0"},
       {"0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     Column], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8293147982129297`*^9, 3.8293148472048597`*^9}, 
   3.8466286426288443`*^9, 3.846628850587323*^9, 3.846629463434476*^9, 
   3.846629552562254*^9, 3.8466296708099117`*^9, 3.846630202841934*^9, {
   3.84663246124205*^9, 3.8466324665786953`*^9}, 3.8466734836349487`*^9},
 CellLabel->
  "Out[477]//TraditionalForm=",ExpressionUUID->"72900eee-ff30-4a3c-a005-\
fb629b1c7508"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "should", " ", "match", " ", "the", " ", "Klein", " ", 
    "Gordon", " ", "Equation", " ", "from", " ", "above"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq7a", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq7a", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"divergenceSETscalar", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", "==", " ", "0"}], "  ", ",",
            "  ", 
           RowBox[{
            SuperscriptBox["\[CapitalPhi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
    "  ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq7a", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846630210192027*^9, 3.846630282487953*^9}, 
   3.846632461242393*^9, {3.846632531123329*^9, 3.8466325324033413`*^9}, {
   3.8466734988567543`*^9, 
   3.8466735240392733`*^9}},ExpressionUUID->"33c94fab-6416-4c0b-9f68-\
4ccb757cde2f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[CapitalPhi]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8466302109045553`*^9, 3.846630282927647*^9}, {
   3.846632461243287*^9, 3.8466324666234922`*^9}, 3.846673483682304*^9, 
   3.846673514338256*^9},
 CellLabel->
  "Out[486]//TraditionalForm=",ExpressionUUID->"2de00508-763e-4fa8-8bbb-\
e5d512b17923"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "should", " ", "match", " ", "the", " ", "Klein", " ", 
    "Gordon", " ", "Equation", " ", "from", " ", "above"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq7b", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq7b", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"divergenceSETscalar", "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "==", " ", "0"}], "  ", ",",
            "  ", 
           RowBox[{
            SuperscriptBox["\[CapitalPhi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
    "  ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq7b", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.846633582077849*^9, 3.846633628428051*^9}, {
  3.846673506672483*^9, 3.8466735311912527`*^9}},
 CellLabel->
  "In[490]:=",ExpressionUUID->"bbefec95-1008-4d30-886f-b54706ce0b5d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[CapitalPhi]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.846633588683896*^9, 3.846633628430229*^9, 3.8466734837282753`*^9, {
   3.846673515728422*^9, 3.846673531621984*^9}},
 CellLabel->
  "Out[492]//TraditionalForm=",ExpressionUUID->"9e1726d2-b1d5-409a-9695-\
82c18bf173e2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Field Equations With Matter.  Seems OK", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846629159233951*^9, 3.846629175761346*^9}, {
  3.846633142797256*^9, 3.846633163596909*^9}, {3.846674137682132*^9, 
  3.846674140138424*^9}},ExpressionUUID->"d68b799d-7f3f-4697-9508-\
61c5892af88b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", " ", 
     RowBox[{"\[ScriptCapitalT]s", "[", 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], ",", 
       RowBox[{"-", "\[Nu]"}]}], "]"}], "  ", "]"}], "]"}], " ", "//", " ", 
   "MatrixForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846628856699768*^9, 3.8466288571584387`*^9}, {
   3.846628918178193*^9, 3.8466289969338512`*^9}, {3.8466290454702663`*^9, 
   3.846629051069757*^9}, 3.846629166644508*^9, {3.846632569139357*^9, 
   3.8466325958134317`*^9}, 3.846633142797842*^9, {3.846633668748101*^9, 
   3.846633670830092*^9}, {3.84667357520823*^9, 3.846673575695417*^9}, {
   3.846673625083441*^9, 3.8466736386098413`*^9}},
 CellLabel->
  "In[521]:=",ExpressionUUID->"b2999613-ab12-418e-887d-86bc273c78e3"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"], 
        RowBox[{"4", " ", "\[Pi]"}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], ")"}], "2"], 
        RowBox[{"4", " ", "\[Pi]"}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        RowBox[{"4", " ", "\[Pi]"}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], 
        RowBox[{"4", " ", "\[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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.8466735765713*^9, {3.846673625376986*^9, 3.846673638858321*^9}, 
   3.8466741070814657`*^9},
 CellLabel->
  "Out[521]//TraditionalForm=",ExpressionUUID->"095465ee-39fb-4c37-96a2-\
ae31c7edbf86"],

Cell[BoxData[{
 RowBox[{"tensorList", "[", 
  RowBox[{"[", "7", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"TensorName", "[", 
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846629003655854*^9, 3.846629043245604*^9}, 
   3.846629166645319*^9, 3.8466331427984943`*^9},
 CellLabel->
  "In[494]:=",ExpressionUUID->"be13adba-091a-4bcf-a2e7-8025a04bddaf"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8466290092763433`*^9, 3.846629043475976*^9}, 
   3.846629166645619*^9, 3.846633142798813*^9, 3.846673557064547*^9},
 CellLabel->
  "Out[494]=",ExpressionUUID->"deab8736-f7b6-4c0e-9289-73c280e4d54a"],

Cell[BoxData["\<\"EinsteinTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8466290092763433`*^9, 3.846629043475976*^9}, 
   3.846629166645619*^9, 3.846633142798813*^9, 3.846673557070293*^9},
 CellLabel->
  "Out[495]=",ExpressionUUID->"7c5957dd-1fae-4183-96e1-65a4fecd7002"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]]}], 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]], 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], ")"}]}]}
     },
     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", 10003.},
 CellChangeTimes->{{3.8466290092763433`*^9, 3.846629043475976*^9}, 
   3.846629166645619*^9, 3.846633142798813*^9, 3.846673557112215*^9},
 CellLabel->
  "Out[496]//TraditionalForm=",ExpressionUUID->"850938a7-b95f-4730-9b15-\
e21d1edd8270"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroFieldEquations", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroFieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", " ", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}], "==", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"8", "\[Pi]"}], ")"}], "*", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{"\[ScriptCapitalT]s", "[", 
          RowBox[{
           RowBox[{"-", "\[Mu]"}], ",", 
           RowBox[{"-", "\[Nu]"}]}], "]"}], "  ", "]"}], "]"}]}], "]"}]}], 
    "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroFieldEquations", " ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846629061173774*^9, 3.846629089901832*^9}, {
   3.846629166646635*^9, 3.846629204905539*^9}, {3.846629576290753*^9, 
   3.84662958889752*^9}, {3.846632603356573*^9, 3.846632608525528*^9}, 
   3.846633142799746*^9, {3.846673588867015*^9, 3.846673598829555*^9}, 
   3.846673681853647*^9, {3.8466737392066298`*^9, 3.846673762250458*^9}},
 CellLabel->
  "In[534]:=",ExpressionUUID->"9d5d0d4a-58da-4182-bbd8-d25d725b132c"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]], "\[LongEqual]", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]], "\[LongEqual]", "0"}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sigma]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]]}], 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]], "\[LongEqual]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Sigma]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["v", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]], "\[LongEqual]", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}]}]}
     },
     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", 10003.},
 CellChangeTimes->{{3.846673740891018*^9, 3.846673762755766*^9}, 
   3.846674107081704*^9},
 CellLabel->
  "Out[536]//TraditionalForm=",ExpressionUUID->"907b6ac8-6406-4300-97f7-\
231db5f36816"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{"This", " ", "looks", " ", "correct"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"nonzeroFieldEquations", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{
            SuperscriptBox["r", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
    "   ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq3", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8466292211585207`*^9, 3.846629252223287*^9}, {
   3.846629796223349*^9, 3.846629806974745*^9}, {3.846630621379381*^9, 
   3.846630631715337*^9}, {3.8466326456062613`*^9, 3.846632656571312*^9}, {
   3.8466327994438353`*^9, 3.846632800826651*^9}, {3.846632915372612*^9, 
   3.846632939967485*^9}, 3.8466331428003674`*^9, {3.846673791494297*^9, 
   3.8466738008424473`*^9}, {3.8466741299392853`*^9, 
   3.846674131406617*^9}},ExpressionUUID->"17f891cb-caa9-4a4d-a294-\
2b0426dcbb91"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Sigma]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}]], 
      RowBox[{"2", " ", 
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846673779602438*^9, 3.846673801102256*^9}, 
   3.846674107081929*^9},
 CellLabel->
  "Out[540]//TraditionalForm=",ExpressionUUID->"510cea53-6674-4a0d-8e8d-\
e9c4125a5ff1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{"nonzeroFieldEquations", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{
          SuperscriptBox["r", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846630516649789*^9, 3.84663056419119*^9}, {
   3.846630654779434*^9, 3.846630656327118*^9}, {3.8466310487758093`*^9, 
   3.846631059799711*^9}, {3.846632806859756*^9, 3.846632808865903*^9}, {
   3.846632931798996*^9, 3.8466329381087723`*^9}, 3.846633142802342*^9, {
   3.8466739209252577`*^9, 3.846673933436062*^9}},
 CellLabel->
  "In[559]:=",ExpressionUUID->"4d836a6f-2267-47ce-a05a-4ba1902d4620"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Sigma]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}]], 
      RowBox[{"2", " ", 
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.84667380589082*^9, {3.846673927335095*^9, 3.846673933758322*^9}, 
   3.8466741070821457`*^9},
 CellLabel->
  "Out[561]//TraditionalForm=",ExpressionUUID->"e278d428-7ba8-40b5-b741-\
01fd50b82fbb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{"nonzeroFieldEquations", "[", 
          RowBox[{"[", "11", "]"}], "]"}], ",", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846673980021102*^9, 3.846674035843141*^9}, 
   3.846674107082382*^9},
 CellLabel->
  "In[568]:=",ExpressionUUID->"26f1bb82-a10d-4c89-bafd-00d8bd9abc22"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Sigma]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "v"}]}],
       MultilineFunction->None], 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.84667398789205*^9, 3.846674036108774*^9}, 
   3.846674107082625*^9},
 CellLabel->
  "Out[570]//TraditionalForm=",ExpressionUUID->"3534cba7-8f33-4a6a-907c-\
ff26a0f37d32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{"This", " ", "looks", " ", "correct"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"eq4a", " ", "/.", " ", 
       RowBox[{"(", " ", 
        RowBox[{"eq3a", " ", "/.", " ", 
         RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "  ", "//", 
      " ", "Expand"}]}], "  ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq4", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846674048990193*^9, 
  3.846674122351478*^9}},ExpressionUUID->"e25c0bac-9f0a-46ba-81f9-\
fa7cce7318ba"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Sigma]", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     SuperscriptBox[
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846674059358069*^9, 3.846674107084421*^9}},
 CellLabel->
  "Out[575]//TraditionalForm=",ExpressionUUID->"89ae7d0b-54ca-47e9-96e9-\
f409fcad8f74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{"This", " ", "looks", " ", "correct"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq5", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"nonzeroFieldEquations", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
           RowBox[{
            SuperscriptBox["r", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
    "  ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq5", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846629845550179*^9, 3.846629847120714*^9}, {
   3.8466298981534348`*^9, 3.846629917800027*^9}, {3.846629963944578*^9, 
   3.8466299733275557`*^9}, 3.846631461903007*^9, {3.8466327103631887`*^9, 
   3.846632723177931*^9}, {3.846633084244487*^9, 3.846633090738414*^9}, 
   3.846633142808221*^9, {3.846673868435212*^9, 3.846673871945551*^9}, {
   3.846673944274384*^9, 3.846673946708129*^9}, {3.8466741164182453`*^9, 
   3.8466741178857813`*^9}},ExpressionUUID->"728fd706-3097-4f38-9d15-\
3287991e49a1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["v", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.8466298473821173`*^9, {3.846629902468175*^9, 3.8466299180457373`*^9}, 
   3.8466326733880157`*^9, 3.846632723462317*^9, 3.8466331428095303`*^9, 
   3.846673557651696*^9, 3.846673872605638*^9},
 CellLabel->
  "Out[555]//TraditionalForm=",ExpressionUUID->"b91e4842-6735-40d7-8e6c-\
e91540c6460c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{"This", " ", "looks", " ", "correct"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{
           RowBox[{"nonzeroFieldEquations", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{
            SuperscriptBox["r", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}]}], 
    "   ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eq6", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.846629840894412*^9, 3.846629873806192*^9}, {
   3.846629928336569*^9, 3.846629951640294*^9}, {3.846631439162397*^9, 
   3.846631454537676*^9}, {3.846632687196074*^9, 3.84663270338626*^9}, {
   3.846633092180023*^9, 3.846633097818919*^9}, 3.846633142806871*^9, {
   3.8466738463925533`*^9, 3.846673850589121*^9}},
 CellLabel->
  "In[550]:=",ExpressionUUID->"84f24ac4-371c-4c19-a5ef-39ef134f3927"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8466738388489017`*^9, 3.846673851304769*^9}, 
   3.846674107084795*^9},
 CellLabel->
  "Out[552]//TraditionalForm=",ExpressionUUID->"3cdf5560-8ba9-4e70-9933-\
5d9a26854417"]
}, Closed]]
},
WindowSize->{1279, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 80}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"fe61baef-e2c4-4bfc-bf9f-dcd7ea4aabb7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1968, 29, 159, "Title",ExpressionUUID->"26175c75-5e68-4770-afeb-755473cd726c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2551, 53, 998, 17, 76, "Author",ExpressionUUID->"f73ed827-74ce-41d4-ba80-d2d2961bf093",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3586, 75, 228, 4, 69, "Section",ExpressionUUID->"4c7b30a4-9c47-4333-9e89-672a353d51bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3817, 81, 438, 10, 63, "Input",ExpressionUUID->"940dcd45-7491-4a9a-8b0a-bf13293280ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4258, 93, 1975, 31, 43, "Output",ExpressionUUID->"c77ab7ba-0402-4f3f-bd83-ea2b0685f92b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6270, 129, 731, 11, 55, "Section",ExpressionUUID->"e95e4377-51fd-468f-aa4d-dddb0c316dda",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7004, 142, 600, 10, 63, "Input",ExpressionUUID->"218fe0bc-f42c-48cd-b3ed-2ce92e585ae4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7607, 154, 686, 13, 43, "Output",ExpressionUUID->"b536a608-e68e-4a25-9fd7-70801becaefb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8296, 169, 588, 11, 84, "Input",ExpressionUUID->"4d8b511e-83e7-4256-bf6d-94437788d71a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8887, 182, 2012, 32, 43, "Output",ExpressionUUID->"02a71c36-6396-4c40-8155-685dfaa8f5d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10936, 219, 251, 4, 55, "Section",ExpressionUUID->"14faca3f-16a2-4fce-b0d1-67fa25a28656",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11190, 225, 1671, 46, 189, "Input",ExpressionUUID->"17a3c4c2-7fc8-4e02-9824-c47d3465bb27",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12864, 273, 2199, 35, 24, "Print",ExpressionUUID->"2d158f17-6a3c-4d64-9b38-945c4f13f039",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15066, 310, 2218, 36, 24, "Print",ExpressionUUID->"c2f53c17-bcca-450e-a52f-3707dbfd7eb5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[17287, 348, 2544, 38, 84, "Output",ExpressionUUID->"2d791c1b-b559-4807-8d91-9e114265b6a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[19834, 388, 268, 4, 41, "Input",ExpressionUUID->"58e8a461-4e77-4905-ab62-d3555e699f7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[20105, 394, 261, 4, 41, "Input",ExpressionUUID->"11a822f7-3c8b-4ab7-916c-7487a26ea170",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20403, 403, 240, 4, 55, "Section",ExpressionUUID->"2053d907-d3e3-42b2-b67d-fe6b54471272",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[20646, 409, 3122, 71, 504, "Input",ExpressionUUID->"be5eba0d-5a0d-4e50-8d97-e3db35aeaa8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23771, 482, 3746, 98, 393, "Output",ExpressionUUID->"94bb6eac-fde4-4209-b28f-1b3d41b7c2ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[27520, 582, 963, 23, 63, "Input",ExpressionUUID->"d12bd3f6-10e4-476d-83cb-034ad35e639a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28520, 610, 362, 6, 55, "Section",ExpressionUUID->"041c631d-49aa-403e-bdac-04264e58370e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[28885, 618, 1659, 41, 126, "Input",ExpressionUUID->"faf7c754-dae3-4e3b-8673-ecf34311c097",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[30547, 661, 1056, 26, 84, "Input",ExpressionUUID->"e4b54225-542b-4580-be2f-0f1f755b57ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31640, 692, 229, 4, 55, "Section",ExpressionUUID->"46112c7e-4ba3-472e-aca9-13ce136982e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31872, 698, 973, 24, 86, "Input",ExpressionUUID->"a45b7e61-5c9a-41d1-be09-715a38bba670",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32848, 724, 789, 20, 44, "Output",ExpressionUUID->"39c4c847-bf93-480f-921a-bdf09053c459",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33640, 746, 477, 11, 41, "Input",ExpressionUUID->"ede6f715-2432-401d-a6d9-4720aa2b9f3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34120, 759, 1162, 34, 113, "Output",ExpressionUUID->"ff5b2dce-6e6f-44c9-8547-e2dbce01211c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35285, 795, 779, 18, 147, "Input",ExpressionUUID->"b465065f-2f25-4d0b-9db3-852aabb38a1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36067, 815, 876, 27, 69, "Output",ExpressionUUID->"b2455e4d-4964-4e58-868b-3fe55a2afce0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36946, 844, 904, 20, 105, "Input",ExpressionUUID->"74cae112-bbf6-4d4c-a5d6-9692be3b22a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37853, 866, 1673, 45, 112, "Output",ExpressionUUID->"2ded41a9-1202-46fe-b6b1-752b69aa4b7f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39529, 913, 650, 15, 105, "Input",ExpressionUUID->"636f0b03-df11-4761-803a-73181dbb4f7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40182, 930, 1729, 48, 136, "Output",ExpressionUUID->"07444e09-29e0-4262-b2bc-5659289e9a19",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41914, 980, 412, 10, 41, "Input",ExpressionUUID->"6c349f87-10b9-4674-9074-5c9ae4687876",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42329, 992, 936, 25, 101, "Output",ExpressionUUID->"c9e101a2-f73d-46d1-9145-8904d424faac",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43268, 1019, 412, 10, 41, "Input",ExpressionUUID->"7b4bac33-f7a3-44d5-8f87-e38a9bbbc138",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43683, 1031, 941, 25, 101, "Output",ExpressionUUID->"f1ccf36a-637b-4859-8d59-08899ead0196",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[44661, 1061, 374, 6, 55, "Section",ExpressionUUID->"2d654137-0cf0-46a3-899b-0fd235738920",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45038, 1069, 518, 12, 41, "Input",ExpressionUUID->"7dbe918a-f5e8-47bb-9011-896b26be1b15",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45559, 1083, 5755, 131, 714, "Input",ExpressionUUID->"1d81cf88-9194-4d93-b90c-46a7e6dbacaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[51317, 1216, 1211, 24, 65, "Input",ExpressionUUID->"4d0d3bf1-07b4-4fb4-b3d5-d486f7574349",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[52531, 1242, 475, 9, 41, "Output",ExpressionUUID->"9c7d8f64-29d4-4035-bb2a-b230e55590d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[53009, 1253, 287, 5, 41, "Input",ExpressionUUID->"cf1372ea-b5f0-4fb3-aa63-afbac368089a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[53299, 1260, 1636, 42, 45, "Output",ExpressionUUID->"852bb499-eead-4fcf-8c4e-88d1446906ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[54938, 1304, 840, 20, 84, "Input",ExpressionUUID->"ac5a73b5-7880-4427-a0c1-6c1a2c54aad4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[55781, 1326, 886, 16, 45, "Output",ExpressionUUID->"c015e172-f06c-4e91-8316-f71e281ddd98",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[56670, 1344, 807, 12, 41, "Output",ExpressionUUID->"346cc637-99f2-40cd-8c50-543f7519d990",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57480, 1358, 2017, 50, 112, "Output",ExpressionUUID->"f1d8ff5c-8669-4174-af18-7bb83df6da4a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59500, 1410, 845, 20, 84, "Input",ExpressionUUID->"435ec455-c1da-4595-8941-f82c526f960a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60348, 1432, 992, 19, 45, "Output",ExpressionUUID->"99a6a5f5-60d3-4ad8-8e1b-41cc906568ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61343, 1453, 892, 14, 41, "Output",ExpressionUUID->"6cf33d21-dfb5-409e-acca-cd0f09189ae9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62238, 1469, 16107, 458, 410, "Output",ExpressionUUID->"b29a5109-ea5e-46d8-b319-3d10bc5ecf5c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78348, 1929, 842, 20, 84, "Input",ExpressionUUID->"1cdf0e82-1f5a-48cc-9114-0380dafe01a8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79193, 1951, 832, 15, 45, "Output",ExpressionUUID->"ac59d6b8-e59d-4710-b2b9-57ed618e4ebe",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80028, 1968, 775, 12, 41, "Output",ExpressionUUID->"1eb3db0a-1179-4c54-8dc7-672ef0f7c2d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80806, 1982, 43632, 1109, 473, "Output",ExpressionUUID->"7bc5fe12-fded-419b-a5f1-6e6e3a011e9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[124441, 3093, 838, 20, 84, "Input",ExpressionUUID->"e06b1190-ff8e-4a33-834a-6f4d864b365e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[125282, 3115, 824, 15, 45, "Output",ExpressionUUID->"0618300c-6e9d-4751-a20d-69d0f05851f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[126109, 3132, 780, 12, 41, "Output",ExpressionUUID->"296e2e98-8dd6-4f61-8359-3180545dc50f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[126892, 3146, 7662, 209, 175, "Output",ExpressionUUID->"5546727e-31ef-4612-a7e1-954aec9601eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[134557, 3357, 842, 20, 84, "Input",ExpressionUUID->"8dba777a-2e2b-44fc-8641-b5f9a6f1b052",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[135402, 3379, 781, 14, 41, "Output",ExpressionUUID->"a1bfbaa6-f385-4cad-b188-76a7397de52e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[136186, 3395, 776, 12, 41, "Output",ExpressionUUID->"b0ae6565-701f-48c9-b959-d6072aca4b98",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[136965, 3409, 2676, 71, 75, "Output",ExpressionUUID->"9ab2a2d2-020d-4e87-a4f6-cb0020fd953c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[139644, 3482, 895, 20, 84, "Input",ExpressionUUID->"6ae533f8-af96-4c33-a34a-c61b8bf9e7a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[140542, 3504, 448, 9, 41, "Output",ExpressionUUID->"c360489c-bf45-44c3-b1cb-b6ee0b9c3f37",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[140993, 3515, 449, 7, 41, "Output",ExpressionUUID->"d3201815-c3a5-4fb2-96fc-5bb5d4347323",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[141445, 3524, 6070, 165, 77, "Output",ExpressionUUID->"d88bcbd7-d09d-432c-b4d3-83b89b65a730",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[147518, 3691, 820, 19, 84, "Input",ExpressionUUID->"27b02e0a-bef9-4b3a-b4bf-506c12425869",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[148341, 3712, 753, 14, 45, "Output",ExpressionUUID->"31f10117-ea86-4f5c-886d-7096f2efa9e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149097, 3728, 714, 11, 41, "Output",ExpressionUUID->"93a45b58-070f-47be-a009-8690337aebb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149814, 3741, 7859, 216, 177, "Output",ExpressionUUID->"10f3c6c0-7bf8-4101-82dc-adba5062a008",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[157676, 3959, 883, 20, 84, "Input",ExpressionUUID->"695de17d-213e-4b1d-ad44-e1a7b3efe308",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[158562, 3981, 836, 15, 45, "Output",ExpressionUUID->"91cf2433-50e1-4159-b754-3b52d17ce0f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[159401, 3998, 777, 12, 41, "Output",ExpressionUUID->"5f99b059-eab3-4159-8d5a-ecee5c76a922",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[160181, 4012, 59537, 1461, 481, "Output",ExpressionUUID->"89d57961-bf13-413f-bccc-202a6e79c350",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[219721, 5475, 819, 19, 84, "Input",ExpressionUUID->"8b55eea4-c4bd-4ee6-947c-70be717c6617",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[220543, 5496, 503, 10, 45, "Output",ExpressionUUID->"28179b78-fade-4249-9238-5a3fe7f79741",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[221049, 5508, 454, 7, 41, "Output",ExpressionUUID->"e322eebc-c620-4e5d-96e5-029a34691c7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[221506, 5517, 93783, 2217, 479, "Output",ExpressionUUID->"da6393a7-0efe-41a6-a7e3-e4969286e833",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[315326, 7739, 538, 10, 55, "Section",ExpressionUUID->"7f4c9a53-30cd-403f-8ea4-48ad5a1ccac9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[315867, 7751, 1988, 50, 210, "Input",ExpressionUUID->"5cc8d6b9-d10d-4e01-945a-92f3a51e56ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[317858, 7803, 6328, 180, 228, "Output",ExpressionUUID->"77a0c38a-537c-4812-aacc-96fcd88cc864",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[324189, 7985, 1998, 50, 210, "Input",ExpressionUUID->"6c1751da-a599-497f-90ca-9b3b52eb2256",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[326190, 8037, 6441, 182, 230, "Output",ExpressionUUID->"52a85296-b963-4963-8336-82d694634ab0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[332634, 8221, 1092, 27, 107, "Input",ExpressionUUID->"e571c379-e973-4fd8-924b-14f8804a99a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[333729, 8250, 1400, 43, 78, "Output",ExpressionUUID->"f549db93-6977-404c-a554-9549c8093fa7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[335132, 8295, 1324, 32, 107, "Input",ExpressionUUID->"2b5dafec-652f-472b-a71d-cba6b269bb07",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[336459, 8329, 1470, 45, 80, "Output",ExpressionUUID->"6d61d3b7-e7fc-4528-a3c9-1fd11b885f6f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[337932, 8376, 1138, 28, 107, "Input",ExpressionUUID->"dbf7c63a-0cd3-4da4-b2d3-7cc7aa2dd91f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[339073, 8406, 1027, 30, 74, "Output",ExpressionUUID->"584c9d90-9729-4fba-8009-83a90e7b5db5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[340103, 8438, 1184, 29, 107, "Input",ExpressionUUID->"20be06b4-664e-45cc-a772-a02b538b03eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[341290, 8469, 1069, 30, 74, "Output",ExpressionUUID->"6c224280-d028-4f19-85e3-5bb7a8eb3075",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[342396, 8504, 244, 4, 55, "Section",ExpressionUUID->"6f7827b0-3c45-438e-afc4-3acde982f914",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[342643, 8510, 721, 16, 84, "Input",ExpressionUUID->"d825310c-3dbe-43f5-a8f9-16185aeff66c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[343367, 8528, 346, 7, 41, "Output",ExpressionUUID->"311806b4-adbb-4b58-ad3d-35acecff7eb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[343716, 8537, 406, 9, 41, "Input",ExpressionUUID->"7fc5204c-06dd-4ee1-a707-d2e1ef127507",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[344125, 8548, 1153, 34, 49, "Output",ExpressionUUID->"73de4fd1-f9d8-4abd-b5d5-f327d75286ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[345281, 8584, 1423, 34, 107, "Input",ExpressionUUID->"4a740838-7223-4aaf-bb93-dff1955e737e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[346707, 8620, 1761, 52, 78, "Output",ExpressionUUID->"a1242741-1ec6-4a51-89e0-8eb9565aa435",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[348505, 8677, 261, 4, 55, "Section",ExpressionUUID->"241dcba4-f626-4bcb-a0e1-ad63e84033f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[348769, 8683, 1127, 32, 84, "Input",ExpressionUUID->"73b7f1ac-bfc9-4ea7-98d3-d83fee2a9874",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[349899, 8717, 592, 16, 45, "Output",ExpressionUUID->"9102852a-976e-4bd9-aaf5-309c3e001f76",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[350494, 8735, 577, 15, 45, "Output",ExpressionUUID->"e3bbea89-a835-41e8-a4c2-b4c20cc9f787",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[351074, 8752, 2350, 66, 122, "Output",ExpressionUUID->"c18d77e1-5046-420b-87ba-75d470d459d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[353427, 8820, 2096, 62, 105, "Input",ExpressionUUID->"be94fc25-335c-4d26-b008-4f92ff944f6c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[355526, 8884, 807, 24, 46, "Output",ExpressionUUID->"9a80b2f8-6b34-44df-ba87-06020971f9f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[356336, 8910, 781, 22, 47, "Output",ExpressionUUID->"ed35f78b-83e7-4e4c-9d7f-0f57de1ab520",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[357120, 8934, 3450, 96, 136, "Output",ExpressionUUID->"835a89d8-edce-475d-bce3-f9b845765243",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[360573, 9032, 2181, 54, 162, "Input",ExpressionUUID->"e2419954-5c5b-4539-aa75-3697d2110e7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[362757, 9088, 3557, 96, 178, "Output",ExpressionUUID->"b00ecfca-fb75-4301-91b2-7fd201277d13",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[366317, 9186, 711, 15, 84, "Input",ExpressionUUID->"41c0ad5a-d302-46dc-961b-bcb595b30ffe",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[367031, 9203, 485, 10, 45, "Output",ExpressionUUID->"41bd54e6-58b3-4119-9e56-a566a3945999",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[367519, 9215, 1233, 29, 126, "Input",ExpressionUUID->"827b9252-60bc-49bf-b5c1-b15ca2149455",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[368755, 9246, 6775, 180, 150, "Output",ExpressionUUID->"72900eee-ff30-4a3c-a005-fb629b1c7508",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[375533, 9428, 1537, 38, 128, "Input",ExpressionUUID->"33c94fab-6416-4c0b-9f68-4ccb757cde2f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[377073, 9468, 1737, 52, 78, "Output",ExpressionUUID->"2de00508-763e-4fa8-8bbb-e5d512b17923",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[378813, 9522, 1482, 37, 128, "Input",ExpressionUUID->"bbefec95-1008-4d30-886f-b54706ce0b5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[380298, 9561, 1710, 52, 78, "Output",ExpressionUUID->"9e1726d2-b1d5-409a-9695-82c18bf173e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[382045, 9618, 347, 5, 55, "Section",ExpressionUUID->"d68b799d-7f3f-4697-9508-61c5892af88b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[382395, 9625, 886, 18, 41, "Input",ExpressionUUID->"b2999613-ab12-418e-887d-86bc273c78e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[383284, 9645, 3287, 93, 178, "Output",ExpressionUUID->"095465ee-39fb-4c37-96a2-ae31c7edbf86",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[386574, 9740, 689, 16, 84, "Input",ExpressionUUID->"be13adba-091a-4bcf-a2e7-8025a04bddaf",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[387266, 9758, 374, 8, 45, "Output",ExpressionUUID->"deab8736-f7b6-4c0e-9289-73c280e4d54a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[387643, 9768, 335, 5, 41, "Output",ExpressionUUID->"7c5957dd-1fae-4183-96e1-65a4fecd7002",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[387981, 9775, 7478, 210, 188, "Output",ExpressionUUID->"850938a7-b95f-4730-9b15-e21d1edd8270",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[395462, 9987, 1421, 32, 105, "Input",ExpressionUUID->"9d5d0d4a-58da-4182-bbd8-d25d725b132c",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[396886, 10021, 10232, 291, 442, "Output",ExpressionUUID->"907b6ac8-6406-4300-97f7-231db5f36816",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[407121, 10314, 1602, 37, 128, "Input",ExpressionUUID->"17f891cb-caa9-4a4d-a294-2b0426dcbb91",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[408726, 10353, 1382, 43, 78, "Output",ExpressionUUID->"510cea53-6674-4a0d-8e8d-e9c4125a5ff1",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[410111, 10398, 1336, 31, 107, "Input",ExpressionUUID->"4d836a6f-2267-47ce-a05a-4ba1902d4620",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[411450, 10431, 1408, 44, 78, "Output",ExpressionUUID->"e278d428-7ba8-40b5-b741-01fd50b82fbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[412861, 10477, 1097, 28, 107, "Input",ExpressionUUID->"26f1bb82-a10d-4c89-bafd-00d8bd9abc22",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[413961, 10507, 1439, 44, 82, "Output",ExpressionUUID->"3534cba7-8f33-4a6a-907c-ff26a0f37d32",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[415403, 10553, 785, 19, 126, "Input",ExpressionUUID->"e25c0bac-9f0a-46ba-81f9-fa7cce7318ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[416191, 10574, 1815, 56, 80, "Output",ExpressionUUID->"89ae7d0b-54ca-47e9-96e9-f409fcad8f74",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[418009, 10632, 1626, 37, 128, "Input",ExpressionUUID->"728fd706-3097-4f38-9d15-3287991e49a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[419638, 10671, 1460, 44, 74, "Output",ExpressionUUID->"b91e4842-6735-40d7-8e6c-e91540c6460c",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[421101, 10717, 1517, 36, 128, "Input",ExpressionUUID->"84f24ac4-371c-4c19-a5ef-39ef134f3927",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[422621, 10755, 1337, 42, 74, "Output",ExpressionUUID->"3cdf5560-8ba9-4e70-9933-5d9a26854417",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]]
}
]
*)