Adaptive gauge method for long - time double-null simulations of spherical black-hole spacetimes by Eilon & Ori.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    409455,      10197]
NotebookOptionsPosition[    388756,       9894]
NotebookOutlinePosition[    389218,       9911]
CellTagsIndexPosition[    389175,       9908]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Adaptive gauge method for long - time double-null simulations \
of spherical black-hole spacetimes by Eilon & Ori\
\>", "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.8293197499156637`*^9, 3.82931976102686*^9}},
 TextAlignment->Center,ExpressionUUID->"de767716-57cb-4d1c-93e6-e9b85c2655c8"],

Cell["\<\
Geoff Cope
University of Utah
May 6th, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.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}},
 TextAlignment->Center,ExpressionUUID->"158e200a-49b4-4013-9159-1948bd6d828c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Field", " ", "equations", " ", "are", " ", "off", " ", "by", " ", "one", 
     " ", "term"}], " ", ",", " ", 
    RowBox[{
    "and", " ", "I", " ", "have", " ", "no", " ", "idea", " ", "why"}]}], " ",
    "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.829319792117559*^9, 3.829319798891429*^9}, {
  3.829335232166176*^9, 
  3.8293352435223713`*^9}},ExpressionUUID->"a4aaa0e2-19af-46fd-9805-\
c72faaf4db2c"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"81e1bc51-a0a4-4199-9dcb-\
d62bbba8abe4"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"a7107cba-47e4-4804-9fde-ea2ada4f6b54"],

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.8293141977157927`*^9, 
   3.829328726791157*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"c1c085da-fa25-4041-bb78-df8bfff9c8ad"]
}, 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->"cb57d6f4-c934-45c4-9a2f-\
3a593d329554"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Adaptive gauge method for long - time double-null simulations of \
spherical black-hole spacetimes by Eilon & Ori\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/1510.05273\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.84308390014039*^9, 3.843083927681953*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"32c49a3c-4769-4179-ae9f-8a7f6e35a5b7"],

Cell[BoxData[
 TemplateBox[{
  "\"Adaptive gauge method for long - time double-null simulations of \
spherical black-hole spacetimes by Eilon & Ori\"", 
   "https://arxiv.org/abs/1510.05273"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843083920425353*^9, 3.8430839276832037`*^9}},
 CellLabel->"Out[74]=",ExpressionUUID->"1ebe6d72-9047-402a-8d7d-094c7c45adf0"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Late-time evolution of nonlinear gravitational collapse by Burko & Ori\
\>\"", ",", "\"\<https://arxiv.org/abs/gr-qc/9703067\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8293100150048923`*^9, 3.829310034414818*^9}, 
   3.829310064421151*^9, {3.829314968583799*^9, 3.829314978530403*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"075c24ec-e7c1-44be-8b50-b6066f2cc420"],

Cell[BoxData[
 TemplateBox[{
  "\"Late-time evolution of nonlinear gravitational collapse by Burko & \
Ori\"", "https://arxiv.org/abs/gr-qc/9703067"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82931063329873*^9, 3.829310775447266*^9, 
  3.829310833981859*^9, 3.829311311610034*^9, 3.829312068617078*^9, 
  3.829314197845718*^9, 3.829314980320627*^9, 3.829328726912653*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"7887350a-2e81-44b6-8084-cfc574f344d6"],

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

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.829314197862084*^9, 3.829328726932501*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"63cb5ffd-86eb-4039-ab86-b1860bd75b2f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.828806689104821*^9},ExpressionUUID->"cfcb16a6-61e2-48e7-9c58-\
cd1a39cff500"],

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[4]:=",ExpressionUUID->"36a1b3f6-8665-4911-868e-4a0e746fa49c"],

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.82931419792447*^9, 3.8293287270351343`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"f5d85609-31ac-4fe7-9fb1-03fef2ab90d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Kb\"\>"}],
  SequenceForm["  (CleanSlate) Approximate kernel memory recovered: ", "7 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.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.82931419792447*^9, 3.82932872703971*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"5a7f5a37-7b52-430a-8587-2743d43e14d4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.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.829314197929414*^9, 3.829328727041335*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"c09a06e3-25ee-441b-b231-710c3b4246c0"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.828806689105419*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"9d2e79b0-9b48-4383-aa91-b4a69493fe17"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8287882026748323`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"d26acf1d-4361-49df-b6b7-ecf82c0677df"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"e80e2dad-5b66-4267-8edc-\
27b97f491ed9"],

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->"9a3a3159-2aa6-466a-aa9c-994d4d5e9c6c"],

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.8293141980370283`*^9, 3.829328727141678*^9},
 CellLabel->
  "Out[6]//TableForm=",ExpressionUUID->"4f2d857e-37c4-4895-8a7a-b7b75a6b19b5"],

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->"04f71e3c-1666-4713-9d63-123e2af3519c"]
}, 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->"6109b50e-48b6-4d38-95bd-\
04e03549a6b8"],

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->"2f24cce4-9cef-4d1d-902b-1e73992dbbbe"],

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->"3f34ec65-3c01-49ac-a5e1-3741bee1dcbc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293140435050507`*^9, 
  3.829314055542819*^9}},ExpressionUUID->"29f030b8-2c73-4b82-9acf-\
50a894411de2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"u", ",", "v"}], "]"}], "]"}]}], " ", "du", " ", "dv"}], " ", 
   "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"r", "[", 
      RowBox[{"u", ",", "v"}], "]"}], "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.829314049351386*^9, {3.829328677902993*^9, 3.8293286845183764`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"fc9c4d95-9d30-4e57-862e-43b6effe4d65"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "du"}], " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"u", ",", "v"}], "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "v"}], "]"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.829314198097488*^9, 3.8293149297490892`*^9, 
  3.8293287271939707`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"9c3b1a0f-c942-4600-a9ec-830b94a4e7a9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    " ", "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829312719751947*^9, 3.829312746262765*^9}, 
   3.8293140493515167`*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"4050a24c-7a45-4a44-8ad4-8e1f00041a61"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Sigma]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]]}], "0", "0"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         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.829314198128804*^9, 3.829314929749228*^9, 
  3.8293287272179117`*^9},
 CellLabel->
  "Out[17]//TraditionalForm=",ExpressionUUID->"72a84fee-bd27-4e85-98e3-\
ea7454b68736"],

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.8293140644969473`*^9, 3.829314112867885*^9}, {
  3.829329667012321*^9, 
  3.829329668451705*^9}},ExpressionUUID->"71c4dd59-d199-42ef-9075-\
5095c8689092"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]]}], "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]]}], "0", "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"r", "[", 
         RowBox[{"u", ",", "v"}], "]"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
       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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.829314198161069*^9, 3.82931492974938*^9, 
  3.829328727249119*^9},
 CellLabel->
  "Out[20]//MatrixForm=",ExpressionUUID->"4205cb70-d21a-4627-a2cb-\
fd7b14916131"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", " ", ".", " ", "inverse1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8293140867463913`*^9, 3.829314112868037*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"5b6126d4-0d43-4dfd-9e08-7d6a3d6b5ba4"],

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.829314198179213*^9, 3.829314929749482*^9, 
  3.8293287272730227`*^9},
 CellLabel->
  "Out[21]//MatrixForm=",ExpressionUUID->"33d1a210-649b-4ab9-8dac-\
302e8d6e50c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", " ", ".", " ", "metric1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829314098408114*^9, 3.8293141128681707`*^9}, 
   3.82931493235962*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"1b85f0e7-b523-4d2d-9886-528a01b1a5c0"],

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.829314198204151*^9, 3.829314929749577*^9, 
  3.829328727285295*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"7c469fb3-a7a3-49b3-beae-\
c201390e7501"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Tensors Associated With Metric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, 3.829312850378148*^9, 
   3.829314909850699*^9},ExpressionUUID->"634a7cb7-6787-45f1-a422-\
4e4bd645bf5e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314909850923*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"2e2980fe-1dfe-44a4-b15e-664addbdbc2f"],

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", 10001.},
 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.8293149098513107`*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"440e8f3c-565c-4098-a4cc-29f87ef733d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "5.04", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<DoubleNull\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(dn\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "r", ",", "\[Theta]"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314208688733*^9, 3.829314214231213*^9}, 
   3.829314909851479*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"849d2f29-0e3a-476a-8668-75fae6b74c7b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.052398`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820932775263226*^9, 3.8209334477859497`*^9, 
  3.820937492203586*^9, 3.821110229351104*^9, 3.824381620813415*^9, 
  3.8243818500635223`*^9, 3.8243823106417093`*^9, 3.824511842095233*^9, 
  3.8245141677564774`*^9, 3.827878634964815*^9, 3.827881401184404*^9, 
  3.8279088610540543`*^9, 3.827912744283607*^9, 3.829312850378598*^9, 
  3.829314204745328*^9, 3.829314909851616*^9, 3.829328730336447*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"3ba7e433-8ead-4c3d-990a-2d4620464ee5"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.829312850378681*^9, 3.829314909851734*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"dae20295-943c-48d8-9831-4b61187bedcb"],

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", 10001.},
 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.829314204846569*^9, 3.829314909851842*^9, 3.829328730408411*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"a9ed3f65-ae43-4421-906b-de9d353677ce"],

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", 10001.},
 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.829314909851984*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"1e5b0238-d65e-4b22-a537-c6d9f5d410a0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "dn"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204858822*^9, 3.829314909852137*^9, 
  3.8293287304200287`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"f51ee3de-ec96-4ece-bda5-acbca26edc2a"],

Cell[BoxData["\<\"DoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204858822*^9, 3.829314909852137*^9, 
  3.8293287304227467`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"4d764de5-9c70-475d-b660-1fc1a2aaee1c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[Sigma]", "(", 
          RowBox[{"u", ",", "v"}], ")"}]]}], "0", "0"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         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", 10001.},
 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.829314204858822*^9, 3.829314909852137*^9, 
  3.829328730425984*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"00260d75-d39e-408f-8058-\
fe45eaa1455c"],

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", 10001.},
 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.829314909852449*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"6376559f-050f-4fbc-9d03-f406935a6262"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204899514*^9, 3.829314909852541*^9, 3.829328730446513*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"59b93b86-ff3f-4247-915e-7f98e338126d"],

Cell[BoxData["\<\"ChristoffelSymbolDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204899514*^9, 3.829314909852541*^9, 3.829328730450316*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"b6e93b18-1dad-495b-8a13-dcf4cae678ec"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            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[{"2", " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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"},
           {
            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[{"2", " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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"},
           {"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[
             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"},
           {"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"},
           {
            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]", ")"}]}
     },
     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", 10001.},
 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.829314204899514*^9, 3.829314909852541*^9, 3.8293287304751377`*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"0c721fc0-9ee4-4c7d-950d-\
c96ce83f5bdc"],

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", 10001.},
 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.829314909852849*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"471bc403-ea85-4391-94b2-85004941c9b5"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204928701*^9, 3.829314909852948*^9, 
  3.829328730488021*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"4a817821-69c1-429e-bc7f-deaba8e6ec18"],

Cell[BoxData["\<\"RiemannTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314204928701*^9, 3.829314909852948*^9, 
  3.829328730491535*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"f69dc838-0349-4541-95ea-405718115e33"],

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[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             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[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             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[{
               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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             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[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             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[{
               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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{"4", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            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]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", "4"}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            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]}], "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[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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[{
               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[{"-", "4"}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            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]}]},
          {"0", "0", 
           RowBox[{"4", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            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]}], "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", 10001.},
 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.829314204928701*^9, 3.829314909852948*^9, 
  3.8293287306726217`*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"cfedfd1d-53ef-49fe-bcbc-\
18a1515e6245"],

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", 10001.},
 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.829314909853265*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"b1f98063-a5e0-45b1-a8a4-553bf0582906"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314205166977*^9, 3.8293149098533688`*^9, 
  3.829328730687076*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"3bd487b4-dc01-448a-9b85-f82517d26893"],

Cell[BoxData["\<\"RicciTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314205166977*^9, 3.8293149098533688`*^9, 
  3.8293287306899548`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"94a84c9d-4cb8-4e8b-a15d-572e16fab300"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        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[{"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"}], ")"}]]}], "-", 
        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"}], ")"}]]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], 
       FractionBox[
        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[{"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[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          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[{
           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]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"4", " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          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[{
           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]}]}], ")"}]}]}
     },
     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", 10001.},
 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.829314205166977*^9, 3.8293149098533688`*^9, 
  3.829328730721849*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"d531d922-4bb2-446e-98e5-\
e3d62efe9f29"],

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", 10001.},
 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.8293149098537073`*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"2e8e2b6b-f219-4e85-94f9-85f416a196e3"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.8293142052293177`*^9, 3.8293149098538027`*^9, 
  3.829328730733567*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"8547e588-82da-4bb2-9149-c9603b263b64"],

Cell[BoxData["\<\"RicciScalarDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.8293142052293177`*^9, 3.8293149098538027`*^9, 
  3.829328730736574*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"d47fadea-e83c-4b01-905e-8e368b921abb"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "(", 
         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]}], "+", 
          RowBox[{"4", " ", 
           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[
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], "2"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.8293142052293177`*^9, 3.8293149098538027`*^9, 
  3.8293287307550097`*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"40fa7a44-be77-4490-9d6b-\
0c4453cbc0e5"],

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", 10001.},
 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.82931490985411*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"b3d9d15b-6784-4183-8b37-e63ef9efabe5"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314205277054*^9, 3.829314909854309*^9, 
  3.8293287307658253`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"418af349-3686-4d8d-b869-59ed3d474a86"],

Cell[BoxData["\<\"KretschmannScalarDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314205277054*^9, 3.829314909854309*^9, 
  3.8293287307688303`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"9f6d7eca-d6ca-474f-bd6b-6bbd2a2d5256"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"16", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
           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", " ", 
           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[{
             RowBox[{"4", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], "-", 
             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[{"4", " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "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[{
          RowBox[{
           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[{"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[
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}], "4"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314205277054*^9, 3.829314909854309*^9, 
  3.829328730798512*^9},
 CellLabel->
  "Out[45]//TraditionalForm=",ExpressionUUID->"81a4a5c5-1b91-4c47-8650-\
94f1627faaeb"],

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", 10001.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.8293128503802357`*^9, 3.829314909854836*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"ec97984c-b1c7-4c08-b0a5-3805b1b1cb41"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.8293142053378487`*^9, 3.829314909854939*^9, 3.829328730808921*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"2d1ad7ba-c788-4395-8a12-a6129a78b39c"],

Cell[BoxData["\<\"EinsteinTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.8293142053378487`*^9, 3.829314909854939*^9, 3.8293287308120203`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"3062393b-db94-4866-8953-71365d787578"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        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[{"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[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           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[{
            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"]], "0", "0"},
      {
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           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[{
            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"]], 
       FractionBox[
        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[{"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[{"\[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]}], "+", 
          RowBox[{"2", " ", 
           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[{"\[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]}], "+", 
          RowBox[{"2", " ", 
           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", 10001.},
 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.8293142053378487`*^9, 3.829314909854939*^9, 3.8293287308507442`*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"2045ef6c-b6d9-4177-aaae-\
79f2195272c5"],

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", 10001.},
 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.829314909855215*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"6f990f2c-7094-42a7-a2da-71a5600e31c8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314205426422*^9, 3.82931490985532*^9, 3.829328730861381*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"a25f69de-1022-451e-b7cb-e58eacb4ae47"],

Cell[BoxData["\<\"WeylTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.829314205426422*^9, 3.82931490985532*^9, 3.829328730864558*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"72d65f92-9912-42bb-9433-03c54a03deda"],

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[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"r", "(", 
                  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]}], "-", 
                   RowBox[{"2", " ", 
                    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]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"r", "(", 
                 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]}], "-", 
                  RowBox[{"2", " ", 
                   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]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  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[{"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]}]}], ")"}]}], "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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"r", "(", 
                 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]}], "-", 
                  RowBox[{"2", " ", 
                   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]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[Sigma]", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"r", "(", 
                  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]}], "-", 
                   RowBox[{"2", " ", 
                    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]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  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[{"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]}]}], ")"}]}], "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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  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[{"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]}]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  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[{"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]}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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["2", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["2", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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["2", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["2", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"\[Sigma]", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"r", "(", 
                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]}], "-", 
                 RowBox[{"2", " ", 
                  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]}]}], ")"}]}], "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", 10001.},
 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.829314205426422*^9, 3.82931490985532*^9, 3.829328731219265*^9},
 CellLabel->
  "Out[51]//TraditionalForm=",ExpressionUUID->"8afb8faf-3733-4b0b-a13d-\
d2c3c2d39f93"],

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", 10001.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.8293128280237293`*^9, 3.829312850380747*^9}, 3.829314909855595*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"8edfb42d-e2df-4932-bde7-0624bb11126e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314205909566*^9, 3.8293149098557034`*^9, 
  3.829328731238967*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"3579cc98-c66b-4080-b0dc-f901f94dd817"],

Cell[BoxData["\<\"CottonTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314205909566*^9, 3.8293149098557034`*^9, 
  3.829328731242092*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"a8dff9c4-f6c9-4375-b2f7-8153b35ddaf6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   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[{
           {
            FractionBox[
             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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    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]}], "-", 
                    RowBox[{"2", " ", 
                    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]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    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[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   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"},
           {
            FractionBox[
             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]}]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    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]}], "-", 
                    RowBox[{"2", " ", 
                    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[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"3", " ", 
                   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[{"2", " ", 
                  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]}]}], ")"}]}], "-", 
              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"}
          },
          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[{"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]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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[{"2", " ", 
                  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", " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3", " ", 
                  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[{"2", " ", 
                  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]}]}], ")"}]}], "+", 
              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[{"\[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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    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[{"\[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]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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[{"2", " ", 
                    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", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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]}]}], ")"}]}], "+", 
                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", " ", 
              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[{"\[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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    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]}], "-", 
                    RowBox[{"2", " ", 
                    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]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    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[{"4", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    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[{"\[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]}]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    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]}], "-", 
                    RowBox[{"2", " ", 
                    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[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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]}]}], ")"}]}], "-", 
                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", " ", 
              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[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    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[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[Sigma]", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 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]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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[{"2", " ", 
                    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[{
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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]}]}], ")"}]}], "+", 
                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[{"2", " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"-", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  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]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    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[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    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[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    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[{"2", " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"-", 
                 RowBox[{"\[Sigma]", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  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]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Sigma]", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    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[{"2", " ", 
                    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[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    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[{"2", " ", 
                    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]}]}], ")"}]}], "+", 
                 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", 10001.},
 CellChangeTimes->{3.829314205909566*^9, 3.8293149098557034`*^9, 
  3.829328731800457*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"2ef37c96-9aa1-425d-a6b9-\
4c27782fa9a6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8254369680753117`*^9, 3.825436990178878*^9}, 
   3.829314887873857*^9, {3.8293287527153807`*^9, 3.8293287538586483`*^9}, {
   3.8293300442166767`*^9, 
   3.8293300460321903`*^9}},ExpressionUUID->"3b578ec8-1337-4a85-9dc3-\
b89159eefbae"],

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", 10000.},
 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},
 CellLabel->"In[55]:=",ExpressionUUID->"ab173909-4052-42ca-88f4-ba1e92da731d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        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[{"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"}], ")"}]]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}]},
      {
       FractionBox[
        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[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          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[{
           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[{"4", " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          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[{
           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]}]}], ")"}]}]}
     },
     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", 10000.},
 CellChangeTimes->{{3.82931426935769*^9, 3.829314291971512*^9}, 
   3.829314887874308*^9, 3.829328760075075*^9},
 CellLabel->
  "Out[57]//TraditionalForm=",ExpressionUUID->"46421acd-ada1-487b-b937-\
b04c2ceb99a2"],

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", 10000.},
 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},
 CellLabel->"In[58]:=",ExpressionUUID->"ba6625ad-b2f0-42ec-a561-72f3ad95d858"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        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[{"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[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           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[{
            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"]]},
      {
       FractionBox[
        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[{"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[{"\[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]}], "+", 
          RowBox[{"2", " ", 
           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[{"\[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]}], "+", 
          RowBox[{"2", " ", 
           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", 10000.},
 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.8293287601633177`*^9},
 CellLabel->
  "Out[60]//TraditionalForm=",ExpressionUUID->"d6ee3095-3b02-4190-8f1f-\
95c6a2233461"]
}, Closed]],

Cell[CellGroupData[{

Cell["A.1 Minimally Coupled Massless Scalar Field", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314175981791*^9, 3.829314187414817*^9}, 
   3.829314858825903*^9, {3.829334560417893*^9, 
   3.8293345812174664`*^9}},ExpressionUUID->"1f5dc623-0961-4e9d-93c4-\
f0605b8a67e8"],

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[61]:=",ExpressionUUID->"597c9c09-dcd4-4a0e-a55c-6aee0cf95f73"],

Cell[BoxData[
 TagBox["\<\"\[CapitalPhi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314207093236*^9, 3.829314858826318*^9, 
  3.82932881026758*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"b5dda77b-8665-4ad1-8a9e-365c812eaf99"],

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[63]:=",ExpressionUUID->"7b6f4f65-7907-4cbe-94bd-2445a41f58a4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.020098`", ",", 
   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.829328810333942*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"fab5cfa1-f1cc-4508-9060-a1c5bdb2158c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", " ", "=", " ", "\[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[{"eq2", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314405102365*^9, 3.8293145328412247`*^9}, 
   3.829314858826792*^9, {3.829328826191537*^9, 3.829328829797277*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"72c4d843-1555-43ba-b2df-4ef1f90614bd"],

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.829328810460884*^9, 3.829328834058766*^9}},
 CellLabel->
  "Out[69]//TraditionalForm=",ExpressionUUID->"8c8d1ca0-4f47-42cb-8f2d-\
1585f10095b4"]
}, Closed]],

Cell[CellGroupData[{

Cell["A.1 Scalar Field Stress Energy Tensor ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829314736147303*^9, 3.8293147582183743`*^9}, {
  3.829329008451549*^9, 
  3.829329018903363*^9}},ExpressionUUID->"5d3f5bad-751f-43bf-ac66-\
159e26cd76c5"],

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]"}]}], "]"}]}], "]"}], "]"}], " ", "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
       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.829328982333152*^9, 3.8293290189036903`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"2c50016b-808a-4879-b034-a15e65b9a695"],

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[{"\[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[{"2", " ", "\[Pi]"}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           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[{"2", " ", "\[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.829328918453908*^9, {3.829328993113985*^9, 3.829329018903797*^9}},
 CellLabel->
  "Out[85]//TraditionalForm=",ExpressionUUID->"33513da8-8723-4120-9e4e-\
77b9fef55cff"],

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.829329018903954*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"fb54daf0-1996-472c-abdc-667b5fe44089"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalT]s", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829314721829472*^9, 3.829314771202056*^9}, 
   3.829328918545429*^9, {3.829328996942356*^9, 3.829329018904064*^9}},
 CellLabel->"Out[87]=",ExpressionUUID->"f8801916-0025-474e-8ebd-aa2fcf6deb39"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq31", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq31", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalT]s", "[", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "]"}], "  ", "//", " ", "TensorValues"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq31", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.829328902171081*^9, 3.82932896835928*^9}, 
   3.829329018904203*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"dd4f3c17-f29f-4f46-8ba9-d8ab58df0eb3"],

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[{"\[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[{"2", " ", "\[Pi]"}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           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[{"2", " ", "\[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.829328912739273*^9, 3.829329018904332*^9}},
 CellLabel->
  "Out[90]//TraditionalForm=",ExpressionUUID->"8310007f-351e-445b-bfb8-\
3851ac4673c3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Faraday Stress Tensor", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.829314139560281*^9, 3.829314152143037*^9}, 
   3.829329065981401*^9},ExpressionUUID->"0982fded-8b41-44a2-bfe7-\
42a523a65459"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "F", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        RowBox[{"Q", "(", 
         FractionBox[
          RowBox[{"Exp", "[", 
           RowBox[{"\[Sigma]", "[", 
            RowBox[{"u", ",", "v"}], "]"}], "]"}], 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"r", "[", 
             RowBox[{"u", ",", "v"}], "]"}], "2"]}]], ")"}]}], "0", "0"},
      {
       RowBox[{"Q", "(", 
        FractionBox[
         RowBox[{"Exp", "[", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "]"}], 
         RowBox[{" ", 
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"r", "[", 
             RowBox[{"u", ",", "v"}], "]"}], "2"]}]}]], ")"}], "0", "0", 
       "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.829312865577063*^9, 3.8293129344460297`*^9}, 
   3.829314145591465*^9, 3.829329065981594*^9, {3.829329213066609*^9, 
   3.829329258464242*^9}, {3.829329790919297*^9, 3.829329800046555*^9}, {
   3.829330434691886*^9, 3.829330440875009*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"ae32b5fe-0c28-4cf7-9659-25db21d900b9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Q", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0"},
      {
       FractionBox[
        RowBox[{"Q", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"2", " ", 
         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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.829314206985737*^9, 3.829314874651947*^9, 
  3.829329065981696*^9, 3.829329260731604*^9, 3.829329388808528*^9, 
  3.829329801560844*^9, 3.8293304424879513`*^9},
 CellLabel->
  "Out[174]//TraditionalForm=",ExpressionUUID->"ec841bfc-6dfa-48f2-9d4c-\
e1bffd8821d7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalF]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalF]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", " ", 
   RowBox[{"\"\<\[ScriptCapitalF]\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "F", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], " ", "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.829312936760343*^9, 3.82931294787109*^9}, {
   3.82931300435883*^9, 3.829313018270268*^9}, 3.829314145591641*^9, 
   3.829329065981832*^9},
 CellLabel->
  "In[175]:=",ExpressionUUID->"6cf00e96-da09-44c9-a355-7f18717585ab"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalF]", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.829314207001155*^9, 3.829314874652134*^9, 
  3.829329065981945*^9, 3.829329263042923*^9, 3.829329388859511*^9, 
  3.829329803832543*^9, 3.829330444435564*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"b2a7d1de-162f-4d7b-8e79-e764013ba704"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalF]", "[", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "]"}], " ", "//", " ", "TensorValues"}], " ", 
   "//", " ", "MatrixForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.829314305545953*^9, 3.8293143238423023`*^9}, 
   3.829314874652286*^9, 3.829329065982071*^9},
 CellLabel->
  "In[177]:=",ExpressionUUID->"db6bc437-ef6c-4d3e-8e68-222dbbc0b90d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Q", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0"},
      {
       FractionBox[
        RowBox[{"Q", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"2", " ", 
         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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8293304528643723`*^9, 3.829334469204577*^9},
 CellLabel->
  "Out[177]//TraditionalForm=",ExpressionUUID->"ecb69fd1-26c7-4584-a6f9-\
9e20fe811480"]
}, Closed]],

Cell[CellGroupData[{

Cell["Electromagnetic Energy Momentum  Tensor", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829314156016266*^9, 3.829314170142721*^9}, {
   3.829314554320478*^9, 3.829314558984563*^9}, 3.82931459719576*^9, {
   3.829329150311494*^9, 3.829329165722911*^9}, {3.8293293376195173`*^9, 
   3.8293293378035917`*^9}},ExpressionUUID->"01789258-1a31-4b9a-81cb-\
227a71e6f6e9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Tem", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tem", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{"4", "\[Pi]"}]], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "[", 
            RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
           RowBox[{"\[ScriptCapitalF]", "[", 
            RowBox[{
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Alpha]"}]}], "]"}], 
           RowBox[{"\[ScriptCapitalF]", "[", 
            RowBox[{
             RowBox[{"-", "\[Nu]"}], ",", 
             RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "]"}], " ", "+", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "4"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"\[ScriptCapitalF]", "[", 
             RowBox[{
              RowBox[{"-", "\[Alpha]"}], ",", 
              RowBox[{"-", "\[Beta]"}]}], "]"}], 
            RowBox[{"\[ScriptCapitalF]", "[", 
             RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], "]"}], "]"}]}]}], 
       ")"}]}], "   ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tem", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829313271080039*^9, 3.829313340245996*^9}, 
   3.829314162431521*^9, {3.829314573210343*^9, 3.8293145971960983`*^9}, {
   3.829329083020485*^9, 3.8293291038480873`*^9}, 3.82932915031176*^9, {
   3.8293298407141743`*^9, 3.8293298581827307`*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"febff11d-d07e-4c65-b78a-4504342f287c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"16", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"16", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "0", "0", "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["Q", "2"], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         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.829314207041963*^9, {3.829314597196227*^9, 3.8293145988796864`*^9}, 
   3.8293291064254208`*^9, 3.82932915031186*^9, 3.829329859449987*^9, 
   3.829330456137746*^9},
 CellLabel->
  "Out[180]//TraditionalForm=",ExpressionUUID->"e8082b67-9c92-4242-8c72-\
0b6d0a43a5c2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalT]em", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalT]em", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalT]em\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "Tem", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829313346696307*^9, 3.8293133715262127`*^9}, 
   3.829314162431631*^9, {3.829314582697378*^9, 3.829314597196431*^9}, {
   3.829329120100912*^9, 3.829329120178791*^9}, 3.829329150312004*^9},
 CellLabel->
  "In[181]:=",ExpressionUUID->"bb157457-6397-4c09-b540-7c255bdb6259"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalT]em", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829329120643639*^9, 3.829329150312114*^9}, 
   3.829330458532447*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"e87c65a8-60a2-43f1-97fc-0a116b8a57c9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq36", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq36", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[ScriptCapitalT]em", "[", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "]"}], " ", "//", " ", "TensorValues"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq36", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829314330738574*^9, 3.829314343266293*^9}, {
  3.829314588825571*^9, 3.82931459719676*^9}, {3.829329132796303*^9, 
  3.8293291503122463`*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"2dd1831c-4504-4459-8a61-a6f5d14b7563"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"16", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[Sigma]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], 
        RowBox[{"16", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "0", "0", "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["Q", "2"], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         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.8293143437303267`*^9, {3.829314597197014*^9, 3.829314598964038*^9}, {
   3.8293291268443937`*^9, 3.829329150312388*^9}, 3.829330460497959*^9},
 CellLabel->
  "Out[185]//TraditionalForm=",ExpressionUUID->"12c1849e-949e-40d2-a378-\
1e23a6efdec2"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
2.1 Field Equations ( off by one term in both equation 3 & 4 )\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829334480659099*^9, 3.8293345035694513`*^9}, {
  3.829335251425994*^9, 
  3.829335272586331*^9}},ExpressionUUID->"e6e820be-582b-42f1-8093-\
3b571604ff66"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "fieldEquations", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"just", " ", "below", " ", "equations", " ", "2"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "\[Pi]"}], ")"}], "*", " ", 
      RowBox[{"(", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"TensorValues", "[", 
          RowBox[{"\[ScriptCapitalT]s", "[", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "+", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"\[ScriptCapitalT]em", "[", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}]}], "]"}], ")"}]}]}], 
    "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829329953723979*^9, 3.8293301282416067`*^9}, {
   3.829334446770919*^9, 3.829334448217637*^9}, 3.8293344921468077`*^9, {
   3.829334657276394*^9, 3.829334668731476*^9}, {3.829334977790696*^9, 
   3.8293350277092524`*^9}},
 CellLabel->
  "In[298]:=",ExpressionUUID->"e26a2e27-be77-457a-888f-693b82ad03c3"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         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[{"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[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            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[{
             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"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            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[{
             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"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {
       RowBox[{
        FractionBox[
         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[{"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[{"\[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]}], "+", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["Q", "2"], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", "\[Pi]"}]]}], ")"}]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           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]}], "+", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["Q", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", "\[Pi]"}]]}], ")"}]}]}]}
     },
     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", 10005.},
 CellChangeTimes->{{3.829329958198278*^9, 3.829329977066946*^9}, {
   3.829330024499037*^9, 3.8293300376658297`*^9}, {3.829330094781288*^9, 
   3.829330129206223*^9}, 3.829330463608008*^9, 3.829334448673074*^9, 
   3.8293344921470623`*^9, 3.829334673319942*^9, {3.8293349822261267`*^9, 
   3.82933502816856*^9}},
 CellLabel->
  "Out[300]//TraditionalForm=",ExpressionUUID->"dea9825c-d3f9-490c-a144-\
d1bddbb8e07b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"fieldEquations", "[", 
            RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
           RowBox[{
            SuperscriptBox["r", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "  ", "//", " ", 
      "Expand"}], " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82933036997054*^9, 3.8293304053216057`*^9}, {
   3.8293304812280617`*^9, 3.829330490866487*^9}, 3.829334492148291*^9},
 CellLabel->
  "In[261]:=",ExpressionUUID->"51794012-8ba8-4122-b7bd-a60f195fefcd"],

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[{
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "-", 
    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", 10005.},
 CellChangeTimes->{{3.829330372152968*^9, 3.829330405827269*^9}, {
   3.829330470902895*^9, 3.8293304913448067`*^9}, 3.829334492148445*^9, 
   3.829334686534833*^9},
 CellLabel->
  "Out[263]//TraditionalForm=",ExpressionUUID->"edab7120-b9ba-47cd-b195-\
561c6ddf70e0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"fieldEquations", "[", 
            RowBox[{"[", "5", "]"}], "]"}], " ", ",", " ", 
           RowBox[{
            SuperscriptBox["r", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "  ", "//", " ", 
      "Expand"}], " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8293305504615917`*^9, 3.829330583069663*^9}, 
   3.829334492148616*^9},
 CellLabel->
  "In[264]:=",ExpressionUUID->"a1ee3c24-dc2d-4d62-93e0-732abd33718e"],

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[{
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "-", 
    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", 10005.},
 CellChangeTimes->{{3.829330551786334*^9, 3.829330583589734*^9}, 
   3.8293344921487637`*^9, 3.82933468828905*^9},
 CellLabel->
  "Out[266]//TraditionalForm=",ExpressionUUID->"f6444d9a-ee79-4ad8-aa67-\
9b7d51cbf87f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroFieldEquations", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroFieldEquations", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fieldEquations", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"fieldEquations", " ", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"fieldEquations", "[", 
      RowBox[{"[", "5", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"fieldEquations", "[", 
      RowBox[{"[", "6", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"fieldEquations", "[", 
      RowBox[{"[", "11", "]"}], "]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"fieldEquations", "[", 
      RowBox[{"[", "16", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroFieldEquations", " ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829333939122653*^9, 3.829334016226362*^9}, 
   3.82933449214894*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"03eca7fa-6e86-49e9-9f21-c7b2939339cc"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         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[{"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[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            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[{
             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"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            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[{
             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"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[Sigma]", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {
       RowBox[{
        FractionBox[
         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[{"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"]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           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]}], "+", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["Q", "2"], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", "\[Pi]"}]]}], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           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]}], "+", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["Q", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               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[{"2", " ", "\[Pi]"}]]}], ")"}]}]}]}
     },
     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", 10005.},
 CellChangeTimes->{{3.829333940375244*^9, 3.829333979867714*^9}, 
   3.82933401679248*^9, 3.8293344921491013`*^9},
 CellLabel->
  "Out[233]//TraditionalForm=",ExpressionUUID->"35c2d9c2-2b36-4a4c-82c1-\
6c9e6e9d2917"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"No", " ", "idea", " ", "how", " ", 
    RowBox[{"I", "'"}], "m", " ", "missing", " ", "a", " ", "term"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      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", "]"}], "]"}], "  ", "//", " ", "Expand"}], " ", "//",
        " ", "Apart"}], " ", "//", " ", "Expand"}]}], "   ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"eq3", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829334228427614*^9, 3.829334274331304*^9}, {
   3.829334403251216*^9, 3.8293344292385273`*^9}, 3.829334492149279*^9, {
   3.82933489218744*^9, 3.8293349165079727`*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"67db7179-fa4d-4100-9de0-cd2d646c0c31"],

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[{
    FractionBox[
     RowBox[{
      SuperscriptBox["Q", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Sigma]", "(", 
        RowBox[{"u", ",", "v"}], ")"}]]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "-", 
    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", 10005.},
 CellChangeTimes->{{3.829334229842656*^9, 3.829334274763392*^9}, {
   3.829334408917952*^9, 3.8293344132324133`*^9}, 3.82933449214939*^9, {
   3.829334899451659*^9, 3.829334917118909*^9}},
 CellLabel->
  "Out[288]//TraditionalForm=",ExpressionUUID->"6f1901cf-2812-47d6-8586-\
55729b71ddf7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"No", " ", "idea", " ", "how", " ", 
    RowBox[{"I", "'"}], "m", " ", "missing", " ", "a", " ", "term"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"nonzeroFieldEquations", "[", 
                RowBox[{"[", "5", "]"}], "]"}], ",", 
               RowBox[{
                SuperscriptBox["\[Sigma]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "1"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
           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", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], 
         " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}], "  ", ")"}], 
      " ", "/.", " ", 
      RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"eq4", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829334058174103*^9, 3.829334073997677*^9}, {
   3.829334125695839*^9, 3.829334196307279*^9}, {3.829334278149065*^9, 
   3.829334318451025*^9}, {3.82933435950003*^9, 3.8293343788746357`*^9}, 
   3.8293344921497107`*^9, {3.8293349026606493`*^9, 3.829334912995901*^9}},
 CellLabel->
  "In[283]:=",ExpressionUUID->"c89cebf4-f490-4f75-8d42-7c848ba1eadd"],

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[
      RowBox[{
       SuperscriptBox["Q", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[Sigma]", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]}], 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "4"]]}], "+", 
    FractionBox[
     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[
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
    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]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829334061972829*^9, 3.829334074228344*^9}, 
   3.829334150604731*^9, {3.8293341808593807`*^9, 3.829334196820318*^9}, {
   3.829334294408785*^9, 3.829334318921131*^9}, {3.8293343762684526`*^9, 
   3.829334379332569*^9}, 3.8293344921498547`*^9, 3.829334913447789*^9},
 CellLabel->
  "Out[285]//TraditionalForm=",ExpressionUUID->"7859bae1-726b-4680-8fe0-\
3ddf41803782"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", " ", "=", " ", "\[IndentingNewLine]", 
   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", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82933476350705*^9, 3.829334812299223*^9}, {
   3.829334865069655*^9, 3.829334873341385*^9}, 3.829335085896456*^9},
 CellLabel->
  "In[275]:=",ExpressionUUID->"55834d56-b0de-4d60-9aa6-4969b267a7cb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     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", 10005.},
 CellChangeTimes->{{3.829334764968672*^9, 3.8293348127253428`*^9}, 
   3.829334873723818*^9, 3.82933508589673*^9},
 CellLabel->
  "Out[277]//TraditionalForm=",ExpressionUUID->"ed8c868f-48af-450b-8fbd-\
ee6c64bbc189"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"nonzeroFieldEquations", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["r", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.829334828043824*^9, 3.829334838363009*^9}, {
   3.829334876917302*^9, 3.829334879587627*^9}, 3.8293350858969717`*^9},
 CellLabel->
  "In[278]:=",ExpressionUUID->"03446f80-b21f-4295-8bd0-c05cc2676cdc"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["v", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     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", 10005.},
 CellChangeTimes->{3.829334839050024*^9, 3.829334880035027*^9, 
  3.829335085897202*^9},
 CellLabel->
  "Out[280]//TraditionalForm=",ExpressionUUID->"ab121f13-9474-4d39-889d-\
43bf8ad302db"]
}, Closed]]
},
WindowSize->{1277, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"1900fa16-31ee-4faa-8e12-bae957134ced"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1905, 27, 159, "Title",ExpressionUUID->"de767716-57cb-4d1c-93e6-e9b85c2655c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2488, 51, 942, 16, 76, "Author",ExpressionUUID->"158e200a-49b4-4013-9159-1948bd6d828c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[3445, 70, 483, 13, 41, "Input",ExpressionUUID->"a4aaa0e2-19af-46fd-9805-c72faaf4db2c"],
Cell[CellGroupData[{
Cell[3953, 87, 228, 4, 69, "Section",ExpressionUUID->"81e1bc51-a0a4-4199-9dcb-d62bbba8abe4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4184, 93, 433, 9, 63, "Input",ExpressionUUID->"a7107cba-47e4-4804-9fde-ea2ada4f6b54",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4620, 104, 1901, 29, 43, "Output",ExpressionUUID->"c1c085da-fa25-4041-bb78-df8bfff9c8ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6558, 138, 731, 11, 55, "Section",ExpressionUUID->"cb57d6f4-c934-45c4-9a2f-3a593d329554",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7292, 151, 476, 9, 63, "Input",ExpressionUUID->"32c49a3c-4769-4179-ae9f-8a7f6e35a5b7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7771, 162, 424, 8, 43, "Output",ExpressionUUID->"1ebe6d72-9047-402a-8d7d-094c7c45adf0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8198, 172, 482, 8, 41, "Input",ExpressionUUID->"075c24ec-e7c1-44be-8b50-b6066f2cc420",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8683, 182, 514, 9, 43, "Output",ExpressionUUID->"7887350a-2e81-44b6-8084-cfc574f344d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9200, 193, 583, 10, 84, "Input",ExpressionUUID->"ac61da4d-2016-4542-840b-8ea3d362c206",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9786, 205, 1934, 30, 43, "Output",ExpressionUUID->"63cb5ffd-86eb-4039-ab86-b1860bd75b2f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[11757, 240, 251, 4, 55, "Section",ExpressionUUID->"cfcb16a6-61e2-48e7-9c58-cd1a39cff500",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12011, 246, 1666, 45, 189, "Input",ExpressionUUID->"36a1b3f6-8665-4911-868e-4a0e746fa49c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13680, 293, 2127, 34, 24, "Print",ExpressionUUID->"f5d85609-31ac-4fe7-9fb1-03fef2ab90d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15810, 329, 2136, 34, 24, "Print",ExpressionUUID->"5a7f5a37-7b52-430a-8587-2743d43e14d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[17949, 365, 2011, 30, 41, "Output",ExpressionUUID->"c09a06e3-25ee-441b-b231-710c3b4246c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[19963, 397, 268, 4, 41, "Input",ExpressionUUID->"9d2e79b0-9b48-4383-aa91-b4a69493fe17",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[20234, 403, 261, 4, 41, "Input",ExpressionUUID->"d26acf1d-4361-49df-b6b7-ecf82c0677df",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20532, 412, 240, 4, 55, "Section",ExpressionUUID->"e80e2dad-5b66-4267-8edc-27b97f491ed9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[20775, 418, 3122, 71, 504, "Input",ExpressionUUID->"9a3a3159-2aa6-466a-aa9c-994d4d5e9c6c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23900, 491, 3676, 97, 393, "Output",ExpressionUUID->"4f2d857e-37c4-4895-8a7a-b7b75a6b19b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[27579, 590, 963, 23, 63, "Input",ExpressionUUID->"04f71e3c-1666-4713-9d63-123e2af3519c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28579, 618, 362, 6, 55, "Section",ExpressionUUID->"6109b50e-48b6-4d38-95bd-04e03549a6b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[28944, 626, 1659, 41, 126, "Input",ExpressionUUID->"2f24cce4-9cef-4d1d-902b-1e73992dbbbe",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[30606, 669, 1056, 26, 84, "Input",ExpressionUUID->"3f34ec65-3c01-49ac-a5e1-3741bee1dcbc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31699, 700, 227, 4, 55, "Section",ExpressionUUID->"29f030b8-2c73-4b82-9acf-50a894411de2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31929, 706, 948, 24, 86, "Input",ExpressionUUID->"fc9c4d95-9d30-4e57-862e-43b6effe4d65",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32880, 732, 751, 21, 44, "Output",ExpressionUUID->"9c3b1a0f-c942-4600-a9ec-830b94a4e7a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33634, 755, 706, 15, 105, "Input",ExpressionUUID->"4050a24c-7a45-4a44-8ad4-8e1f00041a61",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34343, 772, 1533, 45, 126, "Output",ExpressionUUID->"72a84fee-bd27-4e85-98e3-ea7454b68736",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35879, 819, 676, 16, 105, "Input",ExpressionUUID->"71c4dd59-d199-42ef-9075-5095c8689092",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36558, 837, 1483, 45, 131, "Output",ExpressionUUID->"4205cb70-d21a-4627-a2cb-fd7b14916131",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38044, 884, 408, 9, 41, "Input",ExpressionUUID->"5b6126d4-0d43-4dfd-9e08-7d6a3d6b5ba4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38455, 895, 798, 23, 101, "Output",ExpressionUUID->"33d1a210-649b-4ab9-8dac-302e8d6e50c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39256, 920, 433, 10, 41, "Input",ExpressionUUID->"1b85f0e7-b523-4d2d-9886-528a01b1a5c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39692, 932, 796, 23, 101, "Output",ExpressionUUID->"7c469fb3-a7a3-49b3-beae-c201390e7501",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[40525, 960, 320, 5, 55, "Section",ExpressionUUID->"634a7cb7-6787-45f1-a422-4e4bd645bf5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[40848, 967, 514, 11, 41, "Input",ExpressionUUID->"2e2980fe-1dfe-44a4-b15e-664addbdbc2f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[41365, 980, 5753, 130, 714, "Input",ExpressionUUID->"440e8f3c-565c-4098-a4cc-29f87ef733d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[47121, 1112, 1104, 22, 65, "Input",ExpressionUUID->"849d2f29-0e3a-476a-8668-75fae6b74c7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[48228, 1136, 637, 10, 41, "Output",ExpressionUUID->"3ba7e433-8ead-4c3d-990a-2d4620464ee5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[48868, 1148, 283, 4, 41, "Input",ExpressionUUID->"dae20295-943c-48d8-9831-4b61187bedcb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[49154, 1154, 1438, 38, 45, "Output",ExpressionUUID->"a9ed3f65-ae43-4421-906b-de9d353677ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[50595, 1194, 836, 19, 84, "Input",ExpressionUUID->"1e5b0238-d65e-4b22-a537-c6d9f5d410a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[51434, 1215, 698, 13, 45, "Output",ExpressionUUID->"f51ee3de-ec96-4ece-bda5-acbca26edc2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[52135, 1230, 619, 9, 41, "Output",ExpressionUUID->"4d764de5-9c70-475d-b660-1fc1a2aaee1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[52757, 1241, 1880, 50, 126, "Output",ExpressionUUID->"00260d75-d39e-408f-8058-fe45eaa1455c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[54640, 1293, 841, 19, 84, "Input",ExpressionUUID->"6376559f-050f-4fbc-9d03-f406935a6262",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[55484, 1314, 818, 15, 45, "Output",ExpressionUUID->"59b93b86-ff3f-4247-915e-7f98e338126d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[56305, 1331, 718, 10, 41, "Output",ExpressionUUID->"b6e93b18-1dad-495b-8a13-dcf4cae678ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[57026, 1343, 15512, 443, 410, "Output",ExpressionUUID->"0c721fc0-9ee4-4c7d-950d-c96ce83f5bdc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[72541, 1788, 838, 19, 84, "Input",ExpressionUUID->"471bc403-ea85-4391-94b2-85004941c9b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[73382, 1809, 689, 12, 45, "Output",ExpressionUUID->"4a817821-69c1-429e-bc7f-deaba8e6ec18",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[74074, 1823, 633, 9, 41, "Output",ExpressionUUID->"f69dc838-0349-4541-95ea-405718115e33",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[74710, 1834, 41834, 1073, 484, "Output",ExpressionUUID->"cfedfd1d-53ef-49fe-bcbc-18a1515e6245",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[116547, 2909, 834, 19, 84, "Input",ExpressionUUID->"b1f98063-a5e0-45b1-a8a4-553bf0582906",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[117384, 2930, 680, 12, 45, "Output",ExpressionUUID->"3bd487b4-dc01-448a-9b85-f82517d26893",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[118067, 2944, 640, 9, 41, "Output",ExpressionUUID->"94a84c9d-4cb8-4e8b-a15d-572e16fab300",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[118710, 2955, 7031, 195, 186, "Output",ExpressionUUID->"d531d922-4bb2-446e-98e5-e3d62efe9f29",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[125744, 3152, 838, 19, 84, "Input",ExpressionUUID->"2e8e2b6b-f219-4e85-94f9-85f416a196e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[126585, 3173, 644, 11, 41, "Output",ExpressionUUID->"8547e588-82da-4bb2-9149-c9603b263b64",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[127232, 3186, 639, 9, 41, "Output",ExpressionUUID->"d47fadea-e83c-4b01-905e-8e368b921abb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[127874, 3197, 2452, 66, 86, "Output",ExpressionUUID->"40fa7a44-be77-4490-9d6b-0c4453cbc0e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[130329, 3265, 888, 19, 84, "Input",ExpressionUUID->"b3d9d15b-6784-4183-8b37-e63ef9efabe5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[131220, 3286, 286, 6, 41, "Output",ExpressionUUID->"418af349-3686-4d8d-b869-59ed3d474a86",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[131509, 3294, 287, 4, 41, "Output",ExpressionUUID->"9f6d7eca-d6ca-474f-bd6b-6bbd2a2d5256",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[131799, 3300, 5136, 144, 88, "Output",ExpressionUUID->"81a4a5c5-1b91-4c47-8650-94f1627faaeb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[136938, 3446, 816, 18, 84, "Input",ExpressionUUID->"ec97984c-b1c7-4c08-b0a5-3805b1b1cb41",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[137757, 3466, 614, 11, 45, "Output",ExpressionUUID->"2d1ad7ba-c788-4395-8a12-a6129a78b39c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[138374, 3479, 577, 8, 41, "Output",ExpressionUUID->"3062393b-db94-4866-8953-71365d787578",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[138954, 3489, 7597, 210, 190, "Output",ExpressionUUID->"2045ef6c-b6d9-4177-aaae-79f2195272c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[146554, 3701, 879, 19, 84, "Input",ExpressionUUID->"6f990f2c-7094-42a7-a2da-71a5600e31c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[147436, 3722, 690, 12, 45, "Output",ExpressionUUID->"a25f69de-1022-451e-b7cb-e58eacb4ae47",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[148129, 3736, 631, 9, 41, "Output",ExpressionUUID->"72d65f92-9912-42bb-9433-03c54a03deda",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[148763, 3747, 56903, 1397, 488, "Output",ExpressionUUID->"8afb8faf-3733-4b0b-a13d-d2c3c2d39f93",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[205669, 5146, 815, 18, 84, "Input",ExpressionUUID->"8edfb42d-e2df-4932-bde7-0624bb11126e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[206487, 5166, 331, 7, 45, "Output",ExpressionUUID->"3579cc98-c66b-4080-b0dc-f901f94dd817",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[206821, 5175, 282, 4, 41, "Output",ExpressionUUID->"a8dff9c4-f6c9-4375-b2f7-8153b35ddaf6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[207106, 5181, 88288, 2108, 484, "Output",ExpressionUUID->"2ef37c96-9aa1-425d-a6b9-4c27782fa9a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[295431, 7294, 382, 6, 55, "Section",ExpressionUUID->"3b578ec8-1337-4a85-9dc3-b89159eefbae",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[295816, 7302, 1936, 48, 210, "Input",ExpressionUUID->"ab173909-4052-42ca-88f4-ba1e92da731d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[297755, 7352, 5802, 168, 228, "Output",ExpressionUUID->"46421acd-ada1-487b-b937-b04c2ceb99a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[303560, 7522, 1944, 48, 210, "Input",ExpressionUUID->"ba6625ad-b2f0-42ec-a561-72f3ad95d858",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[305507, 7572, 6319, 179, 234, "Output",ExpressionUUID->"d6ee3095-3b02-4190-8f1f-95c6a2233461",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[311863, 7756, 318, 5, 55, "Section",ExpressionUUID->"1f5dc623-0961-4e9d-93c4-f0605b8a67e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[312184, 7763, 717, 15, 84, "Input",ExpressionUUID->"597c9c09-dcd4-4a0e-a55c-6aee0cf95f73",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[312904, 7780, 295, 6, 41, "Output",ExpressionUUID->"b5dda77b-8665-4ad1-8a9e-365c812eaf99",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[313202, 7788, 402, 8, 41, "Input",ExpressionUUID->"7b6f4f65-7907-4cbe-94bd-2445a41f58a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[313607, 7798, 1101, 33, 49, "Output",ExpressionUUID->"fab5cfa1-f1cc-4508-9060-a1c5bdb2158c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[314711, 7833, 1419, 33, 107, "Input",ExpressionUUID->"72c4d843-1555-43ba-b2df-4ef1f90614bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[316133, 7868, 1708, 51, 78, "Output",ExpressionUUID->"8c8d1ca0-4f47-42cb-8f2d-1585f10095b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[317878, 7924, 289, 5, 55, "Section",ExpressionUUID->"5d3f5bad-751f-43bf-ac66-159e26cd76c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[318170, 7931, 2085, 52, 145, "Input",ExpressionUUID->"2c50016b-808a-4879-b034-a15e65b9a695",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[320258, 7985, 3342, 92, 178, "Output",ExpressionUUID->"33513da8-8723-4120-9e4e-77b9fef55cff",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[323603, 8079, 708, 14, 84, "Input",ExpressionUUID->"fb54daf0-1996-472c-abdc-667b5fe44089",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[324314, 8095, 382, 7, 45, "Output",ExpressionUUID->"f8801916-0025-474e-8ebd-aa2fcf6deb39",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[324699, 8104, 683, 16, 105, "Input",ExpressionUUID->"dd4f3c17-f29f-4f46-8ba9-d8ab58df0eb3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[325385, 8122, 3171, 89, 178, "Output",ExpressionUUID->"8310007f-351e-445b-bfb8-3851ac4673c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[328593, 8216, 244, 4, 55, "Section",ExpressionUUID->"0982fded-8b41-44a2-bfe7-42a523a65459",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[328840, 8222, 1527, 40, 203, "Input",ExpressionUUID->"ae32b5fe-0c28-4cf7-9659-25db21d900b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[330370, 8264, 1578, 44, 130, "Output",ExpressionUUID->"ec841bfc-6dfa-48f2-9d4c-e1bffd8821d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[331951, 8310, 791, 16, 84, "Input",ExpressionUUID->"6cf00e96-da09-44c9-a355-7f18717585ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[332745, 8328, 427, 9, 45, "Output",ExpressionUUID->"b2a7d1de-162f-4d7b-8e79-e764013ba704",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[333175, 8339, 536, 13, 41, "Input",ExpressionUUID->"db6bc437-ef6c-4d3e-8e68-222dbbc0b90d",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[333714, 8354, 1462, 42, 130, "Output",ExpressionUUID->"ecb69fd1-26c7-4584-a6f9-9e20fe811480",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[335213, 8401, 411, 6, 55, "Section",ExpressionUUID->"01789258-1a31-4b9a-81cb-227a71e6f6e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[335627, 8409, 2296, 58, 145, "Input",ExpressionUUID->"febff11d-d07e-4c65-b78a-4504342f287c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[337926, 8469, 2148, 61, 164, "Output",ExpressionUUID->"e8082b67-9c92-4242-8c72-0b6d0a43a5c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[340077, 8532, 834, 16, 84, "Input",ExpressionUUID->"bb157457-6397-4c09-b540-7c255bdb6259",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[340914, 8550, 341, 8, 45, "Output",ExpressionUUID->"e87c65a8-60a2-43f1-97fc-0a116b8a57c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[341258, 8560, 766, 18, 105, "Input",ExpressionUUID->"2dd1831c-4504-4459-8a61-a6f5d14b7563",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[342027, 8580, 2125, 60, 164, "Output",ExpressionUUID->"12c1849e-949e-40d2-a378-1e23a6efdec2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[344189, 8645, 321, 7, 55, "Section",ExpressionUUID->"e6e820be-582b-42f1-8093-3b571604ff66",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[344513, 8654, 1616, 40, 105, "Input",ExpressionUUID->"e26a2e27-be77-457a-888f-693b82ad03c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[346132, 8696, 11999, 333, 470, "Output",ExpressionUUID->"dea9825c-d3f9-490c-a144-d1bddbb8e07b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[358134, 9031, 1262, 31, 107, "Input",ExpressionUUID->"51794012-8ba8-4122-b7bd-a60f195fefcd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[359399, 9064, 1486, 45, 80, "Output",ExpressionUUID->"edab7120-b9ba-47cd-b195-561c6ddf70e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[360888, 9111, 1218, 31, 107, "Input",ExpressionUUID->"a1ee3c24-dc2d-4d62-93e0-732abd33718e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[362109, 9144, 1435, 44, 80, "Output",ExpressionUUID->"f6444d9a-ee79-4ad8-aa67-9b7d51cbf87f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[363547, 9190, 1287, 27, 231, "Input",ExpressionUUID->"03eca7fa-6e86-49e9-9f21-c7b2939339cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[364837, 9219, 11641, 320, 300, "Output",ExpressionUUID->"35c2d9c2-2b36-4a4c-82c1-6c9e6e9d2917",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[376481, 9541, 1460, 36, 128, "Input",ExpressionUUID->"67db7179-fa4d-4100-9de0-cd2d646c0c31",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[377944, 9579, 1504, 45, 80, "Output",ExpressionUUID->"6f1901cf-2812-47d6-8586-55729b71ddf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[379451, 9626, 2370, 57, 151, "Input",ExpressionUUID->"c89cebf4-f490-4f75-8d42-7c848ba1eadd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[381824, 9685, 2085, 60, 80, "Output",ExpressionUUID->"7859bae1-726b-4680-8fe0-3ddf41803782",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[383912, 9747, 1073, 27, 107, "Input",ExpressionUUID->"55834d56-b0de-4d60-9aa6-4969b267a7cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[384988, 9776, 1348, 42, 74, "Output",ExpressionUUID->"ed8c868f-48af-450b-8fbd-ee6c64bbc189",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[386339, 9820, 1076, 27, 107, "Input",ExpressionUUID->"03446f80-b21f-4295-8bd0-c05cc2676cdc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[387418, 9849, 1322, 42, 74, "Output",ExpressionUUID->"ab121f13-9474-4d39-889d-43bf8ad302db",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]]
}
]
*)